shutdown & translate

det andet er om der er en der kan sige hvordan man kan få programmet til at slukke computeren eller restarte den?

Følgende genstarter computeren:

<pre>
var
Thread, Token: THandle;
RetLen, BufLen: cardinal;
Luid: TLargeInteger;
TokenPrivileges: TTokenPrivileges;
LUIDAndAttributes: TLUIDAndAttributes;
begin
Token := 0;
BufLen := 0;

Thread := GetCurrentProcess;

OpenProcessToken(Thread, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);

LookupPrivilegeValue(nil, 'SeShutdownPrivilege', Luid);

LUIDAndAttributes.Luid := Luid;
LUIDAndAttributes.Attributes := SE_PRIVILEGE_ENABLED;

TokenPrivileges.PrivilegeCount := 1;
TokenPrivileges.Privileges[0] := LUIDAndAttributes;

AdjustTokenPrivileges(Token, False, TokenPrivileges, BufLen, nil, RetLen);

ExitWindowsEx(EWX_REBOOT, 0);
end;
</pre>

Det burde virke både i Win9x og under Win2000/XP. Slå ExitWindowsEx op i hjælpen for at finde ud af hvordan du lukker maskinen ned i stedet for at genstarte.

ja jeg har sput mange gange men uden svar
er der end er kan fortælle mig hvordan man får den til at oversætte :
A = @
B = &
osv.
-------------
det andet er om der er en der kan sige hvordan man kan få programmet til at slukke computeren eller restarte den?
------------

Jeg har ingen ide om hvad du mener med translate ?, mener du at udskifte alle A'er i en string med @ ?
for så prøv at slå stringreplace op i hjælp filen
...
det med at lukke windows er lidt irriterrende for windows 98 bruger en helt anden metode end NT/2k/XP...
for at genstarte i Windows 95/98/me kan du bruge:
ExitWindowsEx(EWX_REBOOT,0);
jeg mener også du kan bruge
ExitWindowsEx(EWX_POWEROFF,0);
til at lukke windows med...



-
neuroman? det' da mig
Aloha - Er du fresh???

et lille eksempel på StringReplace:
<pre>
var
S: string;
begin
S := 'ost er godt, pepsi er godt';
s := stringreplace(s, 'godt','skidt',[rfReplaceAll]);
showmessage(S);
</pre>
dette vil give en besked der hedder "ost er skidt, pepsi er skidt", hvis man f.eks kun vil udskifte det første godt skal man bruge
<pre>
var
S: string;
begin
S := 'ost er godt, pepsi er godt';
s := stringreplace(s, 'godt','skidt',[]);
showmessage(S);
</pre>

men hvem ville frivilligt sige at pepsi er godt ?[Redigeret d. 06/10-02 19:05:46 af Elias]

ja nu kan jeg jo kun give en af jer de point så jeg giver den der har skrevet det bedste som jeg kunne bruge!.
sorry til den der ikke fik