RunAs Dialog vor dem Programmstart???

[TeronG]

Zitat von MathiasSimmack:

so dass man sie mit wenig Aufwand in eigene Programme einbinden kann.

Delphi-Quellcode:

var
  AdminToken : Cardinal;

if LogonUser(PAnsiChar(USERNAME),        // UserName
             PAnsiChar(DOMAIN),          // Domäne oder lokaler Rechner
             PAnsiChar(PASSWORD),        // Password
             LOGON32_LOGON_BATCH or LOGON32_LOGON_NETWORK or LOGON32_LOGON_INTERACTIVE,
             LOGON32_PROVIDER_DEFAULT,
             AdminToken)
then begin
       if ImpersonateLoggedOnUser(AdminToken)
       then begin
              // hier kommt Dein Prog.-Code hin

              RevertToSelf;              // zurückschalten zum angemeldeten Benutzer
            end;
     end;

also ich würd ja sagen, daß der Code eh schon recht simpel/kurz/unaufwändig ist. Quasi nur eine if abfrage (mit einer if abfrage) und schon kannste deinen code reinschmeißen.
Hätt ich dden Code nur eher gekannt ..