Fehler beim laden einer Funktion aus einer DLL - PC bootet?

[Sprint]

Ich würde es eher so machen...

Delphi-Quellcode:

program patch;

{$APPTYPE CONSOLE}

uses
  Windows;

type
  TRegOpenCurrentUser = function(samDesired: REGSAM; var phkResult: HKEY): Integer; stdcall;

var
  RegOpenCurrentUser: TRegOpenCurrentUser;
  hkResult: HKEY;
begin

  RegOpenCurrentUser := GetProcAddress(GetModuleHandle('ADVAPI32.DLL'), 'RegOpenCurrentUser');
  if Assigned(RegOpenCurrentUser) then
    if RegOpenCurrentUser(KEY_READ, hkResult) = ERROR_SUCCESS then
    begin
      //
      RegCloseKey(hkResult);
    end;

end.