Создание или открытие Ini файла — Ini:= TIniFile.Create(‘Ini.ini’); // Var Ini : TIniFile; uses , inifiles Создается, если не задан путь в папке Виндовс. Создание или открытие Ini.ini файла в директории программы — Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+’Ini.ini’); // Var Ini : TIniFile; uses , inifiles Освобождение памяти от переменной — Ini.Free; // Var Ini : TIniFile; uses ,… Читать далее »
Во время запуска программы пропишем её в реестр Windows, в раздел автозагрузки [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] uses Registry; procedure TForm1.FormCreate(Sender: TObject); var reg: TRegistry; path: string; begin path := Application.EXEname; // узнаем путь к программе и ее имя reg := TRegistry.Create; // открываем реестр reg.RootKey := HKEY_CURRENT_USER; // ветка текущего пользователя if reg.OpenKey(‘\Software\Microsoft\Windows\’ +… Читать далее »
Программно открыть dvd привод: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] mciSendString(‘set cdaudio door open wait’,nil,0,0); // uses , mmsystem; [/cc] Программно закрыть (если поддерживается железом) dvd привод: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] mciSendString(‘set cdaudio door closed wait’,nil,0,0); // работает только когда в системе 1 физический dvd привод. [/cc]
Текст задания : Необходимо проиграть мелодию на системном динамике. Решение :
Задание : «Вывести 10 дат начиная с сегодняшней СУБД Oracle язык Pl/SQL» Решение Вариант №1 Через рекурсивный запрос [cc lang=»plsql» tab_size=»2″ line_numbers=»false» no_links=»false» escaped=»true»] select trunc(sysdate+level-1) date1 from dual connect by level
Устанавливаем год на компьютере — GetLocalTime(tm); tm.wYear:= 2000; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем месяц на компьютере — GetLocalTime(tm); tm.wMonth:= 01; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем день на компьютере — GetLocalTime(tm); tm.wDay:= 01; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем часы на компьютере — GetLocalTime(tm); tm.wHour:= 0; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем минуты на… Читать далее »
Переменные содержащие целые числа, не имеющие дробной части. Тип переменной Значение переменной Размер переменной Shortint -128..127 8-бит со знаком Int64 -2^63..2^63-1 64-бит со знаком Smallint -32768..32767 16-бит со знаком Integer -2147483648.. 2147483647 32-бит со знаком Longint -2147483648.. 2147483647 32-бит со знаком Longword 0..4294967295 32-бит без знака Byte 0..255 8-бит без знака Word 0..65535 16-бит без… Читать далее »
Таблица преобразования типов переменных. Integer String Extended Integer x:=x; x:=strtoint(x); x:=Round(x); String x:=inttostr(x); x:=x; x:=FloatToStr(x) Extended x:=x; x:=StrToFloat(x); x:=x;
Событие Описание OnActivate Когда приложение стало активным. OnCanResize Это событие генерируется перед тем, как изменить размер окна. OnClose Генерируется, когда окно закрывается. OnCloseQuery Генерируется до закрытия окна. В этом обработчике происходит запрос на закрытие, OnCreate Генерируется, когда окно создаётся. OnDeactivate Генерируется, когда окно деактивируется. OnDestroy Когда… Читать далее »
Вывод сообщения при нажатии клавиши 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] of char;