---

Hej jeg har et lille problem med at få en NT'er til at lukke ned (genstarte)

Min kode:
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
token);
tp.PrivilegeCount := 1;
if LookupPrivilegeValue(nil, pchar('SeShutdownPrivilege'),
tp.Privileges[0].LUID) then
begin
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
dwRetLen := 0;
succes := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev,
dwRetLen);
end;
CloseHandle(token);
ExitWindowsEx(6,0);

virker fint, når en bruger er logget ind, men står maskinen i login-promten,
virker denne kode ikke...... Hvad gør man så?

---

Hej Peter,

uden at jeg er den vildeste ekspert mht. services har jeg følgende
spørgsmål: Har du forsøgt at tildele servicen en identitet... Dvs. tildele
en bruger-konto (med admin rettigheder) så den får "Log On As" rettigheder
på servicen... jeg ved at dette er nødvendigt, hvis man f.eks. ønsker at
servicen skal starte op, uden at man logger ind.

Mvh.

Thomas Rose,
Systemudvikler,
Intellix A/S (www.intellix.com)


"Peter Petersen" <the.1@get2net.dk> wrote in message
news:9dh1hg$8u1$1@news.inet.tele.dk...
> Hej jeg har et lille problem med at få en NT'er til at lukke ned
(genstarte)
>
> Min kode:
> OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,
> token);
> tp.PrivilegeCount := 1;
> if LookupPrivilegeValue(nil, pchar('SeShutdownPrivilege'),
> tp.Privileges[0].LUID) then
> begin
> tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
> dwRetLen := 0;
> succes := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev),
tpPrev,
> dwRetLen);
> end;
> CloseHandle(token);
> ExitWindowsEx(6,0);
>
> virker fint, når en bruger er logget ind, men står maskinen i
login-promten,
> virker denne kode ikke...... Hvad gør man så?
>
>