sounds good :) it seems the solution of charlie gives a deeper control.
----- Original Message ----- From: "Theodoros Bebekis" <[email protected]> To: <[email protected]> Sent: Saturday, February 28, 2009 8:48 PM Subject: Re: [delphi-en] Process run check O/H mauro russo Ýãñáøå: > Dear, > > how to check if an .exe is in execution? > > In practice I would like to be sure that, if a my application A1 faults > and is closed, it is automatically restarted. > I thought to use a secondary very simple deamon application A2 which > checks if A1 is in execution and, if not, launches it by ShelExecute. > Moreover A1 does the same with A2. > > Really I would like to use a S.O. resource to make A1 and A2 periodically > "speaking" each other. So, if A1 is running, but hanging, A2 can choose to > Terminate it and restart it. > > I believe there is some simplier way to obtain my goal, but I am not > expert > about windows API. > > Some help? > > Regards, > Mauro. use a named mutex object with the same name in both, your deamon (A2) and your app (A1). Your deamon periodically checks for the existence of the mutex. If the mutex doesn't exist it means the A1 is not running. That way even if your app moves to another location (folder) your check will be valid. program App; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} const MutexName = '{04A2E5A9-2CE5-43BC-962B-31DF23C6A3A0}'; var hMutex : THandle; begin hMutex := CreateMutex(nil, False, PChar(MutexName)); try Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; finally CloseHandle(hMutex); end; end. ------------------------------ Deamon app function AppIsRunning: Boolean; const MutexName = '{04A2E5A9-2CE5-43BC-962B-31DF23C6A3A0}'; var hMutex : THandle; begin hMutex := CreateMutex(nil, False, PChar(MutexName)); try Result := GetLastError() = ERROR_ALREADY_EXISTS; finally CloseHandle(hMutex); end; end; procedure TForm2.Button1Click(Sender: TObject); begin if AppIsRunning then ShowMessage('Running') else ShowMessage('NOT Running'); end; -- Regards Theo ------------------------ Theo Bebekis Thessaloniki, Greece ------------------------ The resource you are looking for has been removed, had its name changed, or is temporarily unavailable. ------------------------ Greek_Delphi_Prog : a Delphi Programming mailing list in Greek at http://groups.yahoo.com/group/Greek_Delphi_Prog CSharpDotNetGreek : A C# and .Net mailing list in Greek language at http://groups.yahoo.com/group/CSharpDotNetGreek atla_custom : a Unisoft Atlantis Customization mailing list at http://groups.yahoo.com/group/atla_custom ------------------------ ------------------------------------ ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [email protected]! Groups Links ---------- Questa email è stata verificata dal sistema centralizzato antivirus della UniPlan Software [Non-text portions of this message have been removed] ------------------------------------ ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [email protected]! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/delphi-en/join (Yahoo! ID required) <*> To change settings via email: mailto:[email protected] mailto:[email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
