Delphi Base

WindSon

导航

2020年3月23日 #

Delphi使程序的窗口出现在最前面并激活

摘要： procedure setAppFront(); //使程序的窗口出现在最前面并激活 var pt, OldPt, NewPt: TPoint; begin //判断Application是否最小化，而不是主窗口的Handle, 使用Restore来还原 if IsIconic(Applicatio 阅读全文

posted @ 2020-03-23 20:09 windsonvip 阅读(761) 评论(1) 推荐(0) 编辑

Delphi 禁止重复运行程序的方法

摘要： 第一种方法，使用“过程调用” procedure Del; // 自定义过程 var Mutex: THandle; begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_AL 阅读全文

posted @ 2020-03-23 19:54 windsonvip 阅读(613) 评论(1) 推荐(0) 编辑