Нужен пример запуска программы с параметрами на delphi. Например, чтоб открыть CD-ROM мне надо дать команду proba.exe -o , а для закрытия proba.exe -c.
Заранее благодарен
Заранее благодарен
function ParamStr(Index: Integer): string;
но у меня получилось вот так на delphi 7
procedure TForm1.Button1Click(Sender: TObject);
var SInfo: STARTUPINFO;
PInfo: PROCESS_INFORMATION;
CommandLine: AnsiString;
AppPath: PChar;//Если ставлю ansistring - ошибка совместимости типов для AppPath
//параметра в теле функции CreateProcess (несовместимость String И PChar); Если Pchar
//то AppPath:=... не проходит по несовместимости типов
begin
//AppPath:= 'C:\totalcmd\';//ExtractFilePath(Application.ExeName);//Никакие комбинации
//не цепляют файло на запуск
CommandLine:= 'totalcmd.exe';
CreateProcess(nil,PChar(CommandLine), CREATE_DEFAULT_ERROR_MODE,nil,
AppPath,
SInfo,PInfo);
ShowMessage(Commandline);
end;
uses ShellAPI
ShellExecute(Handle,'Open','c:\totalcmd\totalcmd.exe',nil,nil,SW_SHOWNORMAL)
Страницы: 1
Предыдущая тема: Какой язык программирования учить?