Hmmm.. Ich versuch gerade erst
LogonUser 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