摘要: 转自:万一老师的 Delphi 博客[代码] 阅读全文
posted @ 2010-09-20 20:04 °ι 、曲 终 阅读(328) 评论(0) 推荐(0) 编辑
摘要: 1)创建线程 MsgThread := TMsgThread.Create(False) ; //创建并执行线程 MsgThread := TMsgThread.Create(True) ; //创建线程后挂起 constructor Create(CreateSuspended: Boolean); 中的参数CreateSuspended表示创建后是否挂起线程。 (2)设置线程里没有设置循环执行... 阅读全文
posted @ 2010-09-20 19:59 °ι 、曲 终 阅读(242) 评论(0) 推荐(0) 编辑
摘要: 一、CriticalSection(临界区)临界区"(CriticalSection): 当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 让其他也要执行此代码的线程先等等; 这和前面用的 Lock 和 UnLock 差不多; 使用格式如下:[代码]Delphi 在 SyncObjs 单元给封装了一个 TCriticalSection 类, 用法差不多二、等待函数 WaitForSing... 阅读全文
posted @ 2010-09-19 16:47 °ι 、曲 终 阅读(280) 评论(0) 推荐(0) 编辑
摘要: [代码]在 Windows 上建立一个线程, 离不开 CreateThread 函数;既然有建立, 就该有释放, CreateThread 对应的释放函数是: ExitThreadCreateThread 的最后一个参数是 "线程的 ID";既然可以返回句柄, 为什么还要输出这个 ID? 现在我知道的是:1、线程的 ID 是唯一的; 而句柄可能不只一个, 譬如可以用 GetCurrentThrea... 阅读全文
posted @ 2010-09-19 16:26 °ι 、曲 终 阅读(1708) 评论(2) 推荐(0) 编辑
摘要: SwfCabin是一個免費swf空間,最初建立的構想在於「如何在網路上將swf檔分享給別人」。使用者可以將swf檔上傳到 SwfCabin 然後獲得一個連結,其他人便可以在該頁面看到您所上傳的swf檔案。上傳檔案時 SwfCabin 會自動辨識該檔案最適當的顯示尺寸。除此之外,SwfCabin也有投票與搜尋的功能,不過對於檔案保存時間及流量限制等方面並無太多說明。使用教學進入SwfCabin後,先... 阅读全文
posted @ 2010-09-19 16:02 °ι 、曲 终 阅读(208) 评论(0) 推荐(0) 编辑
摘要: [hjp2=900,675,true]http://www.swfcabin.com//swf-files/1284880280.swf[/hjp2]年华也随风而逝,青春的思忆,却永留在我中! 阅读全文
posted @ 2010-09-19 15:58 °ι 、曲 终 阅读(199) 评论(0) 推荐(0) 编辑
摘要: 1. 声明一个Record类[代码]2. 线程函数像这样写[代码]3.写下传递过程呗[代码]好了,这样就可以传递到自己的参数了,如下图: 阅读全文
posted @ 2010-09-19 15:26 °ι 、曲 终 阅读(839) 评论(0) 推荐(0) 编辑
摘要: [代码] 阅读全文
posted @ 2010-09-17 19:31 °ι 、曲 终 阅读(4594) 评论(0) 推荐(0) 编辑
摘要: 用到3个API函数BOOL RegisterHotKey( HWND hWnd,  //响应该热键的窗口句柄 Int id,      //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk    //该热键的键值 );为了得到唯一标识,我们还将用到另一个API函数ATOM GlobalAddAtom(LPCTSTR lpString //自己设定的一个字符... 阅读全文
posted @ 2010-09-17 19:28 °ι 、曲 终 阅读(5729) 评论(0) 推荐(0) 编辑
摘要: [代码] 阅读全文
posted @ 2010-09-17 18:00 °ι 、曲 终 阅读(3495) 评论(0) 推荐(0) 编辑