اجرای فقط یک بار برنامه [بایگانی]

khoshblagh

شنبه 03 آبان 1393, 19:05 عصر

با سلام من در دلفی 7 از کد زیر برای یکبار اجرای برنامه استفاده مینمایم. ولی این کد در XE4 خطای عدم شناسایی متغیرها را میگیرد. به احتمال زیاد باید در بخش uses یونیتی معرفی گردد.
ولی نمیدانم کدام یونیت. در دلفی 7 یوینت ویندوز میباشد.

var
hmutex:THandle;
begin
hmutex:=CreateMutex(nil,False,'OneCopyMutext');
if WaitForSingleObject(hmutex,0)<>WAIT_TIMEOUT then
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmRamz, frmRamz);
Application.CreateForm(TData, Data);
Application.CreateForm(TfrmMainForm, frmMainForm);
Application.Run;
end;
end;