Mam taki problem
Napisałem w delphi coś takiego :
I wyświetla , na czerwono
uses unit1, unit7;
[Fatal Error] Unit7.pas(30): Program or unit 'Unit7' recursively uses itself
pomocy
Napisałem w delphi coś takiego :
Kod:
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm2;
MainHook : HHOOK;
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
implementation
uses unit1, unit7;
{$R *.dfm}
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
var
Buffer: TEventMsg;
begin
result := 0;
Buffer := PEventMsg(lParam)^;
if Buffer.message = wm_KeyDown then
Form2.Memo2.Text := Form2.Memo2.Text + chr(Buffer.paraml); //
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0);
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(MainHook);
end;
end.
I wyświetla , na czerwono
uses unit1, unit7;
[Fatal Error] Unit7.pas(30): Program or unit 'Unit7' recursively uses itself
pomocy