比如:
我想把:c:\temp目录下的所有文件(
c:\temp\a.exe;
c:\temp\temp2\aac.exe;
c:\temp\temp3\byc.exe;
............................
找出来,连同路径一起放入tstrings里面!!!
谢谢!!!
我想把:c:\temp目录下的所有文件(
c:\temp\a.exe;
c:\temp\temp2\aac.exe;
c:\temp\temp3\byc.exe;
............................
找出来,连同路径一起放入tstrings里面!!!
谢谢!!!
解决方案 »
- 如何利用DELPHI编写IE扩展
- Delphi中如何调用存储过程??步骤????
- 暴希奇的事啊~~~!!!
- 在线急!急!急!(一个简单的小问题)
- 为什么 Delphi 仍有很好的未来?
- 请教
- 向高手请教!用URLDownloadToFile下载文件如何用进度条跟踪下载进度?
- 如何用自己的程序使其它应用程序暂停运行!!!!!
- 我是一名DELPHI的初学者。有一个不懂
- 怎样select 出重复的记录后删除,sql how to 写?
- (都用了好几百分了,难道真的没人解决),用TIdSMTP连接smtp.163.com发邮件时提示:System busy;
- 我可不可以用Ado或BDE直接去连接linux上的oracle数据库!
uses
Windows,Forms, SysUtils, Variants, Classes, Controls, ComCtrls,
StdCtrls, ButtonXPMACCorel,Messages, ShellCtrls;var
i:integer;
searchRec:TsearchRec;
seat:string;
begin
filepa:=stv1.SelectedFolder.PathName;
filepa:=filepa+'\';
if (FindFirst(filepa+'.*', faAnyFile-faDirectory, SearchRec)=0) then
begin
Form1.ListBox1.Items.Add(filepa+searchrec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(filepa+searchrec.Name);
end;
FindClose(SearchRec);
end;
close;
end;
当然你可以不要那个控件,自己把filepa改成目录名!ok了!祝你好运!
当然你可以把TListBox控件换成TString