摘要载入中… 请稍等…
内容载入中… 请稍等…
摘要载入中… 请稍等…
内容载入中… 请稍等…
| ◎→ | 本类最新 |
|
在DELPHI中映射网络驱动器 在Delphi中实现对目录拷贝、删除 在Delphi中接受文件拖放 在Delphi中定位文件位置 用代码打开屏幕保护 用Delphi编程得到OS的类型 用Delphi编码实现程序自启动 |
|
| ◎→相关资源 | |
| C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件 | |
| ◎→ | 热门资源 |
| Intel研发出20Gbps网线 建立Win2000 VPN服务器(1) 建立Win2000 VPN服务器(1) 用Delphi开发两层体系的数据库应 检测、建立数据库别名和表格 减少文件路径名的长度 监视Pop3信箱 |
|
{检测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是否正在运行}
芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们
|