hi,
ich habe folgendes versucht:
Delphi-Quellcode:
program patch;
{$APPTYPE CONSOLE}
uses
Windows;
type
TRegOpenCurrentUser =
function(samDesired: REGSAM; phkResult: PHKEY): LongInt;
stdcall;
var
LibModule: HMODULE;
RegOpenCurrentUser: TRegOpenCurrentUser;
phkResult: PHKEY;
begin
LibModule := LoadLibrary('
Advapi32.dll');
if LibModule <> 0
then // DLL wurde erfolgreich geladen
begin
RegOpenCurrentUser := GetProcAddress(LibModule, '
RegOpenCurrentUser');
if (@RegOpenCurrentUser <>
nil)
and (RegOpenCurrentUser(KEY_READ, phkResult) = ERROR_SUCCESS)
then
begin
//
end;
end;
end.
Die zweite Bedingung der letzten If-Abfrage löst einen Fehler aus und mein PC bootet direkt... was ist da denn falsch? Und das beste is noch das nach dem Start die projektdatei nichtmehr lesbar ist und ich alles neu schreiben muss (delphi zeigt dann nur vierecke an ~~)