من برنامه ام در حال اجراست حالا نمی خواهم یه بار دیگه اجرا بشه

[محسن شمس]

منظورم اینه که اگر کاربر برنامه ام را اجرا کرد و از قبل هم این برنامه در حال اجرا بود پیغام بدهد و نگذارد اجرا شود

[Touska]

می تونی از یک کامپوننت در lmd استفاده کنید.

[محسن شمس]

قربان یه ذره بیشتر توضیح بده

[Touska]

اگر کامپوننت های Lmd رو داشته باشی مشکلت حله

http://www.lmd.de/products/

[mzjahromi]

من یه کامپوننت Just One هم دیدم همین کار رو می کرد

[محمد میرمصطفی]

1- یه object تو ویندوز هست به نام mutex که هر برنامه فقط می‏تونه با text مورد نظرش فقط و فقط یه باز ازش instance بگیره. اگه یه instance همنام text مورد نظر شما تو سیستم وجود داشته باشه، برای بار دوم ایجاد نمی شه. می تونی تو برنامه این کارو بکنی. اگه ساخته شد، دفعه اوله اگه پس برنامه قبلا یه بار اجرا شده.
2- به محض اجرای برنامه، موقتا Caption فرم اصلی برنامه رو rename کن. بعد FindWindow کن یا Caption اصلی. اگه پیدا شد، برنامه در دفعه دوم اجراست.

هر دو را 100% تست شده و عملیه

[babak869]

با گذاشتن این کامپوننت روی فرم از اجرای مجدد برنامه در حال اجرا جلوگیری خواهد کرد

[someCoder]

1- یه object تو ویندوز هست به نام mutex که هر برنامه فقط می‏تونه با text مورد نظرش فقط و فقط یه باز ازش instance بگیره. اگه یه instance همنام text مورد نظر شما تو سیستم وجود داشته باشه، برای بار دوم ایجاد نمی شه. می تونی تو برنامه این کارو بکنی. اگه ساخته شد، دفعه اوله اگه پس برنامه قبلا یه بار اجرا شده.
2- به محض اجرای برنامه، موقتا Caption فرم اصلی برنامه رو rename کن. بعد FindWindow کن یا Caption اصلی. اگه پیدا شد، برنامه در دفعه دوم اجراست.

هر دو را 100% تست شده و عملیه
جالب بود، مرسی

[Hamid_PaK]

یه راه سادش این هست که mutex بشه که تابع به این صورت است


function isInstance:Boolean;
var
_Handle:THandle;
begin
_Handle := CreateMutex(nil,True,'miMutexCopy PARS-DESIGN');
Result := False;
if not (WaitForSingleObject(_Handle,0)<>WAIT_TIMEOUT) then
Result := True;
end;


و یک راه دیگه که این روش کامل هست یک یونیت هست با نام CheckPrevious.pas و یک تابع داره با نام


function RestoreIfRunning( const AppHandle : THandle; MaxInstances : integer = 1) : boolean;

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

فایل رو ضمیمه می کنم ، یا حق ...

[Dolphin]

بابا ایول

اگه ممکنه در مورد mutex کمی توضیح عملی تر بفرمائید و کاربرد اون در چه جاهایی می تونه باشه ؟
ممنون

[ali_firouz_ir]

بابا تا اونجا که ما بلدیم لیست پروسس ها در کلاس پروسس هست ببین که تو لیست که نبودی بیابالا

[mzjahromi]

ولی مشکل Mutex اینه که اگه دو تا کاربر مختلف ایجادشون کنن میشه.
اگه راه حلی برای این دارید لطف کنین بگین. ممنون می شم

[سید مسعود موحد]

دوست عزیز
این لینک را یک نگاهی بینداز
http://www.delphi3000.com/articles/article_2724.asp?SK=

[ماریا وکیلی]

کامپونت آقای بابک موقع اجرا خطا می دهد

[babak869]

ورژن دلفی شما چیه؟ این کامپوننت برای دلفی 7 هستش و هیچ مشکلی نداره چون من همیشه توی برنامه هام ازش استفاده می کنم.احتمالا مشکل از نصب شماست
موفق باشید

[محمد میرمصطفی]

A mutex object is a synchronization object whose state is set to signaled when it is not owned by any thread, and nonsignaled when it is owned. Only one thread at a time can own a mutex object, whose name comes from the fact that it is useful in coordinating mutually exclusive access to a shared resource. For example, to prevent two threads from writing to shared memory at the same time, each thread waits for ownership of a mutex object before executing the code that accesses the memory. After writing to the shared memory, the thread releases the mutex object.


منبع : MSDN

[ماریا وکیلی]

بالاخره کار کرد

دست شما درد نکنه

مرسی

[sorrowdancer]

با گذاشتن این کامپوننت روی فرم از اجرای مجدد برنامه در حال اجرا جلوگیری خواهد کرد

با تشکر از آقا بابک کامپوننت جالبی بود

ولی جالب تر از اون فایل exe بود که در کنار کامپوننت قرار داشت و در مورد کامپوننت توضیح می داد

قالب فرم بسیار جالب بود!!. این با دلفی ساخته شده؟ چجوری؟!!

[Valadi]

فکر کنم بهترین راه و مطمئن ترین راه باید از registry باید استفاده کنی

در مورد registry در سایت سرچ کن

[sorrowdancer]

فکر کنم بهترین راه و مطمئن ترین راه باید از registry باید استفاده کنی
در مورد registry در سایت سرچ کن


!!
منظورتون رو نفهمیدم

