检测Delphi是否正在运行

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

检测Delphi是否正在运行

http://www.tommstudio.com(2001年4月19日) 作者: Icebird(推荐) 推荐:Icebird

{检测Delphi是否正在运行}

function DelphiIsRunning: Boolean;

const

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 VER130}

T1: array[0..15] of char = 'Delphi 5'#0;

{$ENDIF}

{$IFDEF VER120}

T1: array[0..15] of char = 'Delphi 4'#0;

{$ENDIF}

{$IFDEF VER100}

T1: array[0..15] of char = 'Delphi 3'#0;

{$ENDIF}

{$IFDEF VER90}

T1: array[0..15] of char = 'Delphi 2.0'#0;

{$ENDIF}

{$IFDEF VER93}

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}

{$ELSE}

T1: array[0..15] of char = 'Delphi'#0;

{$ENDIF}

begin

Result := (FindWindow(A1,T1)<>0) and

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

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

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

end;

{检测Delphi是否正在运行}

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航