程序只运行一次的方法
摘要：
USE中加上Windows,SysUtils,Dialogs,{$R *.res}varmyMutex:HWND;beginmyMutex:=CreateMutex(nil,false,'docotrFind2011');if WaitForSingleObject(myMutex,0)<>wait_TimeOut thenbegin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end else showmessage('程序已运行，请不要重复 阅读全文
posted @ 2012-01-04 18:40 舟山牙医 阅读(255) 评论(0) 推荐(0) 编辑