Mirror

Check if Delphi is running (Views: 100)


Problem/Question/Abstract:

How to check if Delphi is running

Answer:

function DelphiRunning: Boolean;
var
  H1, H2, H3, H4: HWnd;
const
  A1: array[0..12] of char = \ 'TApplication\'#0;
  A2: array[0..15] of char = \ 'TAlignPalette\'#0;
  A3: array[0..18] of char = \ 'TPropertyInspector\'#0;
  A4: array[0..11] of char = \ 'TAppBuilder\'#0;
  T1: array[0..6] of char = \ 'Delphi\'#0;
begin
  H2 := FindWindow(A2, nil);
  H3 := FindWindow(A3, nil);
  H4 := FindWindow(A4, nil);
  Result := (H2 <> 0) and (H3 <> 0) and (H4 <> 0);
end;

<< Back to main page