Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск и запуск

Автор: Delobr 12.3.2004, 00:30

Кто мне может скинуть дистрибутивчик проги, которая бы искала все EXE файлы в данном каталоге а потом запускала их.

Автор: Vit 12.3.2004, 00:37

Поиск: FindFirst/FindNext/FindClose
Запуск: ShellExecute

Автор: DriveSoftware 12.3.2004, 00:43

Лови

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  Dir: string = 'C:\Test\';
var
  SearchRec:TSearchRec;
begin
  If FindFirst(Dir+'*.exe', faAnyFile, SearchRec)=0 then
  repeat
    WinExec(PChar(Dir+SearchRec.Name), SW_SHOW);
  until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);
end;