Приветствую всех! Сегодня я поделюсь небольшим куском кода, по написанию обычного автокликера мышки для Lineage 2 на Delphi.
Определение координатов:
Код
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:= IntToStr(X);
Label2.Caption:= IntToStr(Y);
Запоминание и сохранение:
Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
Ini: Tinifile;
begin
if ( [ssCtrl]= Shift) and (Key = 49) then begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Settings.ini');
Ini.WriteString('Ctrl+1','X',Label1.Caption);
Ini.WriteString('Ctrl+1','Y',Label2.Caption);
Ini.Free;
Открытие файла:
Код
procedure TForm1.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
if FileExists('Settings.ini') then begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Settings.ini');
Label1.Caption:=Ini.ReadString('Ctrl+1','X','');
Label2.Caption:=Ini.ReadString('Ctrl+1','Y','');
Ini.Free
end
else
showmessage('Файл не найден');
end;
Код клавиш 49 - 1, 50 - 2, 51 - 3