Большой Воронежский Форум
» Программирование>Вопрос по Delphi
Арх 17:30 07.03.2006
Какая комманда в Delphi 6 запускает комманды коммандной строки? :-)
Например надо выполнить Format c: :-)
[Ответ]
Yandex 18:32 07.03.2006
Выбирай на вкус.
Код:
uses ShellAPI;
...
  ShellExecute 
или  
  WinExec 
...
// на чистом API
//Создает процесс, определяемый командной строкой CommandLine
//Ограничение: длина CommandLine не может превосходить 256 символов!
procedure Execute(CommandLine: String);
var
  SI : TStartUpInfo;
  P : TProcessInformation;
begin
if CommandLine='' then exit;

FillChar( SI, SizeOf(SI),0);

SI.cb := SizeOf( Si);
SI.dwFlags := startf_UseShowWindow;
SI.wShowWindow := SW_HIDE;  //не показывать окно процесса

CreateProcess(nil,PChar(CommandLine),nil,nil,False,CREATE_DEFAULT_ERROR_MODE,nil,nil,SI,P);

WaitForSingleObject(P.hProcess, Infinite);

CloseHandle(P.hProcess);
CloseHandle(P.hThread);
end;
[Ответ]
Вверх