Detectar si Delphi se está ejecutando

{检测Delfos是否正在运行}

función DelphiIsRunning: booleana;

constante

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

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

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

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

{$IFDEF WIN32}

{$IFDEF VER130}

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

{$ENDIF}

{$IFDEF VER120}

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

{$ENDIF}

{$IFDEF VER100}

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

{$ENDIF}

{$IFDEFVER90}

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

{$ENDIF}

{$IFDEF VER93}

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

{$ENDIF}

{$IFDEF VER110}

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

{$ENDIF}

{$IFDEF VER125}

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

{$ENDIF}

{$MÁS}

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

{$ENDIF}

comenzar

Resultado: = (BuscarVentana(A1,T1)<>0) y

(BuscarVentana(A2,nil)<>0) y

(BuscarVentana(A3,nil)<>0) y

(BuscarVentana(A4,nulo)<>0);

fin;

{检测Delfos是否正在运行}