你的意思是一个应用程序不能打开多个吧？建个互斥就可以了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编辑过]