Author: Lou Adler How to check if Delphi is running Answer: 1 function DelphiRunning: Boolean; 2 var 3 H1, H2, H3, H4: HWnd; 4 const 5 A1: array[0..12] of char = \ 'TApplication\'#0; 6 A2: array[0..15] of char = \ 'TAlignPalette\'#0; 7 A3: array[0..18] of char = \ 'TPropertyInspector\'#0; 8 A4: array[0..11] of char = \ 'TAppBuilder\'#0; 9 T1: array[0..6] of char = \ 'Delphi\'#0; 10 begin 11 H2 := FindWindow(A2, nil); 12 H3 := FindWindow(A3, nil); 13 H4 := FindWindow(A4, nil); 14 Result := (H2 <> 0) and (H3 <> 0) and (H4 <> 0); 15 end;