本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);var FileToFind: string;begin FileToFind := SysUtils.FileSearch(Edit1.Text, GetCurrentDir); if FileToFind = '' then ShowMessage('Couldn''t find ' + Edit1.Text + '.') else ShowMessage('Found ' + FileToFind + '.');end;
procedure TForm1.FormCreate(Sender: TObject);begin Label2.Caption := GetCurrentDir;end;
相关阅读 >>
Delphi2010中Delphi class explorer妙用
Delphi adoconnection1连接mssql数据库方法
更多相关阅读请进入《Delphi》频道 >>