[true]

Приветствую, подскажите пожалуста что здесь не так?

Код:

var
  str:TStringList;
  i:integer;
begin
  str:=TStringList.Create;
  str.LoadFromFile('prompt.txt');
  for i:= 0 to str.Count - 1 do
  WinExec(PANSIChar(str.Strings[i]),SW_SHOW);

Код выполняется но команды не выполняются что прописаны в prompt.txt

[M.A.D.M.A.N.]

WinExec - стремная функция, используй ShellExecute.

[true]

Я немного разобрался, в Delphi 7 все пошло нормально, а ShellExecute помоему тяжелая функция, да и пробывал с ней не все получалось. я хочу сделать типа своей командной строки, чтобы юзеров не смущать черными окошками, есть смысл отлавливать окна командной строки или есть более нормальный способ?

[robt]

Сообщение от true

я хочу сделать типа своей командной строки, чтобы юзеров не смущать черными окошками

чозабред, настрой чтоб были белыми раз смущают черные

[M.A.D.M.A.N.]

Чорные окошки - это консольные приложения.

[Pyro]

ShellExecute помоему тяжелая функция

вроде этого можно

Код:

procedure run(filename: string; para: string = ''; dir: string = '');
  function pchar2(s: string): pchar;
  begin
    if s = '' then
      result := nil
    else
      result := pchar(s);
  end;
begin
  ShellExecute(0, 'open', PChar(filename), pchar2(para), pchar2(dir), SW_SHOWNORMAL);
end;

[M.A.D.M.A.N.]

Вообще правильнее было бы вызывать CreateProcess.

[robt]

Сообщение от M.A.D.M.A.N.

Чорные окошки - это консольные приложения.

я про них и писал

[true]

Спасибо за ответы, еще один вопросик, можно ли узнать завершила ли коммандная строка действие, если завершила то пустить дальше цикл?

[NumLock]

CreateProcess / WaitForSingleObject