Скажите, как сохранить горячие клавиши из компонента THotKey, например, в INI-файл.
И при запуске программы загрузить их в тот же HotKey1 ???
Если не трудно, пример в виде кода.
Неужели никто не в курсе? ?
Александр Бобков, преогромнейшее тебе спасибо, добрый человек!!!
...
implementation
uses inifiles;
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
var S:TSaveDialog;
Ini:TIniFile;
begin
S:=TSaveDialog.Create(self);
if S.Execute then begin
Ini:=TIniFile.Create(S.FileName);
ini.WriteInteger('Hot keys','key1',HotKey1.HotKey);
Ini.Free;
end;
S.Free;
end;
procedure TForm1.Button3Click(Sender: TObject);
var S:TOpenDialog;
Ini:TIniFile;
n:integer;
begin
S:=TOpenDialog.Create(self);
if S.Execute then begin
Ini:=TIniFile.Create(S.FileName);
HotKey1.HotKey:=ini.ReadInteger('Hot keys','key1',0);
Ini.Free;
end;
S.Free;
end;
⇢