Hi there
To Read From a Registry:
procedure TForm1.Button2Click(Sender: TObject);
begin
\\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Display
IniFile := TRegIniFile.Create ('HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Display\');
label1.caption:= IniFile.ReadString( '.0000','(Default)','DriverDesc');
end;
end.
To Write In to Registry:
// changes the beep sound
procedure TForm1.Button1Click(Sender: TObject);
begin
IniFile := TRegIniFile.Create ('AppEvents\Schemes\Apps\.Default\.Default\');
inifile.DeleteKey('.Current','(Default)');
IniFile.writeString('.Current', '', 'c:\alarm.wav');
{in any case destroy the IniFile object}
IniFile.Destroy;
end;
Forgot to mension
var IniFile: TRegIniFile;
Good Luck
Good Luck !
Spent
mail:spentbg@yahoo.com