Ĺadny brzuch
Jak odczytać z rejestru wartość tekstową która przez edytor rejestru oznaczona jest jako REG_MULTI_SZ. Funkcja ReadString() nie pomaga :excl:
Użytkownik Lycon edytował ten post 03 luty 2006, 15:46
Jak odczytać z rejestru wartość tekstową która przez edytor rejestru oznaczona jest jako REG_MULTI_SZ. Funkcja ReadString() nie pomaga :excl:
Zobacz czy zadziała ;)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Reg : TRegistry; begin Reg := TRegistry.Create; if Reg.KeyExists('Console') then begin Reg.OpenKey('Console', False); edit1.Text := Reg.ReadString(''); end; end; end.
Użytkownik Newbie:) edytował ten post 03 luty 2006, 20:23
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Użytkownik Lycon edytował ten post 03 luty 2006, 15:46
Jak odczytać z rejestru wartość tekstową która przez edytor rejestru oznaczona jest jako REG_MULTI_SZ. Funkcja ReadString() nie pomaga :excl:
Zobacz czy zadziała ;)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Reg : TRegistry; begin Reg := TRegistry.Create; if Reg.KeyExists('Console') then begin Reg.OpenKey('Console', False); edit1.Text := Reg.ReadString(''); end; end; end.
Użytkownik Newbie:) edytował ten post 03 luty 2006, 20:23