Einzelnen Beitrag anzeigen

freakfly
(Gast)

n/a Beiträge
 
#2

Re: Mit CreateProcessWithLogonW PDF starten? Alternative?

  Alt 15. Dez 2004, 10:07
Hmmm.. Ich versuch gerade erst MSDN-Library durchsuchenLogonUser und dann ShellExecute zu machen, aber irgendwie will das nicht funzten!

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var bStart : boolean;
    s : string;
    h : THandle;
begin
  bStart := false;
  application.showmainform := false;
   //ParamStr (1)
   bStart := LogonUser(
      'user23',
      'mydomain',
      '007',
      LOGON32_LOGON_NETWORK,
      LOGON32_PROVIDER_DEFAULT,
      h);
    if not bStart then
      begin
          str(getLastError,s);
          showMessage('Prozess konnte nicht erstellt werden:'+ #13+
            SysErrorMessage(Strtoint(s)));
            Application.Terminate;
      end
    else
      begin
        ShellExecute(Application.Handle,'open',PCHar('\\server1\user23$\home.pdf'),nil,nil,sw_ShowNormal);
       // Application.Terminate;
      end;
end;
Weiss jemand warum das nicht geht, oder hat Tips zum Thema?

Gruß, freakfly
  Mit Zitat antworten Zitat