+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: جلوگیری از اجرای دوباره برنامه (/showthread.php?tid=530)
جلوگیری از اجرای دوباره برنامه - Amin_Mansouri - 07-15-2011
برای جلوگیری از اجرای دوباره برنامه در دلفی از دستور زیر استفاده کنید :
کد:
program Project2;
uses
Forms,windows,
Unit3 in 'Unit3.pas' {Form3};
{$R *.res}
var
Mutex : THandle;
begin
//www.parsicoders.ocm
Mutex := CreateMutex(nil, True, 'MyAppName');
if (Mutex <> 0) and (GetLastError = 0) then
begin
Application.Initialize;
Application.CreateForm(TForm3, Form3);
Application.Run;
CloseHandle(Mutex);
end;
end.