hey Leutz,
Ich bin gerade dabei eine Lizenz funktion in mein Programm zu integrieren,
dummer weiße habe ich noch nie was in der Registery gemacht (mit Delphi).
Ich habe mal nen Code zusammen gestückelt, der die Daten eines Schlüssels ausliest,
und dann das Label danach benennt.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.Button1Click(Sender: TObject);
var regist: TRegistry;
i: integer;
s: string;
Buffer: ARRAY[0..255] OF BYTE;
n: INTEGER;
begin
begin
regist:=TRegistry.Create;
regist.rootKey:=HKEY_LOCAL_MACHINE;
regist.openkey('SOFTWARE\test\',true);
n := regist.ReadBinaryData('test',Buffer,256);
s := '';
FOR i := 0 TO n-1 DO
begin
s := s+' '+IntToStr(Buffer[i])
end;
Label1.Caption := s;
regist.free;
end;
end; |
leider ist die Caption des Labels danach nach '';
Ich habe einen Schlüssel in HKEY_LOCAL_MACHINE\Software\test erstellt, in dem dann einen Binärwert und auch einmal eine Zeichenfolge mit dem Namen test, und irgendein wert eingetragen dummerweiße ist das Ergebnis dasselbe.
Meine Ziel ist, ich will einen Zahlencode z.b. 14538 in die Registery schreiben und den dann in mein Programm einlesen.
Mfg KleinAmann
Moderiert von 
Narses: Delphi-Tags hinzugefügtModeriert von Narses: Topic aus Sonstiges (Delphi) verschoben am So 25.05.2008 um 15:03
