home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Ipcdemos / monitor.dpr < prev    next >
Encoding:
Text File  |  1999-08-11  |  736 b   |  35 lines
  1. program monitor;
  2.  
  3. uses
  4.   Forms,
  5.   Windows,
  6.   IPCThrd in 'IpcThrd.pas',
  7.   MonForm in 'MonForm.pas' {MonitorForm},
  8.   TrcView in 'TrcView.pas' {TraceForm};
  9.  
  10. {$R *.RES}
  11.  
  12. { This routine checks for a previous instance of the monitor and if one is
  13.   found, brings it to the foreground and then exits }
  14.  
  15. procedure CheckPreviousInstance;
  16. var
  17.   H: THandle;
  18. begin
  19.   if IsMonitorRunning(H) then
  20.   begin
  21.     if IsIconic(H) then
  22.       ShowWindow(H, SW_RESTORE);
  23.     SetForegroundWindow(H);
  24.     Halt(0);
  25.   end;
  26. end;
  27.  
  28. begin
  29.   CheckPreviousInstance;
  30.   Application.Title := 'IPC Monitor Demo';
  31.   Application.CreateForm(TMonitorForm, MonitorForm);
  32.   Application.CreateForm(TTraceForm, TraceForm);
  33.   Application.Run;
  34. end.
  35.