Привет всем!
Народ я наверное торможу.
Ниже приведен код процедуры. Она должна запускать приложение, в общем в таком виде как она сейчас все работает, но есть строка она выделенная. В принципе она здесь не нужна, так как путь читается из файла в переменную Patch_, В переменную N читается имя файла без расширения, но казус в том что без этой строки процедура не работает , MessageBox выдает ошибку : "Ошибка при инициализации приложения (0xc0000142). Для выхода из приложения нажмите кнопку "ОК".", просветите пожалуйста?


procedure TMainForm.StartProgram(var Msg: TMessage);
var
ini: TIniFile;
Name, Patch_, s, N: string;
i,count,StartX_: integer;
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
s:= '';
StartInfo.cb := sizeof(StartInfo);
Name:= MainDirPatch+'IS.ini';
if FileExists(Name) then
begin
ini:= TIniFile.Create(Name);
try
count:= ini.ReadInteger('RunProgram','Count',0);
if count <> 0 then
for i:= 0 to count — 1 do begin
StartX_:= ini.ReadInteger('RunProgram','StartX_'+IntToStr(i), 0);
if StartX_ = Msg.WParam then begin
Patch_:= ini.ReadString('RunProgram','Patch_'+IntToStr(i), s);
//---------------------------------------------------------------------
N:= ini.ReadString('RunProgram','Name_'+IntToStr(i), s);
//---------------------------------------------------------------------
if (not CreateProcess(nil, PChar(Patch_), nil, nil,
false, NORMAL_PRIORITY_CLASS,
nil, nil, StartInfo, ProcInfo))
then MessageBox(0,PChar('Ошибка'+SysErrorMessage(GetLastError())),
'Ошыбка', 16);
end;
end;
finally
ini.Free;
end;
end;
end;