Problem beim Shutdown

[FreakyF]

Hallo!

Wie manche vielleicht schon von meinem anderen Beitrag wissen, versuche ich gerade mein erstes Shutdown-Programm zu schreiben.
Ich will die Idee von folgender Seite übernehmen: Link
Leider klappt die Umsetzung bei mir gar nicht

Hier mein Programm (soll erst später grafisch werden):

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function ExWindows(const AFlag: Word): Boolean;
var
  vi     : TOSVersionInfo;
  hToken : THandle;
  tp     : TTokenPrivileges;
  h      : DWord;
begin
  result:= false;

  vi.dwOSVersionInfoSize:=SizeOf(vi);

  if GetVersionEx(vi) then
  begin
    if vi.dwPlatformId = VER_PLATFORM_WIN32_NT then
    begin
      // Windows NT
      // Achtung bei Delphi 2 muß @hToken stehen ...
      if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,hToken) then
      begin
        LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid);
        tp.PrivilegeCount := 1;
        tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        h := 0;
        AdjustTokenPrivileges(hToken,False,tp,0,PTokenPrivileges(nil)^, h);
        CloseHandle(hToken);
        result := ExitWindowsEx(Aflag, 0);
      end;
    end
    else
    begin // Windows 95
      Result := ExitWindowsEx(Aflag, 0);
    end;
  end;
end;


begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.

Hier meine Fehlerliste:

Zitat:

[Pascal Fehler] Project1.dpr(10): E2003 Undefinierter Bezeichner: 'TOSVersionInfo'
[Pascal Fehler] Project1.dpr(12): E2003 Undefinierter Bezeichner: 'TTokenPrivileges'
[Pascal Fehler] Project1.dpr(13): E2003 Undefinierter Bezeichner: 'DWord'
[Pascal Fehler] Project1.dpr(17): E2066 Operator oder Semikolon fehlt
[Pascal Fehler] Project1.dpr(19): E2003 Undefinierter Bezeichner: 'GetVersionEx'
[Pascal Fehler] Project1.dpr(21): E2029 'THEN' erwartet, aber Bezeichner 'dwPlatformId' gefunden
[Pascal Fehler] Project1.dpr(25): E2003 Undefinierter Bezeichner: 'OpenProcessToken'
[Pascal Fehler] Project1.dpr(25): E2003 Undefinierter Bezeichner: 'GetCurrentProcess'
[Pascal Fehler] Project1.dpr(25): E2003 Undefinierter Bezeichner: 'TOKEN_ADJUST_PRIVILEGES'
[Pascal Fehler] Project1.dpr(27): E2003 Undefinierter Bezeichner: 'LookupPrivilegeValue'
[Pascal Fehler] Project1.dpr(27): E2066 Operator oder Semikolon fehlt
[Pascal Fehler] Project1.dpr(27): E2066 Operator oder Semikolon fehlt
[Pascal Fehler] Project1.dpr(38): E2003 Undefinierter Bezeichner: 'ExitWindowsEx'
[Pascal Fehler] Project1.dpr(41): E2029 '.' erwartet, aber ';' gefunden

Mein zweites Problem ist, dass ich nicht weiß, wie ich die Funktion in Hauptprogramm aufrufen kann.
Wo und wie muss ich den Parameter Flag EWX_Shutdown setzen?


Vielen vielen Dank für eure Hilfe