Wireless Zero Shutdown 1.2b

[Luckie]

Zu deiner Frage: Wäre wohl zu vermuten.

[squiddy]

gut.. es wundert mich nur, dass dein code so ohne weiteres nicht funktioniert. um eins klarzustellen - ich habe mein erstes (schul!) lehrjahr in delphi hinter mir und habe mir eigentlich den großteil selbst beigebracht, also ist mein wissen nicht ganz so tief wie das von vielen anderen hier. ich habe auch komplette codes für das programm nur kopiert und in den grundzügen verstanden, jedoch nicht so weit, dass ich sie selbst schreiben könnte.

so jetzt habe ich testweise einfach um zu gucken ob das compilieren klappt deinen Programmcode in mein Programm eingefügt. Der Verweis auf die MpuWinNT.pas in USES ist vorhanden und dennoch kommt beim compilieren der folgende fehler in der darauf folgenden Zeile:

Delphi-Quellcode:

[Fehler] U_zero.pas(196): Inkompatible Typen: 'TStartupInfoW' und 'Pointer'
    CREATE_DEFAULT_ERROR_MODE, nil, nil, @si, @pif);

und ich bin ziemlich ratlos, vor allem da mir pointer nur namentlich und TStartupInfoW überhaupt nicht bekannt ist. ideen?

//€: und wie mittlerweile immer nen edit - hier der komplette code im zusammenhang, ist wahrscheinlich aufschlussreicher als die zeile alleine..

Delphi-Quellcode:

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

  SetLastError(0); 
  CreateProcessWithLogonW(PWideChar(User), nil, PWideChar(PW), 
    LOGON_WITH_PROFILE, nil, PWideChar(Application+' "'+CmdLine+'"'), 
    CREATE_DEFAULT_ERROR_MODE, nil, nil, @si, @pif); 
  Result := GetLastError; 
end;
Michael Puff

[Luckie]

Ups, da hab eich wohl noch eine alte MPuWinNT auf meinem Webspace. Jetzt sollten die aktuellen oben sein.

[squiddy]

Danke, compilieren hat geklappt. Ich werde mich mal im Laufe des Tages dransetzen und eine RunAs-Version basteln. Werde mich dann wieder melden

[squiddy]

bin ein wenig fortgeschritten, habe allerdings ein Problem mit dem RunAs-Teil:
ich kann nichts ausführen. Benutzerdaten stimmen, pfad stimmt, parameter leer, doch es wird nichts gestartet - es passiert schlicht und einfach nichts. Ideen (vor allem Luckie..)?