Вызов командной строки

[djein]

Как можно сделать в Delphi обращение к командной строке? Есть ли какая-нибудь функция?
Например: существует адрес папки, и неодходимо с помощью команды DIR в определенный файл записать все файлы из этой папки с расширениями...

[RXL]

ShellExecute()

Кошерней было бы открыть директорию, открыть файл и пролистать содержимое директории.

[zubr]

Запускаешь cmd.exe с параметрами командной строки. Для запуска можно воспользоваться функциями CreateProcess, ShellExecute (MSDN)

А вообще лучше, как посоветовал RXL или еще удобнее воспользоваться функцией SHFileOperation (MSDN), тогда не нужно перечисление файлов FindFirst, FindNext.

[djein]

Подскажите, пожалуйста, как воспользоваться функцией SHFileOperation (MSDN)?

[zubr]

Хмм... А самому почитать MSDN слабо?
Вот примеры:

Код:

uses ShellAPI;

//Копирование каталога
procedure CopyDir(SourceDir, DestDir: string);
var
  shlfl: TSHFileOpStruct;
  s: string;
  sr: TSearchRec;
begin
  If FindFirst(DestDir, faDirectory, sr) <> 0 then
  CreateDir(DestDir)
  else
  FindClose(sr);

  shlfl.Wnd := 0;
  shlfl.wFunc := FO_COPY;
  s := SourceDir + '*.*' + #0#0;
  shlfl.pFrom := PChar(s);
  shlfl.pTo := PChar(DestDir + '\');
  shlfl.fFlags := FOF_NOCONFIRMATION + FOF_NOERRORUI;
  shlfl.fAnyOperationsAborted := False;
  SHFileOperation(shlfl);
end;

//Удаление каталога
procedure DeleteDir(Dir: string);
var
  shlfl: TSHFileOpStruct;
  F:TSearchRec;
  s: string;
begin
  If FindFirst(Dir, faDirectory, F) <> 0 then
  exit
  else
  FindClose(F);
  shlfl.Wnd := 0;
  shlfl.wFunc := FO_DELETE;
  s :=  Dir + '\*.*' + #0#0;
  shlfl.pFrom := PChar(s);
  shlfl.pTo := nil;
  shlfl.fFlags := FOF_NOCONFIRMATION + FOF_NOERRORUI;
  shlfl.fAnyOperationsAborted := False;
  SHFileOperation(shlfl);
  RemoveDirectory(PChar(Dir));
end;

[glGizma]

uses ShellApi,

Код:

ShellExecute(handle, nil,'cmd.exe','control userpasswords','', SW_SHOWNORMAL);