---

I mit program bruger jeg :

ExitWindowsEx(EWX_SHUTDOWN, 0)

for at afslutte windows helt.

Når jeg benytter det samme program i Win2K afslutter mit program, men
ikke windows.

Skal jeg give programmet rettigheder eller er der et andet nemt trix.

MVH

Morten

---

Hej Morten,

"Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
news:3BDD63CB.D92868D9@worldonline.dk...
> Når jeg benytter det samme program i Win2K afslutter mit program, men
> ikke windows.
>
> Skal jeg give programmet rettigheder eller er der et andet nemt trix.

ja, du skal på en 2K maskine give dine applikation rettighed til at lave en
shutdown... prøv at kigge på AdjustTokenPrivileges i Delphi's hjælp.

Cheers,
Thomas

---

Tak det var lige det der skulle til.

MVH

Thomas Rose wrote:
>
> Hej Morten,
>
> "Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
> news:3BDD63CB.D92868D9@worldonline.dk...
> > Når jeg benytter det samme program i Win2K afslutter mit program, men
> > ikke windows.
> >
> > Skal jeg give programmet rettigheder eller er der et andet nemt trix.
>
> ja, du skal på en 2K maskine give dine applikation rettighed til at lave en
> shutdown... prøv at kigge på AdjustTokenPrivileges i Delphi's hjælp.
>
> Cheers,
> Thomas

---

Vil du ikke paste koden du bruger?
Jeg har prøvet en del forskellige løsningsmetoder, men ikke en der er særlig
allround

"Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
news:3BDE6A72.E762AEC@worldonline.dk...
> Tak det var lige det der skulle til.
>
> MVH
>
> Thomas Rose wrote:
> >
> > Hej Morten,
> >
> > "Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
> > news:3BDD63CB.D92868D9@worldonline.dk...
> > > Når jeg benytter det samme program i Win2K afslutter mit program, men
> > > ikke windows.
> > >
> > > Skal jeg give programmet rettigheder eller er der et andet nemt trix.
> >
> > ja, du skal på en 2K maskine give dine applikation rettighed til at lave
en
> > shutdown... prøv at kigge på AdjustTokenPrivileges i Delphi's hjælp.
> >
> > Cheers,
> > Thomas

---

Jeg modtog flg kodestump fra Uffe Kousgaard. Det løste mit problem

program shutdown;
{$APPTYPE CONSOLE}
{$R *.RES}
uses
windows;

function SetPrivilege(bEnabled : boolean ) : boolean;
var
TPPrev, TP : TTokenPrivileges;
Token : THandle;
dwRetLen : DWord;
begin
Result:= False;
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,Token);
TP.PrivilegeCount:= 1;
if (LookupPrivilegeValue( Nil, PChar('SeShutdownPrivilege'),
TP.Privileges[ 0 ].LUID ) )then
begin
if bEnabled then
TP.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED
else
TP.Privileges[0].Attributes:= 0;
dwRetLen:= 0;
Result:= AdjustTokenPrivileges( Token, False,TP, SizeOf( TPPrev ),
TPPrev, dwRetLen );
end;
CloseHandle(Token);
end;

begin
if SetPrivilege(True) then
begin
ExitWindowsEx(EWX_POWEROFF,0);
SetPrivilege(False)
end;
end.



Morten

FreeAll wrote:
>
> Vil du ikke paste koden du bruger?
> Jeg har prøvet en del forskellige løsningsmetoder, men ikke en der er særlig
> allround
>
> "Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
> news:3BDE6A72.E762AEC@worldonline.dk...
> > Tak det var lige det der skulle til.
> >
> > MVH
> >
> > Thomas Rose wrote:
> > >
> > > Hej Morten,
> > >
> > > "Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
> > > news:3BDD63CB.D92868D9@worldonline.dk...
> > > > Når jeg benytter det samme program i Win2K afslutter mit program, men
> > > > ikke windows.
> > > >
> > > > Skal jeg give programmet rettigheder eller er der et andet nemt trix.
> > >
> > > ja, du skal på en 2K maskine give dine applikation rettighed til at lave
> en
> > > shutdown... prøv at kigge på AdjustTokenPrivileges i Delphi's hjælp.
> > >
> > > Cheers,
> > > Thomas

---

Og jeg havde koden fra http://www.borrisholt.com/. Se under WinNT.

Hilsen
Uffe

"Morten Vahlkvist" <vahlkvist@worldonline.dk> wrote in message
news:3BE79EA6.436B9B10@worldonline.dk...
> Jeg modtog flg kodestump fra Uffe Kousgaard. Det løste mit problem
>