Таблица кодов клавиш, которыми можно пользоваться при проверке параметра Key в обработчиках событий OnKeyDown и OnKeyUp: Клавиша Дес. число Шест. число Символическое имя Сравнение по функции ord F1 112 $70 VK_F1 F2 113 $71 VK_F2 F3 114 $72 VK_F3 F4 115 $73 VK_F4 F5 116 $74 VK_F5 F6 117 $75… Читать далее »
Загружаем dll динамически — hndDLLHandle:= loadLibrary ( ‘Project1.dll’ ); // var hndDLLHandle: THandle;
Начало ассемблерного кода — Asm Конец ассемблерного кода — end; Записать значение переменной «a» в регистр «eax» — mov eax,a // a:integer; Всего 4 32-х битных регистра eax,ebx,ecx,edx. 16-бит – ax,bx,cx,dx. 8 — бит – al,bl,cl,dl. Записать значение регистра «eax» в переменную «i» — mov i,eax // i:integer; Сложить два регистра «eax» и «ebx» и… Читать далее »
Удалить все пробелы по краям строки текста в переменной — s:=Trim(s); // var s:string; Определить длину строки — i:=Length(s); // var i:integer; s:string; Найти позицию символа (символов) в строке — i:= AnsiPos(‘!’, ‘123 ! 34′); // var i:integer; Удалить четыре символа в строке (переменной содержащей текст), начиная с третьего — Delete(s, 3, 4); // var… Читать далее »
Вывести процент загруженности памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr(mem.dwMemoryLoad) + ‘ %’); // var mem: TMemoryStatus; Вывести размер физической памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((mem.dwTotalPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus; Вывести размер свободной физической памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((mem.dwAvailPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus; Вывести размер страничной памяти — GlobalMemoryStatus(mem); ShowMessage(IntToStr((dwTotalPageFile) div… Читать далее »
Переместить курсор мыши в точку скоординатами 1000,700 — setcursorpos (1000,700); Нажать программно левую кнопку мыши не отпуская ее — mouse_event(mouseeventf_leftdown,0,0,0,0); Отпустить левую кнопку мыши — mouse_event(mouseeventf_leftup,0,0,0,0); Нажать правую кнопку мыши не отпуская ее — mouse_event(mouseeventf_rightdown,0,0,0,0); Отпустить правую кнопку мыши — mouse_event(mouseeventf_rightup,0,0,0,0); Присвоить y координаты положения курсора по вертикали — GetCursorPos(foo); y:= (foo.Y); // Не забудьте… Читать далее »
Если x=2, то выполнить команду (вывод окна), если нет, то не выполнять её: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] If x = 2 then ShowMessage(‘1 = 2’); // var x:Integer; [/cc] Выполнение блока команд, если x=1, если нет, то не выполнять: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] If x=1 then begin ShowMessage(‘1-я команда’); ShowMessage(‘2-я команда’); end; //… Читать далее »
Показывать предупреждения компиляции — {$WARNINGS ON} Не показывать предупреждения компиляции — {$Warnings Off} Показывать подсказки компиляции — {$Hints On} Не показывать подсказки компиляции — {$Hints Off} Установить тип приложения консольным — {$AppType CONSOLE} Установить тип приложения графическим — {$AppType GUI} Присоеденить ресурс (форму) — {$R *.DFM}
Вызов окна завершения работы Windows — SendMessage (FindWindow (‘Progman’, ‘Program Manager’), WM_CLOSE, 0, 0); Завершение работы — ExitWindows (EWX_ShutDown,0); Завершение работы (чуть пожестче) — ExitWindows (EWX_FORCE,0); Запустить панель управления — winexec(Pchar(‘rundll32 shell32,Control_RunDLL’),sw_Show); Открыть диалог «Выбор программы …» (‘Open With…’) — winexec(Pchar(‘rundll32 shell32,OpenAs_RunDLL’),sw_Show); Открыть ‘About Window Window’ — winexec(Pchar(‘rundll32 shell32,ShellAboutA Info-Box’),sw_Show); Открыть диалог «Свойства: Экран» (Display… Читать далее »
Очистка буфера обмена — ClipBoard.Clear; // uses Clipbrd; Помещение текста в буфер обмена — ClipBoard.SetTextBuf(‘Text to Buffer’); // uses Clipbrd; Получение текста в качестве значения переменной g из буфера обмена — g:= ClipBoard.AsText; // uses Clipbrd; var g: String; Свойства AsText — рассматривает буфер обмена как текстовую строку, с помощью данного свойства мы можем получить… Читать далее »