برنامه تست اینکه برنامه در حال اجرا می‌باشد.

[davoodmz]

با سلام
من کد این برنامه را در اینجا قرار می‌دهم لطفاً کمک کنید و اصلاحش کنید
من می خواهم بعد از اینکه تشخیص داد که در حال اجرا است دیگر اجرا نشود و فرم اصلی باز نشود.یعنی بعد از پیغام در حال اجرا هیچ عملی انجام نشود.


Function IsRunningApp:Boolean;
var
Hwnd:Thandle;
begin
hwnd:=CreateMutex(nil,False,'OneCopyMutex');
Result:=false;
If not(WaitForSingleObject(Hwnd,0)<>Wait_TimeOut) then
Result:=true;
end;
بعد در onActivate فرم اصلی


if IsRunningApp = True then
MessageBox(Handle, 'program is runnig', '', MB_OK+MB_ICONEXCLAMATION);

بعد از پیغام چه کدی قرار دهیم تا دیگر برنامه اجرا نشود.
باتشکر

[m-khorsandi]

میتونی از Application.Terminate استفاده کنی.

اگه تو فایل اصلی پروژه ات شبیه به کد زیر رو هم بنویسی جواب میگیری:


if not IsRunningApp then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;

[mzjahromi]

من کد این برنامه را در اینجا قرار می‌دهم لطفاً کمک کنید و اصلاحش کنید
من می خواهم بعد از اینکه تشخیص داد که در حال اجرا است دیگر اجرا نشود و فرم اصلی باز نشود.یعنی بعد از پیغام در حال اجرا هیچ عملی انجام نشود.
البته این روش برای حالتی که دو کاربر مختلف برنامه رو اجرا کنن جواب نمی ده

[davoodmz]

باسلام
من تمام این راه ها را رفتم ولی جواب نگرفتم. در خود پروژه قرار دادم - در فرم اصلی قرار دادم ولی بعد از پیغام هیچ عملی انجام نمی‌شود.
باتشکر
داود

[dkhatibi]

if IsRunningApp = True then begin
MessageBox(Handle, 'program is runnig', '', MB_OK+MB_ICONEXCLAMATION);
Application.terminate;
end;

[davoodmz]

آقایان باتشکر
مشکل حل شد