◇ [Delphi] Файлы копирования сети соседей
использует Shellapi;
CopyFile (pchar ('newfile.txt'), pchar ('// computername/direction/targer.txt'), false);
◇ [Delphi] генерирует эффект сопротивления мыши
Реализовано через событие MouseMove, Dragover Event и EndDrag Event, например, метка на панели:
var xpanel, ypanel, xlabel, ylabel: целое число;
Мероприятие MouseMove панели: xpanel: = x; ypanel: = y;
Драгверное событие панели: xpanel: = x; ypanel: = y;
Метка MouseMove Event: xlabel: = x; ylabel: = y;
Энддраг Энддраг
◇ [Delphi] Получить каталог Windows
использует Shellapi;
var windir: массив [0..255] char;
каталог GetWindir (Windir, Sizeof (Windir));
Или прочитайте из реестра, местоположение:
Hkey_local_machine/программное обеспечение/microsoft/windows/currentversion
Ключ для системы, get: c:/windows
◇ [delphi] рисуют линии на форме или других контейнерах
var x, y: массив [0..50] из целого числа;
canvas.pen.color: = clred;
canvas.pen.style:=psdash;
form1.canvas.moveto (tunc (x [i]), trunc (y [i]));
form1.canvas.lineto (tunc (x [j]), trunc (y [j]));
◇ [Delphi] Список Список использования
Советы VAR: TSTRINGLIST;
Советы: = tStringList.create;
tips.loadfromfile ('filename.txt');
edit1.text: = tips [0];
tips.add ('последняя строка с добавлением линии');
tips.insert (1, 'вставить строку в № 2 строки');
tips.savetofile ('newfile.txt');
tips.free;
◇ [Delphi] Простая работа буфера обмена
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;
◇ [Delphi] об операциях файлов и каталогов
Chdir ('c:/abcdir');
Mkdir ('dirname'); создать каталог
Rmdir ('dirname');
GetCurrentDir; // Получить текущее имя каталога, нет '/'
GetDir (0, s); // Получить имя рабочего каталога S: = 'c:/abcdir';
Deletfile ('abc.txt'); // удалить файл
Renamefile ('old.txt', 'new.txt'); // Изменение имени файла
ExtractFilEname (FileListbox1.filename); // Получить имя файла
Extractfileext (filelistbox1.filename); // возьмите суффикс файла
◇ [Delphi] Атрибуты файла процесса
attr: = filegetattr (filelistbox1.filename);
if (attr и fareadonly) = fareadonly then ... // только чтения
if (attr и fasysfile) = fasysfile тогда ... // Система
if (attr и faarchive) = faarchive then ... // archive
if (attr и fahidden) = fahidden тогда ... // Спрятать
◇ [delphi] Выполните внешние файлы программы
Winexec // Вызов исполняемого файла
Winexec ('command.com /c Copy *. * C: /', SW_NORMAL);
Winexec ('Start abc.txt');
Shellexecute или Shellexecuteex // Запуск программы Ассоциации файлов
function executefile (const filename, params, defaultdir: string; showcmd: integer): thandle;
Executefile ('c: /bc/a.txt', 'x.abc', 'c:/abc/', 0);
Executefile ('http: //tingweb.yeah.net',''',,0);
Executefile ('mailto: [email protected]', '', '', 0);
◇ [Delphi] Получите имя процесса запуска системы
var hcurrentwindow: hwnd; sztext: массив [0..254] of char;
Начинать
hcurrentWindow: = getWindow (handle, gw_hwndfrist);
в то время как hcurrentwindow <> 0
Начинать
Если GetWindowText (hcurrnetWindow,@Sztext, 255)> 0, то ListBox1.items.Add (strpas (@Sztext));
hcurrentWindow: = getWindow (hcurrentWindow, gw_hwndnext);
конец;
конец;
◇ [Delphi] внедрение на сборку
Asm end;
EAX, ECX, EDX может быть изменен по желанию;
◇ [delphi] о функции преобразования типа
FloattoStr // floatpoint к строке
FloattoStrf // floatpoint к строке с форматом
InttoHex // Integer к шестнадцатеричной
TimeToStr
DateToStr
DateTimetoStr
FMTSTR // Выходная строка в указанном формате
FormatDateTime ('yyyy-mm-dd, hh-mm-ss', date);
◇ [Delphi] Процесс и функции строк
INSERT (OBJ, Target, POS); // Строковая цель вставляется в положении POS. Если результат вставки больше максимальной длины цели, будут отключены дополнительные символы. Если POS находится за пределами 255, это вызовет ошибку. Например, ST: = «Брайан», затем вставьте («OK», ST, 2) заставит ST стать «брокским».
Удалить (st, pos, num); // выбросить подстроки с помощью нескольких (интегральных) символов из позиции POS в строке ST. Например, ST: = 'Brian', затем DELETE (ST, 3,2) станет BRN.
Str (value, st); // конвертировать числовое значение (интегральное или реальное) в строку и положить его в ST. Например, когда a = 2,5e4, str (a: 10, st) сделает значение ST «25000».
Val (st, var, code); // преобразовать строку выражения в соответствующее целое число или реальное значение и сохранить его в Var. ST должна быть строкой, представляющей числовые значения и соблюдать правила числовых констант. Во время процесса преобразования, если ошибка не обнаружена, код переменной установлен на 0, в противном случае он устанавливается в положение первого символа ошибки. Например, ST: = 25.4e3, x - реальная переменная, то Val (ST, X, Code) сделает x значение 25400 и код значения 0.
Copy (St.pos.num); // Возвращает подстроение, которая начинается в позиции в строке ST в POS (интеграл) и содержит num (интегральные) символы. Если POS больше длины строки ST, будет возвращена пустая строка. Например, ST: = «Брайан», затем копировать (ST, 2,2) возвращает «ri».
Concat (ST1, ST2, ST3 ..., STN); // Подключить все строки, представленные аргументами в данном порядке, и вернуть подключенное значение. Если результат - длина 255, будет сгенерирована ошибка запуска. Например, ST1: = 'Brian', ST2: = '', ST3: = 'Wilfred', затем Concat (ST1, ST2, ST3) возвращает «Брайан Уилфред».
Длина (ST); // Возвращает длину строкового выражения ST. Например, ST: = 'BRIAN', тогда возвращаемое значение длины (ST) составляет 5.
POS (obj, Target); // Возвращает позицию, в которой сначала появляется строка OBJ. Например, Target: = 'Брайан Уилфред', тогда возвратное значение POS ('Wil', Target) составляет 7, а возвращаемое значение POS ('hurbet', Target) составляет 0.
◇ [Delphi] о обработке реестра
использует реестр;
var reg: tregistry;
reg: = tregistry.create;
reg.rootkey: = 'hkey_current_user';
reg.openkey ('Панель управления/настольный компьютер', false);
reg.writestring ('title обои', '0');
reg.writestring ('обои', filelistbox1.filename);
reg.closereg;
reg.free;
◇ [Delphi] о постоянных именах клавиатуры
Vk_back/vk_tab/vk_return/vk_shift/vk_control/vk_menu/vk_pause/vk_escape
/Vk_space/vk_left/vk_right/vk_up/vk_down
F1-F12: $ 70 (112)-$ 7 млрд (123)
AZ: 41 долл. США (65)-$ 5A (90)
0-9: $ 30 (48)-39 долларов США (57)
◇ [Delphi] Программа предварительного суждения натив
Советы DOS для Delphi Software: эта программа должна быть запущена в рамках Win32.
Советы DOS для программного обеспечения VC ++: эта программа не может быть запущена в режиме DOS.
◇ [Delphi] Операция Cookie
response.cookies ("name") .domain: = 'http: //www.086net.com';
с response.cookies.add do
Начинать
Имя: = 'Имя пользователя';
значение: = 'имя пользователя';
конец
◇ [Delphi] Добавить в соединение меню документа
использует Shellapi, Shlobj;
shaddtorecentdocs (shard_path, pchar (filepath)); // добавить соединение
ShaddtoreCentdocs (shard_path, nil); // clear
◇ [Замужняя категория] Словарь метода ввода ABC
Windows/System/user.rem
Windows/System/tmmr.rem
◇ [Delphi] Судья кнопка мыши
Если GetAsynckeyState (vk_lbutton) <> 0 тогда ... // Left Key
Если GetAsynckeyState (vk_mbutton) <> 0 тогда ... // средний клавиша
Если GetAsynckeyState (vk_rbutton) <> 0 тогда ... // щелкните правой кнопкой мыши
◇ [delphi] Установите максимальный отображение формы
Событие OnformCreate
self.width: = screen.width;
self.height: = screen.height;
◇ Кнопка [Delphi] принимает сообщения
Обработка в событии Oncreate: Application.onmessage: = myonmessage;
Процедура tform1.myonmessage (var msg: tmsg; var harder: boolean);
Начинать
Если msg.message = 256, то ... // любой ключ
Если msg.message = 112, то ... // f1
Если msg.message = 113, то ... // f2
конец;
◇ [Замужняя категория] скрыть общие папки
Эффект совместного использования: доступный, но не видимый (в управлении ресурсами, сетевыми соседями)
Возьмите имя акции: направление $
Посетите: // компьютер/направление/
◇ [Java Script] Общие эффекты веб -страниц сценария Java
Веб -страницы регулярно закрываются на 60 секунд
<script language = "java script"> <!-
setTimeout ('window.close ();', 60000)
-> </script>
Закройте окно
<a href = "/" onclick = "javaScript: window.close (); вернуть false;"> закрыть </a>
Временный URL
<meta http-equiv = "refresh" content = "40; url = http: //www.086net.com">
Установить как домашняя страница
<a onclick = "this.style.behavior = 'url (#default#homepage)'; this.sethomepage ('http://086net.com');" href = "#"> установить как домашняя страница </a>
Добавьте этот сайт
<a href = "javascript: window.external.addfavorite ('http://086net.com', '[weiming pier]')"> Сохранить этот сайт </a>
Присоединяйтесь к каналу
<a href = "javascript: window.external.addchannel ('http://086net.com')"> Присоединяйтесь к каналу </a>
◇ [Delphi] Случайно генерируйте цвет текста
Рандомизировать; // Рандомизировать семена
memo1.font.color: = rgb (случайный (255), случайный (255), случайный (255));
◇ [Delphi] Delphi5 Обновление обновления.
1000003185
90x25fx0
◇ [Delphi] Незаконная фильтрация символов имен файлов
для i: = 1 до длины
Если s [i] in ['/', '/', ':', '*', '?', '<', '>', '|'] Тогда
◇ Определение и описание функции преобразования [delphi]
DateTimeTofiledate (DateTime: TDATETIME): Longint;
DateTimetoStr (DateTime: TDATETIME): Строка; Возвращается строка.
DateTimetoString (var struct string;
Const Format: String;
DateTime: tdatetime);
DateToStr (Дата: tdateTime) Используйте строку формата, определенную глобальной переменной ShortDateFormat, чтобы преобразовать параметр даты в соответствующую строку
floattodecimal (var result: tfloatrec; значение:
Распространен; точность, десятичные десятички:
целое число);
FloattoStr (значение: расширенное): строка преобразует значение с плавающей точкой в формат строки.
floattotext (буфер: pchar; значение: расширенное;
формат: tfloatformat; точность,
Цифры: целое число): целое число; В буфере.
floattotextfmt (буфер: pchar; значение: Extended;
Формат: pchar): целое число преобразует значение с плавающей точкой в десятичное представление в данном формате, а результат преобразования хранится в параметре буфера.
inttoHex (значение: longint; цифры: целое число):
Строка; Цифры параметров дают количество цифр, содержащихся в строке результата преобразования.
InttoStr (значение: Longint): строка преобразовать целые числа в десятичные строки
strtodate (const s: string): tdatetime преобразует строку в значение даты.
strtodatetime (const s: string): tdatetime преобразует строку в формат даты. Системное время постоянного времени настройки связаны. Если не указана информация AM или PM, это означает, что 24-часовая система используется.
strtofloat (const S: String): Extended;
[+|-] nnn… [.] nnn… [<+|-> <e | e> <+|-> nnnn]
Strtoint (Const S: String): Longint преобразует числовую строку в целое число.
strtointdef (const s: string; по умолчанию:
Longint): Longint;
strtotime (const s: string): tdatetime преобразует строку s в значение tdatetime, S имеет формат HH: MM: SS [Am | PM], и фактический формат связан с глобальными переменными, связанными со временем системы.
TimeToStr (Time: TdateTime): String; Формат строки результатов преобразования связан с настройкой констант, зависящих от времени, в зависимости от времени.
◇ [Delphi] Программа не отображается в Alt+Ctrl+Del
Добавьте заявление после реализации:
Функция RegisterServiceProcess (DWProcessId, Dwtype: Integer): Integer;
RegisterserviceProcess (GetCurrentProcessId, 1); // Скрыть
RegisterserviceProcess (GetCurrentProcessId, 0); // Show
Не вижу этого с Alt+del+ctrl
◇ [Delphi] Программа не отображается на панели задач
использует окна
вар
ExtendedStyle: целое число;
Начинать
Application.initialize;
// ========================================================================== ===================
ExtendedStyle: = getWindowlong (Application.Handle, GWL_EXSTYLE);
SetWindowlong (Application.Handle, GWL_EXSTYLE, ExtendedStyle или WS_EX_TOOLWINDOW
А не ws_ex_appwindow);
// ========================================================================== ===================
Application.createform (tform1, form1);
Application.Run;
конец.
◇ [delphi] Как определить, включена или выключена набора
Если getSystemmetrics (sm_network) и $ 01 = $ 01, тогда
ShowMessage ('Online!')
else Showmessage («Не в сети!»);
◇ [delphi] Реализация IP в доменное преобразование имени
function getDomainName (ip: string): string;
вар
PH: Фостент;
Данные: TWSADATA;
II: DWORD;
Начинать
WSaStartup (101 доллар, данные);
ii: = inet_addr (pchar (ip));
pH: = gethostbyaddr (@ii, sizeof (ii), pf_inet);
if (ph <> nil) тогда
Результат: = ph.h_name
еще
Результат: = '';
Wsacleanup;
конец;
◇ Метод [delphi] для обработки «Меню правой щелчки»
вар
Рег: Tregistry;
Начинать
reg: = tregistry.create;
reg.rootkey: = hkey_classes_root;
reg.openkey ('*/shell/check/command', true);
reg.writestring ('', '' ' + application.exename +' ""%1 "');
Reg.closekey;
reg.openkey ('*/shell/diary', false);
reg.writestring ('' ',' action (& c) ');
Reg.closekey;
reg.free;
ShowMessage ('Dode!');
конец;
◇ [delphi] Отправить значение виртуального ключа Ctrl V
процедура SendPaste;
Начинать
keybd_event (vk_control, mapvirtualkey (vk_control, 0), 0, 0);
keybd_event (ord ('v'), mapvirtualkey (ord ('v'), 0), 0, 0);
keybd_event (ord ('v'), mapvirtualkey (ord ('v'), 0), keyeventf_keyup, 0);
keybd_event (vk_control, mapvirtualkey (vk_control, 0), keyeventf_keyup, 0);
конец;
◇ [Delphi] Текущая буква оптического диска
процедура getCdrom (var CD: char);
вар
Str: String;
Драйверы: целое число;
водитель: char;
Я, темп: целое число;
Начинать
Драйверы: = getLogicalDrives;
темп: = (1 и драйверы);
для i: = от 0 до 26 сделать
Начинать
Если Temp = 1 тогда
Начинать
драйвер: = char (i+integer ('a'));
Str: = Driver+':';
Если getdrivetype (pchar (str)) = drive_cdrom тогда
Начинать
CD: = Driver;
Выход;
конец;
конец;
Драйверы: = (драйверы SHR 1);
темп: = (1 и драйверы);
конец;
конец;
◇ [Delphi] символы шифрование и дешифрование
Функция CRIPTSTR (const S: String; Type: DWORD): String;
вар
я: целое число;
fkey: целое число;
Начинать
Результат: = '';
Тип корпуса
0: setPass;
Начинать
рандомизировать;
fkey: = случайный ($ ff);
для i: = 1 до длины
Результат: = результат+chr (ord (s [i]) xor i xor fkey);
Результат: = Результат + Чар (fkey);
конец;
1: getPass
Начинать
fkey: = ord (s [длина (s)]);
для i: = 1 до длины (s) - 1 do
Результат: = результат+chr (ord (s [i]) xor i xor fkey);
конец;
конец;
□ ◇ [Delphi] Отправить ключи моделирования в другие приложения
вар
H: Тандл;
Начинать
H: = findWindow (ноль, «заголовок приложения»);
Postmessage (h, wm_keydown, vk_f9, 0); // Отправить ключ F9
конец;
□ ◇ [Delphi] Delphi поддерживает формат данных DAO