Помогите справиться с хуками
Korona 2002-12-12 19:01 2003.01.27Начал разбираться с хуками: для начала с локальными. Но что то не поучается в приведенном ниже коде поставить хук на созданный процесс:
var
Form1: TForm1;
CurrentHook: HHOOK;
lpProcessInfo: PROCES ...
есть процедура
ed 2003-01-17 12:26 2003.01.27Есть процедура.
procedure FirstPicture;
var
r : integer; // результат поиска файла
begin
APath:="D:\фото\";
r := FindFirst(aPath+"*.jpg",faAnyFile,aSearchRec);
if r = 0 then
begin
aFile := aP ...
Копирование строк
Павел 2003-01-16 14:07 2003.01.27Уважаемые мастера-программисты ,подскажите пожалуйста, как можно переслать содержимое одной строки в другую за меньшее количество машинных циклов процессора(т.е. выполнялась быстрая пересылка )? ...
Графические фильтры!
AlexT1000 2002-10-11 14:15 2003.01.27Нужны исходники различных графических фильтров.
как цветовых так и геометрических.
если у кого есть пришлите или дайте ссылки , пожалуйста. ...
Минимальное приложение
smitt 2003-01-08 13:27 2003.01.27Попробовал создать минимальное приложение, пример уже обсуждался в форуме, также его можно найти в русской справке по WinAPI.
Вопрос вот в чём. ЕХЕ-шник получается порядка 15кб. а вот в памяти проце ...
помогите пожалуйста разобрать (что-то не работает)
laser 2003-01-15 23:30 2003.01.27const str="Помогите пожалуйста разобрать";
var
p1:word;
s1,s2:string;
begin
p1=pos("пожалуйста",str);
if p1 <= 0 then exit;
while(str[p1] <> " ")
begin
s1:=s1+str[p1];
dec(p1);
e ...
закрыть окно
kirill8 2002-12-13 16:45 2003.01.27привет.
как закрыть найденное окно.
и пример
если не трудно
благодарю.
function MyCallback (hHandle: hwnd; lPar: longint): boolean; stdcall
var p: array [0..255] of char;
begin
GetWindowText ( ...
Количество распечатанных листов на принтере
Sergey_MV 2002-11-15 09:25 2003.01.27Хочу написать прогу для определения количества распечатанных на принтере листов. Как это можно определить? Какие функции для этого существуют? ...
Загрузка картинки в Imageshow
Igit 2003-01-17 10:08 2003.01.27Я делаю так
procedure TForm1.ImageShow1Click(Sender: PObj);
var Hbmp: Hbitmap;
Tbmp: Tbitmap;
begin
Tbmp.Create;
Tbmp.LoadFromFile(listbox1.Items[listbox1.curindex]);
Hbmp:=Tbmp.Handle;
fo ...
Создание ядра ОС
Лёха2003 2003-01-05 14:51 2003.01.27Можно ли создать ядро для своей ОС на Делфи? И где можно почитать про создание ядер?
Спасибо! ...
