atutils.inc

来自「Suite of components to add scripting cap」· INC 代码 · 共 24 行

{$IFNDEF REGISTERED}
const SNotRegistered = 'Automa atPascal Scripter not registered. '+
   'Please register it at http://www.automa.com.br/delphi';
                   
function DelphiRunning : boolean;
var
  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;
{$ENDIF}