Программирование на Delphi и не только
Сайт для Delphi программиста
Сегодня мы займёмся самым популярным web-браузером в мире – Internet Explorer’ом. Кто-то обожает эту программу, кто-то терпеть её не может, но, как ни крути, пока что ни один конкурент IE не может приблизиться к нему по возможностям (не считая, конечно, браузеров, построенных на движке IE). Итак, что мы будем делать с IE? Да ничего страшного… …
Delphi FAQ >> Интернет При помощи данной функции можно скачать файл любого типа из Интернета. uses WinInet; … function GetInetFile (const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: String; begin Result:=False; sAppName := ExtractFileName(Application.ExeName); …
Delphi FAQ >> Окна и процессы Во многих программах есть возможность сделать так, чтобы ее окно отображалось поверх остальных окон, открытых в операционной системе Windows. Такую функцию можно сделать в Delphi ждя своей программы. А можно даже для чужой, при помощи функции SetWindowPos: SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); Чтобы …
Delphi FAQ >> Файлы и каталоги Uses ClipBrd, ShellApi; … procedure GetFilesFromClpbrd(list:TStrings); var f: THandle; buffer: array [0..MAX_PATH] of Char; i, numFiles: Integer; begin if not Clipboard.HasFormat(CF_HDROP) then Exit; Clipboard.Open; try f := Clipboard.GetAsHandle(CF_HDROP); if f 0 then begin numFiles := DragQueryFile(f, $FFFFFFFF, nil, 0); …
Delphi FAQ >> Система uses Registry; … function GetDirectXVersion(var major, minor: Word): Boolean; var Reg: TRegistry; str: String; res: Boolean; begin str := » res := false; major := 0; minor := 0; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey(’\Software\Microsoft\DirectX’, False) then …
Delphi FAQ >> Графика Функция GetScreenPixel возвращает цвет пикселя на экране с координатами x и y. При помощи этой функции можно сделать, например, программу для определения цвета под курсором мыши или программу для подбора цвета. function GetScreenPixel(x, y: integer): TColor; var dc: hdc; begin dc := GetDC(0); result := GetPixel(dc, x, y); ReleaseDC(0, dc); …
Delphi FAQ >> Операционная система Данная процедура на Delphi записывает в переменные hour, min, sec количество часов, минут и секунд соответственно, прошедших с момента загрузки Windows. procedure GetWinTime(var hour: Word; var min, sec: Byte); var t: longword; begin t := GetTickCount div 1000; hour := t div 3600; t := t mod 3600; …
Delphi FAQ >> Диалоги uses Ddeman; … Procedure ShowFindDialog; begin with TDDEClientConv.Create(form1) do begin ConnectMode := ddeManual; ServiceApplication := ‘explorer.exe’; SetLink( ‘Folders’, ‘AppProperties’); OpenLink; ExecuteMacro(‘[FindFolder(,d:\)]’, False); CloseLink; Free; end; end; В преддверии лета информация по теме Италия туры актуальна как никогда.
Delphi FAQ >> Диалоги Перед разделом var запишите объявление процедуры: Procedure ExitWindowsDialog (Handle: THandle); stdcall; external ‘shell32.dll’ index 60; Пример использования: ExitWindowsDialog (0); Ссылки в тему: Диалог «Завершение работы Windows» (способ 1)
Delphi FAQ >> Система В Панели управления Windows есть возможность поменять местами функции правой и левй кнопок мыши. Вот как это можно сделать на Delphi: Поменять: SwapMouseButton(true); Сделать как было: SwapMouseButton(false); Ссылки в тему: Изменены ли функции кнопок мыши на противоположные? У вашего друга юбилей? Тогда почитайте — Что подарить на 30 лет.