تشخیص بدهید برناه تان در حال اجرا است یا نه

[Keramatifar]

برنامه نویسان محترم بروسیله این کد می توانید تشخیص بدهیدک ه برنامه تاان در حاتل اجرا ی باشد یا نه:
Uses
Windows;

var
HMutext: THandle;

begin
HMutex :=CreateMutex (nil, 'OneCopyMutex');
if WaitForSingleObject (HMutex, 0) <> Wait-TimeOut then
Begin
Application.Initialize;