WinExec

[Volkogriz]

Доброе Время суток!
Подскажите пожалуйста как переделать это:

Windows.WinExec(PChar(Label2.Caption), SW_NORMAL);

В вот это:

var
si : Tstartupinfo;
p : Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,'gamexp.exe',nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Application.Restore;
end;

Заранее благодарен!!!
С уважением Volkogriz!

[Volkogriz]

Блин стоила спрасить как кзнал!!!)))

var
  si: Tstartupinfo;
  p: Tprocessinformation;
  AppName_str: array[0..255] of Char;
begin
    StrPCopy(AppName_str, Label2.Caption);
    FillChar( Si, SizeOf( Si ) , 0);
  with Si do
   begin
     cb := SizeOf( Si);
     dwFlags := startf_UseShowWindow;
     wShowWindow := 4;
   end;
    Application.Minimize;
    Createprocess(nil, AppName_str, nil, nil, false, Create_default_error_mode, nil, nil, si, p);
    Waitforsingleobject(p.hProcess, infinite);
    Application.Restore;
end;

С уважением Volkogriz!