Ich muss mich nochmal entschuldigen, da ich in meinem Tutorial auf eine nicht aktuelle Version des Patches verlinkt habe (bin vorhin in der Newsgroup darauf aufmerksam gemacht worden). Eine neue Version des Tutorials ist seit 5 Minuten online.
Benutze entweder die neue Anleitung (was ich dir empfehle, die Zeilen von JR_D6 nach JR_D7 musst du allerdings trotzdem ändern) oder ändere die Deklaration der Funktion wie folgt ab.
Oben:
Delphi-Quellcode:
{$IFNDEF JR_D7}
function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean; {vb+}
{$ENDIF}
Unten:
Delphi-Quellcode:
{$IFNDEF JR_D7}
function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean; {vb+}
begin
Result := (Win32MajorVersion > AMajor) or
((Win32MajorVersion = AMajor) and (Win32MinorVersion >= AMinor));
end;
{$ENDIF}
Wenn du nach dem neuen Tut vorgehst, *MUSST* du den Patch neu herunterladen (die anderen Dateien haben sich nicht geändert).
Mit der dritten Fehlermeldung kann ich allerdings nichts anfangen. Sieh' mal in Zeile 147 nach, ob die Deklaration so aussieht:
procedure FillBuffer; virtual; abstract;