当然会释放,你程序怎么写的?program Project;uses Forms, windows, Main in 'Main.pas' {Main};{$R *.res} var hMutex:HWND; Ret:Integer; begin Application.Initialize; hMutex:=CreateMutex(nil,False,'Test'); Ret:=GetLastError; If Ret<>ERROR_ALREADY_EXISTS then Begin Application.CreateForm(TMain, Main); Application.Run; end; end.一个例子!
說明我這邊就一直在使用這種方法,
應該沒問題
Forms,
windows,
Main in 'Main.pas' {Main};{$R *.res}
var
hMutex:HWND;
Ret:Integer;
begin
Application.Initialize;
hMutex:=CreateMutex(nil,False,'Test');
Ret:=GetLastError;
If Ret<>ERROR_ALREADY_EXISTS then
Begin
Application.CreateForm(TMain, Main);
Application.Run;
end;
end.一个例子!