Printable View
سلام دوستان . من می خوام برنامم بیش تر از یک بار توسط هر کاربر باز نشه . یعنی اگه یک بار برنامه رو Run کرده بود اگر برای بار دوم اقدام به باز کردن برنامه کرد یه پیغام بده که مثلا این نرم افزار قبلا باز شده . اگر از دوستان کسی یونیت و یا کدی برای این کار داره ممنون می شم . با تشکر .
از registry
یا بانک
ویا فایل stream
ویا text
استفاده کن
این راحتترین راحشه
میشه بیشتر توضیح بدین . ممنون میشن .نقل قول:
سلام یک متغیر تعریف کرده و سپس از داخل این مواردی که گفتم اول ساخت فرمتون مقدار دهی کرده سپس در صورت بر قرار نبودن شرط برنامه را close کنید
بهترین و ساده ترین راه استفاده از Mutex هست. برای اینکار کد پروژه رو با رفتن به منوی Project > View Source باز کنید و کد زیر رو بنویسید. (من کل سورس پروژه رو مینویسم تا بهتر متوجه بشید)
کد:
uses Forms, Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
Mutex : THandle;
begin
Mutex := CreateMutex(nil, True, 'My_Unique_Application_Mutex_Name');
if (Mutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then
begin
// code to searh for, and activate
// the previous (first) instance
end
else
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
if Mutex <> 0 then CloseHandle(Mutex);
end;
end;
end.
سلام
با استفاده از كامپوننت : مثل : acOnlyOne
يا با كد :
کد:http://www.swissdelphicenter.ch/en/showcode.php?id=42
خیلی ممنون از کدی که دادید . کارمو راه انداخت . مرسی .نقل قول: