delphi 编程技巧

				检测Delphi是否正在运行 (2001年4月19日) 
				
				网友更新  分类:系统   作者: Icebird(推荐)  推荐:Icebird   阅读次数:280  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				{检测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是否正在运行}