ตรวจสอบว่า Delphi กำลังทำงานอยู่หรือไม่

{ 检测Delphi是否正在运行}

ฟังก์ชั่น DelphiIsRunning: บูลีน;

ค่าคงที่

A1: array[0..12] ของ char = 'Tapplication'#0;

A2: array[0..15] ของ char = 'TAlignPalette'#0;

A3: array[0..18] ของ char = 'TPROpertyInspector'#0;

A4: array[0..11] ของ char = 'TAppBuilder'#0;

{$IFDEF ชนะ32}

{$IFDEF VER130}

T1: array[0..15] ของ char = 'Delphi 5'#0;

{$ENDIF}

{$IFDEF VER120}

T1: array[0..15] ของ char = 'Delphi 4'#0;

{$ENDIF}

{$IFDEF VER100}

T1: array[0..15] ของ char = 'Delphi 3'#0;

{$ENDIF}

{$IFDEF VER90}

T1: อาร์เรย์[0..15] ของถ่าน = 'Delphi 2.0'#0;

{$ENDIF}

{$IFDEF VER93}

T1: array[0..15] ของ char = 'C++Builder'#0;

{$ENDIF}

{$IFDEF VER110}

T1: array[0..15] ของ char = 'C++Builder'#0;

{$ENDIF}

{$IFDEF VER125}

T1: array[0..15] ของ char = 'C++Builder 4'#0;

{$ENDIF}

{$ELSE}

T1: array[0..15] ของ char = 'Delphi'#0;

{$ENDIF}

เริ่ม

ผลลัพธ์ := (FindWindow(A1,T1)<>0) และ

(FindWindow(A2,ไม่มี)<>0) และ

(FindWindow(A3,ไม่มี)<>0) และ

(FindWindow(A4,ไม่มี)<>0);

จบ;

{ 检测Delphi是否正在运行}