Új hozzászólás Aktív témák

• #846 _AnTi_ tag wolffy #845

  Új Válasz 2005-06-21 20:17:28 #846

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  _AnTi_

  tag

  válasz wolffy #845 üzenetére

  Valószínűleg egy kis tökéletesítésre szorul, de ezen el tudsz indulni. Egy edit mezőben van a futtatandó program elérési útja és neve.
  
  

  
  implementation
  uses shellAPI;
  {$R *.DFM}
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
    startupinfo : Tstartupinfo;
    processinfo : Tprocessinformation;
    command : array [0..512] of Char;
    success : boolean;
  begin
    strpcopy(command, edit1.text);
    fillchar(startupinfo, sizeof(startupinfo), #0);
    startupInfo.wShowWindow:=SW_SHOWNORMAL;
    startupinfo.cb:=sizeof(startupinfo);
    startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
    Success:=CreateProcess(nil, command, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
    nil, nil, Startupinfo, Processinfo);
  {  if success then
      label2.Caption:='Minden ok!'
    else
      label2.Caption:='Valami nem jó!';}
  end;
  

  
  
  Sok Sikert!

Új hozzászólás Aktív témák