اون یک کامپوننت Themes زیبا بود که بعنوان فرم استفاده شده بود و واقعاً ارتباطش با رجیستری نمیدونم چیه؟!!!!!:متفکر:

[mzjahromi]

@19
اگر کسی جواب سوال رو بلد نیست الزامی به جواب دادن نیست

[persianboy]

http://barnamenevis.org/forum/attachment.php?attachmentid=10228&d=1186842201

[sorrowdancer]

من نمیدونستم میشه قالب فرم رو عوض کرد
و دنبالش گشتم تا فهمیدم که باید از VCL Skin ها استفاده کنم و کلی VCL دانلود کردم

از آقا بابک هم به خاطر این کامپوننت که موجب میشه دوبار برنامه ران نشه و هم اون فایل توضیحی (http://barnamenevis.org/forum/attachment.php?attachmentid=1325&d=1131310043) که تو آتاچ قرار دادند و موجب یک انقلاب در برنامه هام شد سپاسگزارم

[سيد مجتبي هاشمي]

[quote=Touska;160309]اگر کامپوننت های Lmd رو داشته باشی مشکلت حله

میشه در مورد کامپوننت های Lmd توضیح بدی؟ ممنون میشم.

[سيد مجتبي هاشمي]

با گذاشتن این کامپوننت روی فرم از اجرای مجدد برنامه در حال اجرا جلوگیری خواهد کرد


ممنون از کامپوننتتون ولی من هر کاری کردم نصب نشد. (از منوی کامپوننت در قسمت نصیب کامپوننت) میشه روش صحیح نصبش رو توضیح بدین؟

[matinebi]

دوست عزیز لینکی که قرار دادید کلی لینک دانلود داره با کامپوننت های مختلف کدوم یکی از اون هاست لطفا لینک دانلود قرار دهید به جای سایت

[Mask]

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

[ahmadr]

می تونی از یکی از کامپوننتهای رایگان JVCL بنام JvAppInstances که در تب JV SYSTEM قرار دارد استفاده کنی. فقط کافیه اونو روی فرم بندازی بعد تمام. حتی توی این کامپوننت میتونی تعیین کنی برنامه ات چند بار اجرا بشه.
http://sourceforge.net/projects/jvcl

[matinebi]

چطور باید از کامپوننت 1 Time Exe استفاده کرد

[matinebi]

component\install component\info new package\
انتخاب یونیت و یک نام دلخواه در نهایت هم قرار دادن کامپوننت روی فرم

[سيد مجتبي هاشمي]

با گذاشتن این کامپوننت روی فرم از اجرای مجدد برنامه در حال اجرا جلوگیری خواهد کرد

ممنون از كامپوننت خوبي كه گذاشته بودين. اما يه مشكل داره و اون هم اينكه پس از نصب پيغام خطاي زير رو ميده. (لطفا عكس رو ببينيد يعني فايل error.rar)

[sarbandi]

با سلام بهتر از hwnd
استفاده کرد
روش استفاده از یک Timer و هندل
یک تایمر در فرم اصلی قرار دهید
و Interval آن را 100 قرار دهید بعد بر روی تایمر قطعه کد زیر را بنویسد



;(procedure TForm1.Timer1Timer(Sender: TObject
var
T: hwnd;
Begin
T:=FindWindow (nil,'...فرم اصلي');
If (t<>form1.Handle) then
SendMessage (t, WM_CLOSE, 0, 0);
end;
29681

این همه برنامه با اجراش
29682

[sarbandi]

البته به جای فرم اصلی...
نام فرم اصلی یا main from برنامه خود را قرار دهید
این قطعه کد برنامه ای که caption فرم ان با نام فرم اصلی یکی باشد به صورت اتوماتیک می بندد

[sarbandi]

البته به جای فرم اصلی در
قسمت
T:=FindWindow (nil,'...فرم اصلي');

نام فرم اصلی برنامه خود را قرار دهید
این قطعه کد نام برنامه ای که با برنامه شما یکی باشد را اتوماتیک می بنند

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

[سيد مجتبي هاشمي]

با سلام بهتر از hwnd
استفاده کرد
روش استفاده از یک Timer و هندل
یک تایمر در فرم اصلی قرار دهید
و Interval آن را 100 قرار دهید بعد بر روی تایمر قطعه کد زیر را بنویسد



;(procedure TForm1.Timer1Timer(Sender: TObject
var
T: hwnd;
Begin
T:=FindWindow (nil,'...فرم اصلي');
If (t<>form1.Handle) then
SendMessage (t, WM_CLOSE, 0, 0);
end;
29681

این همه برنامه با اجراش
29682


ممنون از كدي كه نوشتين. اما اگه لطف كنيد و كدهايي رو كه ميخواين بنويسين بين دوتا # قرار بدين كه درست نمايش داده بشه خيلي بهتره. همينطور اگه تورفتگي رو در كدنويسي رعايت كنيد مانند كد زير:



procedure TForm1.Timer1Timer(Sender: TObject);
var
T : hwnd;
Begin
T := FindWindow (nil,'...فرم اصلي');
If (t<>form1.Handle) then
SendMessage (t, WM_CLOSE, 0, 0);
end;

[سيد مجتبي هاشمي]

با گذاشتن این کامپوننت روی فرم از اجرای مجدد برنامه در حال اجرا جلوگیری خواهد کرد

آقاي بابك869 نميخواي بگي اين مشكل كه تو كامپوننتت هست چيه و چه طوري ميشه حلش كرد؟

[سيد مجتبي هاشمي]

آقاي Babak869 جواب نميدين؟