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

• #1972 zka67 őstag D@ni88 #1971

  Új Válasz 2014-01-24 00:30:11 #1972

  Ú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

  

  zka67

  őstag

  válasz D@ni88 #1971 üzenetére

  Szia, ezt próbáld ki, nekem működik:

  function Execute(FileName, Params : string; Show : integer = SW_HIDE) : boolean;
  var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
  begin
  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
  with SEInfo do begin
  fMask := SEE_MASK_NOCLOSEPROCESS;
  Wnd := Application.Handle;
  lpFile := PChar(FileName) ;
  lpParameters := PChar(Params);
  nShow := Show;
  end;
  if ShellExecuteEx(@SEInfo) then begin
  repeat
  Application.ProcessMessages;
  GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
  until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
  Result := true;
  end
  else begin
  ShowMessage('Program file not found!') ;
  Result := false;
  end;
  end;
  
  procedure TForm1.Button3Click(Sender: TObject);
  begin
  Execute('acrord32', 'filename.pdf', SW_NORMAL);
  end;

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