problem mit createprocesswithlogonW

[5etH]

Hallo Zusammen,

Hab ein Problem mit createprocesswithlogonW er erkennt es nicht hab ich vill ne spezielle uses vergessen, und muss ich immer einen totalen pfad angeben oder reicht zum beispiel auch einfach nur explorer.exe

Gruß Manu

[Luckie]

Es kann sein, dass Delohi die Funktion noch nicht kennt.

http://www.michael-puff.de/Artikel/C...thLogonW.shtml

PS: Eine korrekte Rechtsschreibung, Grammatik und Interpunktion würde es wesentlich vereinfachen deine Beiträge zu lesen und zu verstehen, was du eientlich willst.

[5etH]

bin leider momentan auf der Arbeit und kann den Link nicht öffnen, weil in der URL "puff" vorkommt.

könnt ihr mir anders behilflich sein ?

schonmal vielen Dank
Manu

[DeddyH]

Ich habe mal die Demo runtergeladen und hänge sie hier an.

HTH

[5etH]

Nochmals vielen Dank für den Upload!

Ich Habe mir jetzt was aus der Demo zusammengebastelt, und habe nun folgendes Problem:
Wenn ich mich mit meinem regulärem Benutzer aus der Domaine anmelde öffnet er mir den Explorer ohne Probleme, wenn ich aber versuche diesen als Domainadmin aufzurufen passiert nichts und ich schaff es nicht den Fehler zu lokalisieren.

Ich hoffe ihr könnt mir weiter helfen

hier mein Code

Delphi-Quellcode:

function CreateProcessWithLogonW(lpUsername, lpDomain, lpPassword: LPWSTR; dwLogonFlags: dword; lpApplicationName,
  lpCommandLine: LPWSTR; dwCreationFlags: dword; lpEnvironment: pointer; lpCurrentDirectory: LPWSTR; lpStartupInfo:
  PStartUpInfoW; lpProcessInfo: PProcessInformation): boolean; stdcall; external 'advapi32.dll';


implementation

{$R *.dfm}


function CreateProcessAsLogon(const User, PW, Application, CmdLine: WideString): DWORD;
var
  si                : TStartupInfoW;
  pif               : TProcessInformation;
  s                 : WideString;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb := sizeof(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := 1;

  if CmdLine = '' then
    s := Application
  else
    s := Application + ' "' + CmdLine + '"';

  SetLastError(0);
  CreateProcessWithLogonW(PWideChar(User), nil, PWideChar(PW), 0, nil, PWideChar(s), CREATE_DEFAULT_ERROR_MODE, nil,
    nil, @si, @pif);
  Result := GetLastError;
end;

procedure TForm5.ComboBox1Select(Sender: TObject);
var
  User              : WideString;
  PW                : WideString;
  err: DWORD;
begin
  User := WideString(form1.Edit1.Text);
  PW := WideString(form1.Edit2.Text);
  err := CreateProcessAsLogon(User, PW,stringgrid1.cells[0,combobox1.ItemIndex] , '');
  if err <> 0 then
    ShowMessage(SysErrorMessage(err));
end;

Schonmal vieln Dank
Gruß
Manu

[Luckie]

Und warum verschweigst du nuns den Rückgabewert von GetLastError?

[5etH]

momentan noch zur testzwecken aber das war auch nicht so meine frage

[Luckie]

Zitat von 5etH:

momentan noch zur testzwecken aber das war auch nicht so meine frage

Aber meinst du nicht, dass das eventuell helfen könnte den Fehler zu finden?

[uwewo]

Hallo Manuel,

schau mal im Taskmanager, ob der Explorer nach Aufruf deiner Funktion dort erscheint,
aber nach kurzer Zeit wieder verschwindet.

Falls ja, starte den Explorer mit folgenden Parametern 'Explorer.exe /e,/separate,c:\'
So ein Problem hatte ich damals auch, und habe es auf diese Art gelöst.

Uwe

[5etH]

ja aber wie kann es denn sein das wenn ich als user mich (domainaccount) angebe es dann funzt, und bei dem domainadmin nicht ? ... finde ich seltsam