داشتم دنبال یه سوال می گشتم به این کد برخوردم.حیفم اومد برنامه خطای منظقی داشته باشه و به خاطر یه اشتباه تایپی نتیجه مناسب رو نده (با اینکه 3 سال از آخرین پست می گذره ولی من کد رو دوباره گذاشتم )
به جای علامت بزرگتر باید کوچکتر گذاشته شود وگرنه برنامه اصلا اجرا نمی شودو دائما خارج می گردد
program Project1;
uses
windows,Dialogs,
Forms,
Unit1 in 'Unit1.pas' {Form1};
Var
HMutex : THandle;
{$R *.res}
begin
HMutex := Createmutex ( nil, false , 'OneCopyMutex');
if WaitForSingLeobject ( HMutex , 0 )< Wait_Timeout then
Begin
Application.Initialize ;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else showmessage('already run');
end.
با تشکر از شما. اما من از این کد که استفاده کردم، در زمان اجرا خطاهای زیر را نشان میدهد و برنامه اجرا نمیشود.