检测Delphi是否正在运行

检测Delphi是否正在运行http://www.tommstudio.com(2001年4月19日)  作者: Icebird(推荐)    推荐:Icebird

{检测Delphi是否正在运行}function DelphiIsRunning: Boolean;constA1: 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}beginResult := (FindWindow(A1,T1)<>0) and(FindWindow(A2,nil)<>0) and(FindWindow(A3,nil)<>0) and(FindWindow(A4,nil)<>0);end;{检测Delphi是否正在运行}