Détecter si Delphi est en cours d'exécution

{检测Delphi是否正在运行}

fonction DelphiIsRunning : booléen ;

const

A1 : tableau[0..12] de char = 'Tapplication'#0 ;

A2 : tableau[0..15] de char = 'TAlignPalette'#0 ;

A3 : tableau[0..18] de char = 'TPRopertyInspector'#0 ;

A4 : tableau[0..11] de char = 'TAppBuilder'#0 ;

{$IFDEF WIN32}

{$IFDEF VER130}

T1 : tableau[0..15] de char = 'Delphi 5'#0 ;

{$ENDIF}

{$IFDEF VER120}

T1 : tableau[0..15] de char = 'Delphi 4'#0 ;

{$ENDIF}

{$IFDEF VER100}

T1 : tableau[0..15] de char = 'Delphi 3'#0 ;

{$ENDIF}

{$IFDEF VER90}

T1 : tableau[0..15] de char = 'Delphi 2.0'#0 ;

{$ENDIF}

{$IFDEF VER93}

T1 : tableau[0..15] de char = 'C++Builder'#0 ;

{$ENDIF}

{$IFDEF VER110}

T1 : tableau[0..15] de char = 'C++Builder'#0 ;

{$ENDIF}

{$IFDEF VER125}

T1 : tableau[0..15] de char = 'C++Builder 4'#0 ;

{$ENDIF}

{$ELSE}

T1 : tableau[0..15] de char = 'Delphi'#0 ;

{$ENDIF}

commencer

Résultat := (FindWindow(A1,T1)<>0) et

(FindWindow(A2,nil)<>0) et

(FindWindow(A3,nil)<>0) et

(FindWindow(A4,nil)<>0);

fin;

{检测Delphi是否正在运行}