[UFO 007]

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

Запускаю exe-шник через CreateProcess

CreateProcess(filename, nil, nil, nil, False,
CREATE_DEFAULT_ERROR_MODE or NORMAL_PRIORITY_CLASS,
nil, nil, SUInfo, ProcInfo);

Пол-дня бьюсь как об стену, дошёл до:

Код:

procedure Run(App: String);
var
  ErrStr : String;
  PMSI: TStartupInfo;
  PMPI: TProcessInformation;
begin
try
  CreateProcess(nil, @App[1], nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, PMSI, PMPI);
except
  ErrStr := 'Fault run process: '''+App+'''';
  Application.MessageBox(@ErrStr[1],'Failure process',MB_OK+MB_ICONERROR);
end;
end;

Вызываю:
s:=ExtractFilePath(Application.ExeName) + 'winamp\winamp.exe';
run (s);
а в ответ - тишина.... всмысле: не могу запустить процесс winamp.exe. Что не так? - Не понимэ, хэлп ми плыз (хильфен мир битте)

P.S. A Delphi7 нормально эту функцию обрабатывает (или мож в Uses чо добавить?)