[UFO 007]

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

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

Код:

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

Код:

Пол-дня бьюсь как об стену и так:
  s:=ExtractFilePath(Application.ExeName);
  StrPcopy(wamp, s);
  strcat(wamp, pchar('winamp\winamp.exe'));
  CreateProcess(wamp,nil,nil,nil,false,CREATE_DEFAULT_ERROR_MODE or NORMAL_PRIORITY_CLASS,nil,nil,si,pi);
и так:
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],'Fault process',MB_OK+MB_ICONERROR);
end;
end;

вызов:
s:=ExtractFilePath(Application.ExeName) + 'winamp\winamp.exe';
run (s);
а в ответ тишина ... и от одной и от другой кнопки - что не так? И вообще: как это у людей работает?