Post Views: 2 031 Начало ассемблерного кода – 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”… Читать далее »
Post Views: 1 837 Удалить все пробелы по краям строки текста в переменной – s:=Trim(s); // var s:string; Определить длину строки – i:=Length(s); // var i:integer; s:string; Найти позицию символа (символов) в строке – i:= AnsiPos(‘!’, ‘123 ! 34′); // var i:integer; Удалить четыре символа в строке (переменной содержащей текст), начиная с третьего – Delete(s, 3,… Читать далее »
Post Views: 2 051 Вывести процент загруженности памяти – 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; Вывести размер страничной памяти –… Читать далее »
Post Views: 2 467 Переместить курсор мыши в точку скоординатами 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);… Читать далее »
Post Views: 2 451 Если 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-я… Читать далее »
Post Views: 2 202 Показывать предупреждения компиляции – {$WARNINGS ON} Не показывать предупреждения компиляции – {$Warnings Off} Показывать подсказки компиляции – {$Hints On} Не показывать подсказки компиляции – {$Hints Off} Установить тип приложения консольным – {$AppType CONSOLE} Установить тип приложения графическим – {$AppType GUI} Присоеденить ресурс (форму) – {$R *.DFM}
Post Views: 2 149 Вызов окна завершения работы 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); Открыть диалог… Читать далее »
Post Views: 2 373 Очистка буфера обмена – ClipBoard.Clear; // uses Clipbrd; Помещение текста в буфер обмена – ClipBoard.SetTextBuf(‘Text to Buffer’); // uses Clipbrd; Получение текста в качестве значения переменной g из буфера обмена – g:= ClipBoard.AsText; // uses Clipbrd; var g: String; Свойства AsText – рассматривает буфер обмена как текстовую строку, с помощью данного свойства… Читать далее »
Post Views: 1 917 Вывод диалогового окна с кнопкой ок и текстом – ShowMessage(‘Информационное ‘+#13#10+’сообщение’); Примечание: данная команда приостанавливает выполнение других команд пока не будет нажата кнопка ок,разбиение текста на несколько строчек происходит с помощью команды – +#13#10+ если нужна одна строчка команда упускается Выводит присвоенное чему либо какое-то значение в маленьком окне – ShowMessage(IntToStr(X)); //… Читать далее »
Post Views: 2 253 Определение цвета пикселя и запись значения в переменную g, черный (FFFFFFF), БЕЛЫЙ (00) – s:= image1.Canvas.Pixels[s,r];// s , r, g: integer; Переменные s,r – координаты пикселя (r – вертикаль, s – горизонталь), формат изображения bmp. Или другая команда s:= bmp.Canvas.Pixels[2,2]; Сохранение изображения в виде файла, напрмер формата jpg- jpg.SaveToFile(‘D:\first.jpg’); Число пикселей рисунка… Читать далее »