DLL БИБЛИОТЕКИ Delphi

[profi]

STALKER_777 это только твои проблемы.

[J.Bond]

STALKER_777, ты кажетсо петерялсо.. .
Пепел Феникса спасибо, там какие то проблемы с открытием файла(

[Пепел Феникса]

какая именно ошибка?

[J.Bond]

library P1;


uses
SysUtils,
Classes,windows,messages,
U1 in 'U1.pas' {dynForm};

{$R *.res}



var
SysHook: HHOOK; //Îãîëîøåííÿ çì³ííî¿ â ÿê³é áóäå çáåð³ãàòèñü ³äåíò. ïàñòêè

// Ôóíêö³ÿ ïàñòêè
function SysHookMsg(code:integer; wparam:WPARAM; lparam:LPARAM):LRESULT;stdcall;
var
Msg: TMsg;
i: integer;
s1: string;
f: textfile;
begin


CallNextHookEx(SysHook,code,wparam, lparam);
Msg:=TMsg(Pointer(lparam)^); // Ïðèâåäåííÿ òèïó âêàç³âíèêà, ÿêèé çàïèñàíèé â
// lparam äî òèïó TMsg
if code=HC_ACTION then
begin
if (Msg.message=WM_LBUTTONDOWN) then // Ïåðåâ³ðÿºìî ÿêå íàä³éøëî ïîâ³äîìëåííÿ
begin

assignFile(f,'D:\text.txt');
i:=0;
{$i-}
while (IOResult <> 0)or(i<100) do
begin
reset(f);
i:=i+1;
end;
{$i+}

writeln(f,inttostr(msg.lParam));
writeln(f,inttostr(msg.wParam));
writeln(f,inttostr(msg.time));

closefile(f);
end;

end; // code=HC_ACTION

end;


// Åêñïîðòíà ôóíêö³ÿ, çà äîïîìîãîþ ÿêî¿ âñòàíîâëþºòüñÿ ³ çí³ìàºòüñÿ ïàñòêà
function RunHook(fl:boolean):integer;
begin
if fl then // ßêùî âõ³äíèé ïàðàìåòð TRUE òî âñòàíîâëþºìî ïàñòêó
begin
SysHook:=SetWindowsHookEx(WH_GETMES SAGE,@SysHookMsg,HInstance,0);
end else
begin
UnhookWindowsHookEx(SysHook);
SysHook:=0;
end;
end;



exports
ShowModalForm,RunHook;


begin
end.


i/o eror 105 - не понимаю че такое

[Пепел Феникса]

в таком контексте используйте лучше WinAPI

[J.Bond]

проблема в том што я пока плохо розбераюсь у WIN API

[Пепел Феникса]

вам нужно всего несколько функций, а именно CreateFile ReadFile WriteFile CloseHandle
справки по ним достаточно...посмотрите в гугле

[J.Bond]

вы не могли б подсказать какую то книгу по етому?

[Пепел Феникса]

я учился без книг, поэтому не могу
посмотрите в разделе WinAPI
тем более вам нужны книги ради пары функций?
они похожы на обычные Паскалевские.