Table of Contents
Bagaimana saya dapat mengambil nilai dari Windows Registry ?
Bagaimana saya dapat menyimpan nilai ke Windows Registry ?
Bagaimana saya dapat mengingat Path terakhir dalam File Dialog ?
Bagaimana saya dapat mengambil nilai dari Windows Registry ?
Untuk melakukan ini, Anda harus menambahkan Registry dalam pernyataan USES. Ingat, sebutkan nilai False dalam metode OpenKey() untuk membaca, dan True
untuk menulis nilai.
procedure ReadRegistry;
var
regEntry : TRegistry;
begin
regEntry := TRegistry.Create;
regEntry.RootKey := HKEY_CURRENT_USER;
if regEntry.OpenKey( 'Software\Hianoto', False ) then begin
try
nInteger := regEntry.ReadInteger( 'Integer' );
except
{ Do nothing }
end;
regEntry.CloseKey;
end;
regEntry.Free;
end;
Go Top
Bagaimana saya dapat menyimpan nilai ke Windows Registry ?
Yah, seperti biasa, Anda harus menambahkan Registry dalam pernyataan USESe. Jangan lupa juga, Anda harus menggunakan nilai True dalam
metode OpenKey() untuk menyimpan nilai.
procedure WriteRegistry;
var
regEntry : TRegistry;
begin
regEntry := TRegistry.Create;
regEntry.RootKey := HKEY_CURRENT_USER;
if regEntry.OpenKey( 'Software\Hian', True ) then begin
regEntry.WriteInteger( 'Integer', 1 );
regEntry.WriteString( 'String', 'Hian' );
regEntry.CloseKey;
end;
regEntry.Free;
end;
Go Top
Bagaimana saya dapat mengingat Path terakhir dalam File Dialog ?
Sebenarnya Anda dapat melakukannya secara mandiri, menggunakan tips sebelumnya. Walau demikian, saya akan
memberikan secuil program kepada Anda, sebagai berikut:
procedure OpenFile;
var
regEntry: TRegistry;
begin
regEntry := TRegistry.Create;
if regEntry.OpenKey( APP_REG_KEY, False ) then begin
try
dlgFileOpen.InitialDir := ReadString( REG_PREFS_DEF_DIR );
except
dlgFileOpen.InitialDir := '';
regEntry.CloseKey;
end;
regEntry.Free;
if dlgFileOpen.Execute then
execOpenFile( dlgFileOpen.FileName );
end;
Go Top