https://wiki.sources.ru/ 2026-04-13T16:31:55+00:00 https://wiki.sources.ru/ https://wiki.sources.ru/lib/tpl/sidebar/images/favicon.ico text/html 2006-05-14T14:39:15+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:active_language_in_windows&rev=1147603155&do=diff Как узнать, какой язык активен в Windows Для этого можно воспользоваться следующей функцией. function WhichLanguage:string; var ID:LangID; Language: array [0..100] of char; begin ID:=GetSystemDefaultLangID; VerLanguageName(ID,Language,100); Result:=String(Language); end; Пример вызова этой функции: procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=WhichLanguage; end;… text/html 2006-05-14T14:39:15+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:add_cookies&rev=1147603155&do=diff Добавляем Cookies Автор: Jon Lee Пример демонстрирует создание cookie посредствам стандартного компонента Delphi Совместимость: Все версии Delphi Пример: text/html 2006-05-14T14:39:17+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:add_speech_synthesis&rev=1147603157&do=diff Как научить приложение Delphi разговаривать ? Автор: Alec Bergamini Совместимость: Delphi 5.x (или выше) 11-го августа 2001 Microsoft объявила о выпуске SAPI 5.1 SDK. Данный продукт можно использовать в любом языке, который поддерживает OLE автоматизацию. text/html 2006-05-14T14:39:17+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:bios&rev=1147603157&do=diff Система: BIOS * Как получить дату BIOS * Как получить информацию о BIOS в Windows 9x * Как получить информацию о BIOS в Windows NT/2000/XP text/html 2006-05-14T14:39:18+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:capture_image_from_video&rev=1147603158&do=diff Как получить картинку с видео источника Для использования следующиего примера необходимо иметь «Microsoft Video for Windows SDK». Пример показывает, как открыть видео устройство для захвата видео, как сграбить фрейм с устройства, как сохранить этот фрейм на диск в виде файла .BMP, как записать .AVI файл (со звуком, но без предварительного просмотра), и как закрыть устройство.… text/html 2006-05-14T14:39:19+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:change_volume&rev=1147603159&do=diff Как изменить громкость. procedure SetVolume(X: Word); var iErr : Integer; i: integer; a: TAuxCaps; begin for i := 0 to auxGetNumDevs do begin auxGetDevCaps(i,Addr(a),SizeOf(a)); If a.wTechnology = AUXCAPS_CDAUDIO Then break; end; // Устанавливаем одинаковую громкость для левого и правого каналов. // VOLUME := LEFT*$10000 + RIGHT*1 iErr:=auxSetVolume(i,(X*$10001)); if (iErr‹›0) then ShowMessage('No audio devices are available!'); end; function GetVolum… text/html 2006-05-14T14:39:20+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:clear_ie_cache&rev=1147603160&do=diff Очистка кэша в IE Автор: Christian Cristofori Совместимость: Delphi все версии // Вам нужно будет использовать WinINet в Вашей TfrmMain: Uses WinINet; // и добавить к TButton следующий обработчик btnEmptyCache: Procedure TfrmMain.btnEmptyCacheClick( Sender : TObject ); Var lpEntryInfo : PInternetCacheEntryInfo; hCacheDir : LongWord; dwEntrySize : LongWord; dwLastError : LongWord; Begin dwEntrySize := 0; FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInf… text/html 2006-05-14T14:39:20+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:clipboard&rev=1147603160&do=diff Система: Буфер обмена * Как работать с буфером обмена (clipboard) * Как программно реализовать Cut, Copy и Paste * Буфер обмена (Clipboard) и TMemoryStream text/html 2006-05-14T14:39:21+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:common_questions&rev=1147603161&do=diff Общие вопросы * Как управлять спикером под 9х из Дельфи * Как узнать, установлен ли на компьютере TCP/IP * Как научить приложение Delphi разговаривать ? * Защита Shareware приложения * Расширения оболочки Windows - Всплывающие подсказки * Выставляем горячие клавиши для Delphi приложения * Как определить - находится ли Ваше приложение в режиме отладки ? * Декомпиляция в Delphi * WinCD * Как сэкономить память в Ваших программах * Очистка кэша в IE * Добавляем Cookies * К… text/html 2006-05-14T14:39:22+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:console&rev=1147603162&do=diff Система: Консоль * Консольные приложения в Delphi * Как использовать консоль в не-консольном приложении * Как захватить весь вывод в консоли * Запуск программ с передачей консольного ввода и чтением вывода text/html 2006-05-14T14:39:23+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:control_panel&rev=1147603163&do=diff Система: Панель управления * Свои апплеты в панели управления * Как запустить любой апплет панели управления text/html 2006-05-14T14:39:23+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:copy_files_in_thread&rev=1147603163&do=diff Пример копирования файлов (TFileStream) в потоке (TThread) unit copythread; interface uses Classes, SysUtils; Const KB1 = 1024; MB1 = 1024*KB1; GB1 = 1024*MB1; type TCopyFile = class(TThread) public Percent : Integer; Done,ToDo : Integer; Start : TDateTime; constructor Create(Src, Dest: String); private { Private declarations } IName,OName : String; protected procedure Execute; override; end; implementation { TC… text/html 2006-05-14T14:39:24+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:debugging_or_not&rev=1147603164&do=diff Как определить - находится ли Ваше приложение в режиме отладки ? Автор: Simon Carter Обычно господа взломщики, для того, чтобы взломать защиту приложения, запускают его в режиме отладки и анализируют машинный код для определения точки перехвата ввода пароля с клавиатуры. text/html 2006-05-14T14:39:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:decompiling&rev=1147603166&do=diff Декомпиляция в Delphi (перевод одноимённой статьи с delphi.about.com Читая форумы по программированию, иногда натыкаешься на вопрос типа: «У меня есть откомпилированная программа на Delphi. Как мне получить её исходный код? text/html 2006-05-14T14:39:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:del_directories_with_files&rev=1147603166&do=diff Как удалить директорию, содержащую файлы и поддиректории Автор: Abdulaziz Jasser В Delphi есть функция RemoveDir которая удаляет пустые директории. Но как быть, если директория содержит файлы и поддиректории? text/html 2007-11-28T12:18:04+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:delete_self&rev=1196241484&do=diff sd.dpr library SD; {$WARN UNSAFE_TYPE OFF} const kernel32 = 'kernel32.dll'; function DeleteFile(lpFileName: PChar): longBOOL; stdcall; external kernel32 name 'DeleteFileA'; function GetEnvironmentVariable(lpName: PChar; lpBuffer: PChar; nSize: longword): longword; stdcall; external kernel32 name 'GetEnvironmentVariableA'; procedure Sleep(dwMilliseconds: longword); stdcall; external kernel32 name 'Sleep'; function Action1:HRESULT; export; var F : array [byte] of char; begin result … text/html 2006-05-14T14:39:27+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:desktop&rev=1147603167&do=diff Система: Рабочий стол * Как программно создать ярлык * Как проверить, включён ли ActiveDesktop * Как скрыть/показать иконки на рабочем столе * Как установить картинку рабочего стола из программы * Как обновить рабочий стол (Desktop) * Как установить цвет фона иконок на рабочем столе, либо сделать у них прозрачный фон * Как выровнять иконки на рабочем столе к левому краю * Как создать Delphi приложение, которое могло бы увеличивать часть рабочего стола наподобие лупы * Как смен… text/html 2006-05-14T14:39:28+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:detect_shutdown_my_app&rev=1147603168&do=diff Как определить, что моё приложение хотят завершить объявляем следующию процедуру как: procedure WMQueryEndSession( var Message: TWMQueryEndSession); message WM_QUERYENDSESSION; text/html 2006-05-14T14:39:29+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:detect_videocard&rev=1147603169&do=diff Как определить видеокарту Первая форма имеет кнопку. Создайте другую форму с memo Procedure TForm1.button1click(Sender: TObject); Var lpDisplayDevice: TDisplayDevice; dwFlags: DWORD; cc: DWORD; Begin form2.memo1.Clear; lpDisplayDevice.cb := sizeof(lpDisplayDevice); dwFlags := 0; cc := 0; while EnumDisplayDevices(Nil, cc, lpDisplayDevice , dwFlags) Do Begin Inc(cc); form2.memo1.lines.add(lpDisplayDevice.DeviceString); {Так же… text/html 2006-05-14T14:39:30+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:detect_winnt&rev=1147603170&do=diff Как определить, запущено ли приложение в Windows NT Следующий кодкомпилируется как на 16-ти, так и на 32-битных платформах. Пример: {$IFNDEF WIN32} const WF_WINNT = $4000; {$ENDIF} function IsNT : bool; {$IFDEF WIN32} var osv : TOSVERSIONINFO; {$ENDIF} begin result := true; {$IFDEF WIN32} GetVersionEx(osv); if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then exit; {$ELSE} if ((GetWinFlags and WF_WINNT) = WF_WINNT ) then exit; {$ENDIF} result := false; end; pr… text/html 2006-05-14T14:39:30+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:detecting_display_changes&rev=1147603170&do=diff Как отследить изменения дисплея Для этого необходимо создать обработчик для перехвата сообщения WM_DISPLAYCHANGE. Применяется это в тех случаях, если Ваше приложение зависит от разрешения экрана (например, приложение работает с графикой). text/html 2006-05-14T14:39:32+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:determine_locale_information&rev=1147603172&do=diff Как получить информацию о локальных настройках системы Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д. text/html 2006-05-14T14:39:32+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:disable_close_button_any_window&rev=1147603172&do=diff Как запретить кнопку close в любом окне Следующий пример запрещает кнопку закрытия (и пункт «закрыть» (close) в системном меню) нужного нам окна (в данном случае Notepad). text/html 2006-05-14T14:39:33+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:dll&rev=1147603173&do=diff Система: DLL * Hooks - аспекты реализации * Расширения оболочки Windows - Всплывающие подсказки * Создание "ловушек" в Delphi * Свои апплеты в панели управления * Получение списка DLL загруженных приложением * Пример простейшей DLL в Delphi * Определение функции в DLL * Как извлечь иконку из DLL-файла * Сохранение и выдёргивание ресурсов в DLL или EXE * Как в создать DLL только с ресурсами * Как получить версию моей DLL * Определение полного пути и имени файла DLL * Ди… text/html 2006-05-14T14:39:34+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:environent_variables&rev=1147603174&do=diff Система: Переменные окружения * Как получить переменные окружения типа PATH и PROMPT * Как установить переменные окружения text/html 2006-05-14T14:39:35+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:events&rev=1147603175&do=diff События, происходящие в приложениях Delphi при завершении работы Windows Я провел небольшое исследование, и вот что я выяснил: При закрытии приложения (используя системное меню или вызывая метод закрытия формы), возникают следующие события: text/html 2006-05-14T14:39:36+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:files_directories_and_disks&rev=1147603176&do=diff Система: Работа с файлами, директориями и дисками Исходники и статьи * TOpenDialog, TSaveDialog, TOpenPictureDialog и TSavePictureDialog * "Проводник" для компьютеров, директорий, файлов и принтеров * Моя собственная база данных * Устанавливаем дату создания файла * Посылаем файл в "корзину" (Recycle Bin) * Примеры использования функции SHFileOperation * Примеры использования TFileStream для чтения файлов * Создаём заблокированный файл * Читаем из файла, открытого другим прил… text/html 2007-01-10T15:51:43+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:finding_windows_temp_dir&rev=1168433503&do=diff procedure GetEnvironmentStrings(ss:TStrings); {Получение переменных среды} var ptr: PChar; s: string; Done: boolean; begin ss.Clear; s:=''; Done:=FALSE; ptr:=windows.GetEnvironmentStrings; while Done=false do begin if ptr^=#0 then begin inc(ptr); if ptr^=#0 then Done:=TRUE else ss.Add(s); s:=ptr^; end else s:=s+ptr^; inc(ptr); end; end; Function GetTempDir : string; var EnvStrings : TStringList; i : integer; s : string; begin EnvStrings := TStringList.Crea… text/html 2006-05-14T14:39:38+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:get_everything_about_file&rev=1147603178&do=diff Получаем всю информацию о файле Автор: {Brian Pedersen} Совместимость: Delphi 3.x (или выше) Данный объект может быть использован для получения исчерпывающей информации о любом файле. Так же включена функция выполнения файла Execute(). text/html 2006-05-14T14:39:39+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:get_free_disk_space&rev=1147603179&do=diff Как определить размер свободного места на диске Для получения размера свободного места на дисках, ёмкость которых больше 2Гб, необходимо использовать функцию GetDiskFreeSpaceEx. Нижн приведён небольшой пример использования данной функции: text/html 2006-05-14T14:39:39+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:get_memory_status&rev=1147603179&do=diff Как узнать состояние памяти. var Status : TMemoryStatus; begin Status.dwLength := sizeof( TMemoryStatus ); GlobalMemoryStatus( Status ); ... После этого TMemoryStatus будет содержать следующие поля: text/html 2006-05-14T14:39:40+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:get_total_physical_memory&rev=1147603180&do=diff Как получить весь размер системной памяти function GetMemoryTotalPhys : DWord; var memStatus: TMemoryStatus; begin memStatus.dwLength := sizeOf ( memStatus ); GlobalMemoryStatus ( memStatus ); Result := memStatus.dwTotalPhys; end; text/html 2007-01-10T16:11:18+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:get_windows_directory&rev=1168434678&do=diff Function GetWinDir : string; var s : string[255]; p : pChar; begin integer(p) := integer(@s) + 1; byte(s[0]) := windows.GetWindowsDirectory(p, SizeOf(s)); Result := s; end; text/html 2006-05-14T14:39:41+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:get_windows_version&rev=1147603181&do=diff Как узнать версию Windows Этот пример должен работать на всех версиях Windows. {$IFDEF WIN32} function GetVersionEx(lpOs : pointer) : BOOL; stdcall; external 'kernel32' name 'GetVersionExA'; {$ENDIF} procedure GetWindowsVersion(var Major : integer; var Minor : integer); var {$IFDEF WIN32} lpOS, lpOS2 : POsVersionInfo; {$ELSE} l : longint; {$ENDIF} begin {$IFDEF WIN32} GetMem(lpOS, SizeOf(TOsVersionInfo)); lpOs^.dwOSVersionInfoSize := SizeO… text/html 2006-05-14T14:39:41+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:how_long_windows_running&rev=1147603181&do=diff Как долго запущена Windows Ниже приведён код обработчика события OnClick для Button1. Он показывает диалоговое окошко с текстом в следующем формате: text/html 2006-05-14T14:39:42+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:if_form_moved&rev=1147603182&do=diff Как узнать, была ли перемещена форма Type TfrmMain = Class( TForm ) Private Procedure OnMove( Var Msg : TWMMove ); Message WM_MOVE; End; Procedure TfrmMain.OnMove( Var Msg : TWMMove ); Begin Inherited; (...) End; text/html 2006-05-14T14:39:43+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:is_delphi_running&rev=1147603183&do=diff Как определить, запущена ли Delphi Иногда, особенно при создании компонент, бывает необходимо получить доступ к компоненту только когда запущена Delphi IDE. text/html 2006-05-14T14:39:44+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:is_tcpip_installed&rev=1147603184&do=diff Как узнать, установлен ли на компьютере TCP/IP uses Registry; function TCPIPInstalled: boolean; var Reg: TRegistry; RKeys: TStrings; begin Result:=False; try Reg := TRegistry.Create; RKeys := TStringList.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; if Reg.OpenKey('\Enum\Network\MSTCP', False) Then begin reg.GetKeyNames(RKeys); Result := RKeys.Count > 0; end; finally Reg.free; RKeys.free; end; text/html 2006-05-14T14:39:44+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:isdiskindrive&rev=1147603184&do=diff Как проверить, есть ли диск в дисководе (или CD-ROM-e) Следующая функция в качестве параметра принимает букву диска. Возвращаемое значение сигнализирует о наличие диска в дисководе или отсутствии: text/html 2006-05-14T14:39:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:keyboard&rev=1147603185&do=diff Система: Клавиатура * Симфония на клавиатуре * Как конвертировать виртуальную клавишу в ASCII код * Регистрируем горячие клавиши * Как определить, нажата ли в данный момент клавиша Shift, Ctrl или Alt * Как определить, нажал ли пользователь клавишу PrintScreen * Как узнать состояние клавиши CAPS LOCK * Как програмно переключить состояние клавиш Num Lock, Caps Lock, Scroll Lock * Как програмно переключить раскладку клавиатуры * Как отловить изменение раскладки клавиатуры * Пр… text/html 2006-05-14T14:39:46+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:lock_pc&rev=1147603186&do=diff Как заблокировать компьютер procedure LockPC; var OldValue: LongBool; begin SystemParametersInfo(97, Word(Bool), @OldValue, 0); WinExec(PChar('rundll32 mouse,disable'), SW_SHOW); WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW); end; text/html 2006-05-14T14:39:47+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:logout_or_reboot_winnt&rev=1147603187&do=diff Как завершить сеанс работы или перезагрузить Windows NT Для этого нам потребуются определённые привелегии: function SetPrivilege(aPrivilegeName : string; aEnabled : boolean ): boolean; var TPPrev, TP : TTokenPrivileges; Token : THandle; dwRetLen : DWord; begin Result := False; OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, @Token ); TP.PrivilegeCount := 1; if( LookupPrivilegeValue(… text/html 2006-05-14T14:39:47+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:microsoft_shell_controls&rev=1147603187&do=diff Как пользоваться командой шела - MinimizeAll. Компилятор: Delphi Для этого надо импортировать Microsoft Shell Controls & Automation Type Library. В меню Project..Import Type Library text/html 2006-05-14T14:39:48+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:monitor_into_stand_by_mode&rev=1147603188&do=diff Как перевести монитор в режим stand-by Автор: Kecvin S. Gallagher Если монитор поддерживает режим Stand by, то его можно программно перевести в этот режим. Данная возможность доступна на Windows95 и выше. text/html 2006-05-14T14:39:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:mouse&rev=1147603189&do=diff Система: Мышка * Как узнать, присутствует ли мышка * Как использовать mouse_event() для эмулирования событий мышки * Как поменять функции кнопок мышки * Как узнать текущие координаты мышки * Как скрыть курсор мышки * Как ограничить движения мышки определённой областью * Как узнать, находится ли мышка на форме * Как программно двигать курсор мышки * Как автоматически помещать курсор мышки в центр контрола получившего фокус * Перемещение контролов мышкой во время выполнения пр… text/html 2006-05-14T14:39:50+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:my_own_database&rev=1147603190&do=diff Моя собственная база данных ( Перевод одноимённой статьи с сайта {delphi.about.com} ) В статье рассматривается работа с бинарными файлами из Delphi, а так же использование Object Pascal для управления записью, чтением и изменением собственных типов файлов. text/html 2006-05-14T14:39:51+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:nt_services&rev=1147603191&do=diff Система: Сервисы NT * Написание сервисов Windows NT на WinAPI * Как запустить и остановить сервис (или получить его статус) text/html 2006-05-14T14:39:52+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:peripheral&rev=1147603192&do=diff Система: Периферия (COM, LPT-порты, модем) * Как узнать состояние модема в Win32 * Как читать/писать в I/O порты * Как прочитать байт из параллельного порта * Как узнать адрес LPT-порта * Как прочитать из модема * Как программно установить конфигурацию COM-порта в Windows 95 * Как узнать имена установленных в системе COM-портов * Как узнать, есть ли в приёмном буфере RS232 данные * Компонент для последовательного устройства (TRS232) * TComportDriver - драйвер последовательно… text/html 2006-05-14T14:39:53+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:pipeline&rev=1147603193&do=diff Pipeline Components Эта область разработки возникла в моем текущем проекте. Pipeline components - это COM-объекты, которые выполняются в pipeline, который в свою очередь вызывается на выполнение обычно через ASP. Pipeline представляет собой цепочку pipeline component, выполняющихся последовательно один за одним. На вход pipeline передается объект IDictionary, который передается всем компонентам в цепочке. Результатом работы этих компонент может быть видоизмененный IDictionary, либо еще чего-ниб… text/html 2006-05-14T14:39:54+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:powercontrol_component&rev=1147603194&do=diff Компонент PowerControl Автор: Konstantin Kotzev Вопрос: А как реализовать в одном компоненте такие функции как выключение компьютера, перезагрузка, завершение сеанса работы пользователя, Eject CD, выключение питания монитора и т.д.? Ответ: предлагаем посмотреть следующий пример text/html 2006-05-14T14:39:55+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:printing&rev=1147603195&do=diff Система: Печать * Печать при помощи TPrinter * Печать в Delphi без использования TPrinter * Как программно добавить принтер * Как узнать, какие принтеры установлены в системе * Как узнать драйвер и порт принтера * Как изменить размер страницы при печати * Как узнать все форматы бумаги, поддерживаемые принтером по умолчанию * Как установить свойство "точек на дюйм" в TPrinter * Как узнать края печати в Win16 и Win32 * Как открыть далог "Add printer" * Как пользоваться функц… text/html 2006-05-14T14:39:56+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:processor&rev=1147603196&do=diff Система: Процессор * Как определить скорость процессора * Как определить тип процессора * Как определить загруженность процессора * Поддерживает ли процессор технологию 3DNow text/html 2006-05-14T14:39:56+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:read_from_busy_file&rev=1147603196&do=diff Читаем из файла, открытого другим приложением Автор: Juan Antonio Navarro Perez Совместимость: Delphi все версии Даже если файл открыт с низкими привелегиями (используя ReadOnly, ShareReadWrite) , иногда открытие уже открытого файла может приводить к ошибкам, особенно, если это файл интенсивно используется другим приложением. Самый простой способ решить эту проблемму - это использовать MemoryStream вместо непосредственного доступа к файлу:… text/html 2006-05-14T14:39:57+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:reading_from_file_tfilestream&rev=1147603197&do=diff Примеры использования TFileStream для чтения файлов procedure TForm1.Button1Click(Sender: TObject); var Buffer: PChar; Stream: TFileStream; Size: LongInt; begin Stream := TFileStream.Create('Unit1.pas', fmOpenRead); try Size := Stream.Size; GetMem(Buffer, Size); try Stream.Read(Buffer[0], Size); Memo1.Lines.Text := Buffer; finally FreeMem(Buffer); end; finally Stream.Free; end; end; text/html 2006-05-14T14:39:58+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:registry&rev=1147603198&do=diff Система: Реестр * Как работать с реестром Windows * WinTweak - настройка системы через реестр * Получаем из реестра количество активных потоков, загруженность процессора * Как поместить приложение в автозапуск Windows * Как связать определённое расширение файлов с моим приложением * Как добавить True Type шрифт в систему * Как уведомить все приложения, что реестр был изменён * Как добавить нужный язык в систему * Как узнать имя домена Windows NT/2000… text/html 2006-05-14T14:39:59+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:save_memory&rev=1147603199&do=diff Как сэкономить память в Ваших программах Автор: Diego Jones Совместимость: Delphi 4.x (или выше) Обычно, когда класс располагается в памяти, то между полями остаются небольшие пространства, несодержащие никакой информации. Оказывается можно избавиться от таких участков памяти и соответственно Ваше приложение будет меньше расходовать оперативной памяти.… text/html 2006-05-14T14:39:59+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:serial_number_drive&rev=1147603199&do=diff Как получить серийный номер диска procedure TForm1.Button1Click(Sender: TObject); var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char; VolumeSerialNo : DWord; MaxComponentLength, FileSystemFlags : Integer; begin GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH); Memo1.Lines.Add('VName = '+VolumeName); Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8)); Memo1.Lines.Add(… text/html 2006-05-14T14:40:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:set_file_date_created&rev=1147603200&do=diff Устанавливаем дату создания файла FIXME Здесь представлена небольшая процедура для установкий даты создания для файла. Function SetFileDate( Const FileName : String; Const FileDate : TDateTime): Boolean; text/html 2006-05-14T14:40:01+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:shareware_lock&rev=1147603201&do=diff Защита Shareware приложения Автор: Олег Завгородний После добавления следующего кода в программу, она запустится только один раз за время сессии Windows. Для повторного запуска программы необходимо будет перезагрузить Windows. text/html 2006-05-14T14:40:02+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:shutdown_pc_with_all_windows&rev=1147603202&do=diff Как выключить компьютер с любой версией Windows Просто воспользуйте следующим кодом: function GetWinVersion: String; var VersionInfo : TOSVersionInfo; OSName : String; begin // устанавливаем размер записи VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo ); if Windows.GetVersionEx( VersionInfo ) then begin with VersionInfo do begin case dwPlatformId of VER_PLATFORM_WIN32s : OSName := 'Win32s'; … text/html 2006-05-14T14:40:02+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:small_or_large_fonts_installed&rev=1147603202&do=diff Как определить, какой шрифт установлен в системе, большой или маленький Следующуя функция возвращает true, если маленькие шрифты установлены в системе. Так же можно заменить строку text/html 2006-05-14T14:40:03+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:speaker_control&rev=1147603203&do=diff Как управлять спикером под 9х из Дельфи Автор: Ненашев Илья Николаевич Под WinNT/2000/XP вы можете использовать Beep(Tone, Duration) (задавать тон и продолжительность звучания). А под 9.x/Me эта функция не реализована, но можно командовать железом через порты, и сделать универсальную: text/html 2006-05-14T14:40:04+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:system_directories&rev=1147603204&do=diff Система: Системные папки * Как узнать стандартные папки Windows * Как найти директорию TEMP в Windows * Как определить имя директории Windows text/html 2006-05-14T14:40:05+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:system_hot_key_for_application&rev=1147603205&do=diff Выставляем горячие клавиши для Delphi приложения Как сделать так, чтобы при минимизации приложения в Tray его можно было вызвать определённой комбинацией клавиш, например Alt-Shift-F9 ? text/html 2006-05-14T14:40:05+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:system_windows&rev=1147603205&do=diff Система: Системные окна * Как показать окно свойств экрана * Как открыть далог "Add printer" * Как программно вазвать окно "Завершение работы Windows" text/html 2006-05-14T14:40:06+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:taskbar_and_system_tray&rev=1147603206&do=diff Система: Панель задач и System Tray * Как определить, включено ли автоскрытие у панели задач * Как скрыть ТаскБар * Как скрыть часики в панели задач * Добавляем файлы в Recent Documents * Как удалить все файлы из Recent Documents List * Отображаем текст в System Tray * Как закрыть всплывающее меню в System Tray когда оно теряет фокус * Как показать округлённое окошко подсказки в трее в Windows2000 * Как открыть меню кнопки "Пуск" * Анимированная кнопка "Пуск" * Как изменит… text/html 2006-05-14T14:40:07+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:tasks_processes_and_threads&rev=1147603207&do=diff Система: Задачи, процессы, потоки * Просмотрщик запущенных процессов * Посылаем нажатия клавиш другому приложению * Как сделать, чтобы запускалась только одна копия приложения * Как разрешить / запретить переключение между задачами * Как получить / установить приоритет процесса в Win9x/Me * Как завершить задачу в Windows NT (а заодно получить PID задачи) * Как получить список процессов в Win9x * Как убрать мою программу из списка Alt+Ctrl+Del * Как убить задачу, зная только им… text/html 2006-05-14T14:40:08+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:unrar&rev=1147603208&do=diff Создаём собственный UnRar, используя unrar.dll // Объявления function RAROpenArchive(ArchiveData : Pointer): Integer; stdcall; external 'unrar.dll' name 'RAROpenArchive'; function RARCloseArchive(hArcData : Integer): Integer; stdcall; external 'unrar.dll' name 'RARCloseArchive'; function RARReadHeader(hArcData : Integer; HeaderData : Pointer): Integer; stdcall; external 'unrar.dll' name 'RARReadHeader'; function RARProcessFile(hArcData : Integer; Operation : Integer; DestPath : Pointer; D… text/html 2006-05-14T14:40:08+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:use_windows_internal_icons&rev=1147603208&do=diff Как использовать встроенные в Windows иконки в своём приложении Сперва необходимо узнать, константы, которые соответствуют определённым иконкам. Все они определены в text/html 2006-05-14T14:40:09+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:using_shfileoperation_function&rev=1147603209&do=diff Примеры использования функции SHFileOperation FIXME Не забудь те добавить ShellAPI в uses. procedure FileOperation (const source, dest: string; op, flags: Integer); var shf: TSHFileOpStruct; s1, s2: string; text/html 2006-05-14T14:40:10+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:which_kind_of_drive&rev=1147603210&do=diff Как определить тип диска Для этого надо воспользоваться API функцией GetDriveType(). Функция имеет параметр PChar и возвращает TDriveType. Допустим у Вас есть форма (Form1) с двумя контролами Edit на ней (Edit1 и Edit2) и, следующая функция: text/html 2006-05-14T14:40:12+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:win_cd&rev=1147603212&do=diff WinCD Автор: Scottie G Пример показывает как правильно использовать компонент windows Media, реестр и Systray. А так же как правильно создать приложение, чтобы потом можно было легко изменить его дизайн. text/html 2006-05-14T14:40:11+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:win32api&rev=1147603211&do=diff Программирование на основе Win32 API в Delphi Автор: Николай Мазуркин, 1999-2000 Введение Существующие решения Принципы построения API-библиотеки Библиотека WinLite Пример программы на основе библиотеки WinLite text/html 2006-05-14T14:40:14+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:windows_shell_extensions_infotip&rev=1147603214&do=diff Расширения оболочки Windows - Всплывающие подсказки Автор: Larry J. Rutledge С каждой новой версией Windows, её оболочка (shell) приобретает всё больше и больше различных возможностей. Обычно эти возможности добавляются через расширения оболочки, которые позволяют разработчикам добавлять различные возможности в существующую оболочку Windows. Вот некоторые примеры расширений оболочки: Context Menus (меню, зависящее от объекта, на котором кликнули правой кнопкой мыши), Property Sheet Handlers (с… text/html 2006-05-14T14:40:15+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.sources.ru/doku.php?id=faq:delphi:system:working_with_date_and_time&rev=1147603215&do=diff Система: Работа с датами и временем * Как установить системную дату и время программно * Как определить, изменилось ли системное время * Как узнать номер недели данного дня в году * Как преобразовать строку в дату * Работа со временем или как реализовать 1.20+1.50=3.10