Выполнение командной строки в Delphi

[Alar]

перенесено со старого форума. сообщение от koder0.

Ребяты! А кто подскажет как в с помощю своей программы запустить на выполнение другую программу? Или определенную строчку выполнить как в командной строке cmd утилитки Windы?

перенесено со старого форума. сообщение от plague.

function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST;

hWnd: Хендл родителя запускаемого приложения.

Operation: Строка определяющая команду для исполнения.

FileName: Определяет имя файла или папки для открытия или печати.

Parameters: определяет параметры передаваемые при запуске исполняемого приложения. Параметр можеть быть равен Nil.

Directory: рабочий каталог.

ShowCmd: определяет режим открытия файла.

Пример из программы:

var commanda:string;
begin
commanda:='a -e arc\'+inttostr(round(date*time))+' base'; ShellExecute(application.MainForm.H andle,nil,pchar('arj'),pchar(comman da),'',SW_SHOWNORMAL);
end;

архивируется католог Base с помощью архиватора arj