unit UnitDM1;

interface

uses
  System.SysUtils, System.Classes,System.Generics.Collections,System.IniFiles;

type
  TDM1 = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    keylist:TDictionary<Integer,string>;
    function readini(zx, mx: string): string;
    function writeini(zx, mx, smemo: string): Boolean;
    { Public declarations }
  end;

var
  DM1: TDM1;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

function TDM1.writeini(zx, mx, smemo: string): Boolean;
var
  myfilename: Tinifile;
begin
  myfilename := Tinifile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  myfilename.WriteString(zx, mx, smemo);
  Result :=True;
  myfilename.Free;
end;

function TDM1.readini(zx, mx: string): string;
var
  myfilename: Tinifile;
begin
  myfilename := Tinifile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  Result := myfilename.ReadString(zx, mx, '');
  myfilename.Free;
end;

procedure TDM1.DataModuleCreate(Sender: TObject);
begin
 keylist:=TDictionary<Integer,string>.Create;
 keylist.add( 1,'LButton');
 keylist.add( 2,'RButton');
 keylist.add( 3,'Cancel');
 keylist.add( 4,'MButton');
 keylist.add( 5,'XButton1');
 keylist.add( 6,'XButton2');
 keylist.add( 8,'Back');
 keylist.add( 9,'Tab');
 keylist.add( 10,'LineFeed');
 keylist.add( 12,'Clear');
 keylist.add( 13,'Return');
 keylist.add( 16,'Shift');
 keylist.add( 17,'Control');
 keylist.add( 18,'Menu');
 keylist.add( 19,'Pause');
 keylist.add( 20,'Capital');
 keylist.add( 21,'Kana');
 //keylist.add( 21,'Hangul');
 keylist.add( 23,'Junja');
 keylist.add( 24,'Final');
 keylist.add( 25,'Hanja');
 //keylist.add( 25,'Kanji');
 keylist.add( 28,'Convert');
 keylist.add( 29,'NonConvert');
 keylist.add( 30,'Accept');
 keylist.add( 31,'ModeChange');
 keylist.add( 27,'Esc');
 keylist.add( 32,'Space');
 keylist.add( 33,'Prior');
 keylist.add( 34,'Next');
 keylist.add( 35,'End');
 keylist.add( 36,'Home');
 keylist.add( 37,'Left');
 keylist.add( 38,'Up');
 keylist.add( 39,'Right');
 keylist.add( 40,'Down');
 keylist.add( 41,'Select');
 keylist.add( 42,'Print');
 keylist.add( 43,'Execute');
 keylist.add( 44,'Snapshot');
 keylist.add( 45,'Insert');
 keylist.add( 46,'Delete');
 keylist.add( 47,'Help');
 keylist.add( 48,'0');
 keylist.add( 49,'1');
 keylist.add( 50,'2');
 keylist.add( 51,'3');
 keylist.add( 52,'4');
 keylist.add( 53,'5');
 keylist.add( 54,'6');
 keylist.add( 55,'7');
 keylist.add( 56,'8');
 keylist.add( 57,'9');
 keylist.add( 61,'LCommand');
 keylist.add( 62,'RCommand');
 keylist.add( 63,'Function');
 keylist.add( 65,'A');
 keylist.add( 66,'B');
 keylist.add( 67,'C');
 keylist.add( 68,'D');
 keylist.add( 69,'E');
 keylist.add( 70,'F');
 keylist.add( 71,'G');
 keylist.add( 72,'H');
 keylist.add( 73,'I');
 keylist.add( 74,'J');
 keylist.add( 75,'K');
 keylist.add( 76,'L');
 keylist.add( 77,'M');
 keylist.add( 78,'N');
 keylist.add( 79,'O');
 keylist.add( 80,'P');
 keylist.add( 81,'Q');
 keylist.add( 82,'R');
 keylist.add( 83,'S');
 keylist.add( 84,'T');
 keylist.add( 85,'U');
 keylist.add( 86,'V');
 keylist.add( 87,'W');
 keylist.add( 88,'X');
 keylist.add( 89,'Y');
 keylist.add( 90,'Z');
 keylist.add( 91,'LWin');
 keylist.add( 92,'RWin');
 keylist.add( 93,'Apps');
 keylist.add( 95,'Sleep');
 keylist.add( 96,'Numpad0');
 keylist.add( 97,'Numpad1');
 keylist.add( 98,'Numpad2');
 keylist.add( 99,'Numpad3');
 keylist.add( 100,'Numpad4');
 keylist.add( 101,'Numpad5');
 keylist.add( 102,'Numpad6');
 keylist.add( 103,'Numpad7');
 keylist.add( 104,'Numpad8');
 keylist.add( 105,'Numpad9');
 keylist.add( 106,'Multiply');
 keylist.add( 107,'Add');
 keylist.add( 108,'Separator');
 keylist.add( 109,'Subtract');
 keylist.add( 110,'Decimal');
 keylist.add( 111,'Divide');
 keylist.add( 112,'F1');
 keylist.add( 113,'F2');
 keylist.add( 114,'F3');
 keylist.add( 115,'F4');
 keylist.add( 116,'F5');
 keylist.add( 117,'F6');
 keylist.add( 118,'F7');
 keylist.add( 119,'F8');
 keylist.add( 120,'F9');
 keylist.add( 121,'F10');
 keylist.add( 122,'F11');
 keylist.add( 123,'F12');
 keylist.add( 124,'F13');
 keylist.add( 125,'F14');
 keylist.add( 126,'F15');
 keylist.add( 127,'F16');
 keylist.add( 128,'F17');
 keylist.add( 129,'F18');
 keylist.add( 130,'F19');
 keylist.add( 131,'F20');
 keylist.add( 132,'F21');
 keylist.add( 133,'F22');
 keylist.add( 134,'F23');
 keylist.add( 135,'F24');
 keylist.add( 136,'Camera');
 keylist.add( 137,'HardwareBack');
 keylist.add( 144,'NumLock');
 keylist.add( 145,'Scroll');
 keylist.add( 160,'LShift');
 keylist.add( 161,'RShift');
 keylist.add( 162,'Ctrl');
 keylist.add( 163,'Ctrl');
 keylist.add( 164,'LMenu');
 keylist.add( 165,'RMenu');
 keylist.add( 166,'BrowserBack');
 keylist.add( 167,'BrowserForward');
 keylist.add( 168,'BrowserRefresh');
 keylist.add( 169,'BrowserStop');
 keylist.add( 170,'BrowserSearch');
 keylist.add( 171,'BrowserFavorites');
 keylist.add( 172,'BrowserHome');
 keylist.add( 173,'VolumeMute');
 keylist.add( 174,'VolumeDown');
 keylist.add( 175,'VolumeUp');
 keylist.add( 176,'MediaNextTrack');
 keylist.add( 177,'MediaPrevTrack');
 keylist.add( 178,'MediaStop');
 keylist.add( 179,'MediaPlayPause');
 keylist.add( 180,'LaunchMail');
 keylist.add( 181,'LaunchMediaSelect');
 keylist.add( 182,'LaunchApp1');
 keylist.add( 183,'LaunchApp2');
 keylist.add( 186,'Semicolon');
 keylist.add( 187,'Equal');
 keylist.add( 188,'Comma');
 keylist.add( 189,'Minus');
 keylist.add( 190,'Period');
 keylist.add( 191,'Slash');
 keylist.add( 192,'Tilde');
 keylist.add( 219,'LeftBracket');
 keylist.add( 220,'Backslash');
 keylist.add( 221,'RightBracket');
 keylist.add( 222,'Quote');
 keylist.add( 223,'Para');
 keylist.add( 226,'Oem102');
 keylist.add( 227,'IcoHelp');
 keylist.add( 228,'Ico00');
 keylist.add( 229,'ProcessKey');
 keylist.add( 230,'IcoClear');
 keylist.add( 231,'Packet');
 keylist.add( 246,'Attn');
 keylist.add( 247,'Crsel');
 keylist.add( 248,'Exsel');
 keylist.add( 249,'ErEof');
 keylist.add( 250,'Play');
 keylist.add( 251,'Zoom');
 keylist.add( 252,'Noname');
 keylist.add( 253,'PA1');
 keylist.add( 254,'OemClear');
 keylist.add( 255,'None');
end;

procedure TDM1.DataModuleDestroy(Sender: TObject);
begin
   keylist.Free;
end;

end.