Delphi 函数
qdwyj001
这个作者很懒,什么都没留下…
展开
-
让程序只运行一次
关于 让应用程序只运行一次 楼主:以下是一个兄弟的代码 var mutex:thandle; begin mutex:=CreateMutex(Nil,True,'OneInstance');//第三个参数随便写 if GetLastError<>ERROR_ALREADY_EXISTS then begin Application.CreateHandle; Application.CreateForm(TForm1,Form1);//form1改为你窗体的name转载 2011-05-12 07:14:00 · 404 阅读 · 0 评论 -
启动外部程序并等待它结束
启动外部程序并等待它结束 收集的一段代码 有时候在特殊情况下需要用到 核心API:WaitForSingleObject,CreateProcess 启动外部程序并等待它结束 Delphi/Pascal function RunWait(FileName: string; Visi转载 2013-08-24 08:42:49 · 456 阅读 · 0 评论