اكتشاف ما إذا كان دلفي قيد التشغيل

{检测دلفي 否正在运行}

وظيفة DelphiIsRunning: منطقية؛

ثابت

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;

{$IFDEF WIN32}

{$IFDEF الإصدار 130}

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 الإصدار 93}

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

{$ENDIF}

{$IFDEF VER110}

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

{$ENDIF}

{$IFDEF VER125}

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

{$ENDIF}

{$آخر}

T1: المصفوفة[0..15] من char = 'Delphi'#0;

{$ENDIF}

يبدأ

النتيجة := (FindWindow(A1,T1)<>0) و

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

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

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

نهاية؛

{检测دلفي 否正在运行}