Moj wczesniejszy temat zostal usuniety z niewiadomych powodow, wiec pytam jeszcze raz (chyba nie robie tym nic zlego:) ).
var
t: array of char;
eg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('\', true);
SetLength(t, reg.GetDataSize('x'));
reg.ReadBinaryData('x', t, sizeof(t));
ShowMessage(pchar(t));
reg.CloseKey;
reg.Destroy;
end;
Dlaczego ten kod nie dziala??
cnie znam się zbytnio na rejestrach, ale <ort>sprubój</ort> morze sprawdzić wartość tego: reg.GetDataSize('x') czy przypadkiem nie jest 0. Jeśli nie to to ja bym jeszce pokombinował przy samym wyświetlaniu w Showmessage, może bez PChar?
ShowMessage(pchar(t));
To jest źle bo Showmessage pobiera jako argument stringa a nie pchara (zupelnie nie wiem dlaczego to sie kompiluje)
reg.ReadBinaryData('x', t, sizeof(t));
to tez jest źle bo sizeof(t) zawsze zwraca 4. Powinno byc length(t);
Pozdrawiam
aha i zamiast
reg.ReadBinaryData('x', t, sizeof(t));
powinno byc reg.ReadBinaryData('x', t[0], length(t));
t i t[0] to co innego wbrew niektorym błędnym wskazówkom ktore pojawiają sie na tym forum.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.
