oha ... ist das dein 1. Programm was du in Delphi programmierst ???
So kann das ja nicht funktionieren !
1. Du musst JclRegistry und JclStrings in die Uses aufnehmen !
2. wenn du TForm1 = class(TForm) hast sollte die function dazu auch passen
function TfrmMain.ReadKeyToString(hkRoot ; sPath: string; sName: string; bForBartPE: Boolean = True): string;
muss auf jeden Fall nach
function TForm1.ReadKeyToString(hkRoot ; sPath: string; sName: string; bForBartPE: Boolean = True): string;
geändert werden.
Und im Private Abschnitt der TForm1 muss natürlich die function auch rein
Delphi-Quellcode:
private
{ Private declarations }
function ReadKeyToString(hkRoot ; sPath: string; sName: string; bForBartPE: Boolean = True): string;
3. Welchen Typ hat denn hkRoot bitteschön ????
4. Das Ergebnis (:String), wo wird denn das gespeichert ? .. bedenke das die function recursiv aufgerufen wird.. was passiert dann mit dem Ergebnis ?
5. Ich empfehle dir dringend dich erst einmal in Delphi einzuarbeiten und nicht gleich mit so einem Projekt anzufangen, das ist eindeutig zu viel für einen absoluten Anfänger der nicht einmal Grundkentnisse in Delphi besitzt !
6. Ich könnte dir natürlich die Funktion fix und fertig geben .. aber du brauchst nicht zu Fragen ... denn aus dem obigen Grund werde ich es nicht tun.
Greez ACE