Определить, запущен ли Delphi

{检测Delphi是否正在运行}

функция DelphiIsRunning: Boolean;

константа

A1: массив [0..12] char = 'Tapplication'#0;

A2: массив [0..15] char = 'TAlignPalette'#0;

A3: массив [0..18] char = 'TPRopertyInspector'#0;

A4: массив [0..11] char = 'TApBuilder'#0;

{$IFDEF WIN32}

{$IFDEF VER130}

T1: массив [0..15] char = 'Delphi 5'#0;

{$ENDIF}

{$IFDEF VER120}

T1: массив [0..15] char = 'Delphi 4'#0;

{$ENDIF}

{$IFDEF VER100}

T1: массив [0..15] char = 'Delphi 3'#0;

{$ENDIF}

{$IFDEF VER90}

T1: массив [0..15] char = 'Delphi 2.0'#0;

{$ENDIF}

{$IFDEF VER93}

T1: массив [0..15] char = 'C++Builder'#0;

{$ENDIF}

{$IFDEF VER110}

T1: массив [0..15] char = 'C++Builder'#0;

{$ENDIF}

{$IFDEF VER125}

T1: массив [0..15] char = 'C++Builder 4'#0;

{$ENDIF}

{$ELSE}

T1: массив [0..15] char = 'Delphi'#0;

{$ENDIF}

начинать

Результат: = (FindWindow(A1,T1)<>0) и

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

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

(НайтиОкно(A4,ноль)<>0);

конец;

{检测Delphi是否正在运行}