Chris and others,
I should point out that there is a problem with these solutions -
depending on why you want to know. If you want only one copy running,
then there are occassions where this will fail.
Its windows timing related. If you happen to have users with twitchy
hands they can often launch 2 or 3 instances of the app almost
simultaneously. And in practice, about 1 in 30 users manage to run
2 apps (that fail this test) a few times a week. :-)
I now, monitor this continuously (every 5mins or so) while the app is
running and bail out when detected. The one that started first bails
out first. :-)
On 10 Jun 99 at 16:20, Chris Crowe wrote:
> I suppose if you wrote them yourself, you could quite easily check the class
> string for the form.
>
> Eg: if the form's name is MyDelphiForm, then the class should be
> TMyDelphiForm.
>
> To see if it is running...
>
> Var
> WindowHandle : HWND;
> FileName : String;
> begin
> WindowHandle := FindWindow('TMyDelphiForm', nil);
> if (WindowHandle = 0) then
> begin
> FileName := 'MyFilename.exe';
> if (WinExec(pchar(FileName), sw_ShowNormal) < 32) then
> WarningBox('Unable to start Application!'+#13#13+FileName);
> end;
> end;
>
> chris
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Simon Mahony
> Sent: Thursday, 10 June 1999 13:34
> To: Multiple recipients of list delphi
> Subject: [DUG]: Finding out if a specific application is running (under
> NT)
>
>
> I have a feeling that this was covered a few months ago, but I've lost my
> mail folder, so I have to ask again.
> Using D4, how do you find out if a specific appliction is currently
> running. I have to write a program (similar to the Interbase Guardian)
> which runs all the time and checks regularly to see if a couple of our
> communication programs are up and running. If they have crashed, or self
> terminated, (or some ignorant noddy has turned them off so he can use MS
> Access) it has to restart them.
>
> While I'm at it, can anyone point me to the DUG mailing list archive
> website ?
>
> Cheers,
> Simon Mahony,
> MetService.
> ---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
> ---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
Rohit
======================================================================
CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New Zealand
PH (649) 489-2280
FX (649) 489-2290
email [EMAIL PROTECTED] or [EMAIL PROTECTED]
======================================================================
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
