Работа с клавиатурой

Автор: | 17.02.2013
Нет комментариев

Post Views: 2 560 Вывод сообщения при нажатии клавиши Esc — if getasynckeystate($1b)<>0 then ShowMessage(‘Сообщение’); // Для таймера Изменить раскладку клавиатуры на английскую — LoadKeyboardLayout(‘00000409’, KLF_ACTIVATE); Изменить раскладку клавиатуры на русскую — LoadKeyboardLayout(‘00000419’, KLF_ACTIVATE); Узнать раскладку клавиатуры — GetKeyboardLayoutName(value);  if value= ‘00000409’ then ShowMessage(‘Используется английский’);  if value= ‘00000419’ then ShowMessage(‘Используется  Русский’); // value: array [0.. KL_NAMELENGTH]… Читать далее »

Коды клавиш клавиатуры

Автор: | 17.02.2013
Нет комментариев

Post Views: 9 163 Таблица кодов клавиш, которыми можно пользоваться при проверке параметра 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  … Читать далее »

Закачка и сохранение html странички в файл

Автор: | 17.02.2013
Нет комментариев

Post Views: 2 603 [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] uses URLMon; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFile),0,nil)=0; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin DownloadFile(‘http://www.google.ru/’, ‘c:\1.txt’); end; end. [/cc]

Запрет открытия определенного сайта в браузере

Автор: | 17.02.2013
Нет комментариев

Post Views: 2 483 Решает задачу через файл hosts . [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] procedure TForm1.Button1Click(Sender: TObject); // Нажатие кнопки var myFile : TextFile; begin AssignFile(myFile, ‘C:\Windows\System32\drivers\etc\hosts’); // Открываем файл Append(myFile); WriteLn(myFile, ‘127.0.0.1 mail.ru’); // Записываем текст в файл CloseFile(myFile); // Закрываем end; [/cc]

Функция создания Базы Данных (Access)

Автор: | 17.02.2013
Нет комментариев

Post Views: 2 511 [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] // uses comobj; function CreateDatabase(DatabaseName: string): boolean; var DBEngine, Workspace: Variant; const dbLangGeneral = ‘;LANGID=0x0409;CP=1252;COUNTRY=0’; dbVersion30 = 32; begin result := false; try try DBEngine := CreateOleObject(‘DAO.DBEngine.36’); except try {For DAO 3.5} DBEngine := CreateOleObject(‘DAO.DBEngine.35’); except raise; end; end; Workspace := DBEngine.Workspaces[0]; try Workspace.CreateDatabase(DatabaseName, dbLangGeneral, dbVersion30); except… Читать далее »

Ассемблерный код в Delphi

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 413 Начало ассемблерного кода — 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»… Читать далее »

Функции для работы с текстом

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 192 Удалить все пробелы по краям строки текста в переменной — s:=Trim(s); // var s:string; Определить длину строки — i:=Length(s); // var i:integer; s:string; Найти позицию символа (символов) в строке — i:= AnsiPos(‘!’, ‘123 ! 34′); // var i:integer; Удалить четыре символа в строке (переменной содержащей текст), начиная с третьего — Delete(s, 3,… Читать далее »

Работа с оперативной памятью

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 416 Вывести процент загруженности памяти —  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; Вывести размер страничной памяти —… Читать далее »