[求助]如何控制一个窗体不能同时打开多个?
请问 如何控制一个窗体不能同时打开多个?就是一 次只能打开一个相同的窗体?(不用隐藏打开窗体按钮的方法!)
多谢大家帮助!
你的意思是一个应用程序不能打开多个吧？建个互斥就可以了CreateMutex(..)
program Project1;
uses
Forms, Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
aHandle: THandle;
begin
aHandle := CreateMutex(nil, TRUE, ' ');
if (aHandle<>0) and (GetLastError=ERROR_ALREADY_EXISTS)then
begin
CloseHandle(aHandle);
Halt;
end;
Application.Initialize;
Application.CreateForm(Tform1,form1);
Application.Run;
end.
[此贴子已经被作者于2007-4-20 22:54:38编辑过]
