Открыть сайт в браузере по умолчанию
Post Views: 1 925 [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] ShellExecute(0,’open’,pChar(‘http://vkontakte.ru/club31319900’),NIL,NIL,SW_SHOWNORMAL); // uses ShellAPI [/cc]
Запрет открытия определенного сайта в браузере
Post Views: 1 869 Решает задачу через файл 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)
Post Views: 2 027 [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… Читать далее »
Динамическая загрузка DLL
Post Views: 1 808 Загружаем dll динамически – hndDLLHandle:= loadLibrary ( ‘Project1.dll’ ); // var hndDLLHandle: THandle;
Ассемблерный код в Delphi
Post Views: 1 934 Начало ассемблерного кода – 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 757 Удалить все пробелы по краям строки текста в переменной – 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: 1 953 Вывести процент загруженности памяти – 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 333 Переместить курсор мыши в точку скоординатами 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 310 Если 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 107 Показывать предупреждения компиляции – {$WARNINGS ON} Не показывать предупреждения компиляции – {$Warnings Off} Показывать подсказки компиляции – {$Hints On} Не показывать подсказки компиляции – {$Hints Off} Установить тип приложения консольным – {$AppType CONSOLE} Установить тип приложения графическим – {$AppType GUI} Присоеденить ресурс (форму) – {$R *.DFM}