if fileexists(path+'*.exe') then showmessage('ok');
记得给分
记得给分
解决方案 »
- SQL语句问题求助
- 怎么把Panel1内的所有控件的Enabled属性设为false
- 有谁用过LeadTools V14? 急!!!
- 我的程序中的图标颜色怎么突然都变了?
- ExpressQuantumGrid问题
- 救救我吧,关于神龙DVD硬解压卡的卡发,答者有分
- [菜鸟问题]怎样截获数据库的错误信息?
- 在打印报表时如何处理组件QRDBText的数字字段过长的问题(急)
- 在三层结构中,我想在客户端体现出主从表的记录,就象两层的一样,主表变化,从表也变化,应该怎么实现??谢谢。
- 关于数据库中字段属性的问题,为什么字段值显示为MEMO,它是什么类型,我在DBGRID上该如何显示。
- 关于扫描图象问题
- 是 Delphi 的问题,还是我的?
f : TsearchRec;
path : strings;
begin
path := GetCurrentDir; //or the path you want
if (findFirst(path + '\*.exe',faArchive ,F) = 0 ) then
begin
ShowMessage('find a exe file');
while FindNext(F) = 0 do //Find all *.exe files
end;
end;