program test; uses
SysUtils,
Windows;
var
HMutex: THandle;
h:THandle; //应用程序句柄 begin
//程序只执行一次
HMutex := CreateMutex(nil, False, '54BAB749-13BA-4468-84D6-08ABC2A6F837');
if WaitForSingleObject(hMutex, 0) = wait_TimeOut then
begin
Exit;
end;
h := //这里怎么取应用程序句柄
//这里不用Application.Handle; 这种方式。因为有些原因需要应用程序比较小。用 Application 对象的话,就可引用Forms单元,应用程序就会变大了很多。
//没有引用Forms时只有40K多,用了Forms后就变成360多K了~~想看这里有没有直接用API函数来取得的 end.
SysUtils,
Windows;
var
HMutex: THandle;
h:THandle; //应用程序句柄 begin
//程序只执行一次
HMutex := CreateMutex(nil, False, '54BAB749-13BA-4468-84D6-08ABC2A6F837');
if WaitForSingleObject(hMutex, 0) = wait_TimeOut then
begin
Exit;
end;
h := //这里怎么取应用程序句柄
//这里不用Application.Handle; 这种方式。因为有些原因需要应用程序比较小。用 Application 对象的话,就可引用Forms单元,应用程序就会变大了很多。
//没有引用Forms时只有40K多,用了Forms后就变成360多K了~~想看这里有没有直接用API函数来取得的 end.
解决方案 »
- 奇怪了 文本文件 几十M 全选 复制 粘贴到另一个记事本 丢失字符
- 用dbgrideh在设计时能看到列统计(footer),在运行时列统计根本就没有???
- 请问怎么知道treeview里选择的第几项
- cg1120(代码最优化-§惟坚韧者始能遂其志§) 请进来领100分!!
- 怎样用fastreport做一个自己的预览窗体
- 有关题库管理的问题,即如何合并题目,如何组卷!
- 我爱Delphi之一:Delphi开发环境快捷键全集(需要您的加入)
- 100分,帮我搞定,OK-----多帮我提前呀----UP有分!!!----------------
- 请各位同道举一个继承的例子我看看.一定送分
- 简单问题,白给分!
- 求 delphi ECC加密算法源码
- 自定义一个类似pagecontrol的控件
GetCurrentProcess取到的值和Application.Handle值是不一样的?Application.Handle是主窗口的句柄吗?有时候GetCurrentProcess取到期是-1或0是怎么回事?to yuqianyi1974:
我没有创建窗,请问怎么用FindWindow?
GetCurrentProcess取到的值和Application.Handle值是不一样的?Application.Handle是主窗口的句柄吗?有时候GetCurrentProcess取到期是-1或0是怎么回事?
不知道用的话,搜一下,一大堆现成
楼主试看。
如果知道窗体文字的话还是可以FindWindow的吧