DelphiFAQ Home Search:

Other Feedback

 

comments12 comments. Current rating: 5 stars (2 votes). Leave comments and/ or rate it.

Please post here general other feedback that does not fit into the existing topics in this category.

Alternatively you can also email me at peter at delphifaq dot com


Comments:

2007-01-16, 23:46:17
from Norcross in Georgia, United States  
rating
so, i forgot to say thank you... thank you!

2007-01-24, 18:44:30
themvsic@hotmail.com from Ocean Beach in New South Wales, Australia  
Natalja Denisowa deserved to have her family killed for destroying others. her phone# is 3902293539
2007-01-30, 01:00:27
themvsic@hotmail.com  
I wonder who bought the Afgan heroin, was it the hagus natalja denisowa.
2007-02-17, 17:04:47   (updated: 2007-02-17, 17:06:28)
anonymous  
I made a post over week ago, How do I take a post down or edit, I put up by mistake?
2007-03-24, 15:35:02
anonymous from United States  
i posted a picture of a woman i that was a scammer but shes not how do i remove pic
2007-04-10, 10:48:43
rdawg211@dawgfans.net from United States  
How do I update or delete my comments about a scammer after it has been posted
2007-08-08, 13:56:05
anonymous from United States  
Hello to our webmaster....could you edit and hide my email address for an article at 2007-07-06 22:10:20 Thankyou very Much Eric
2007-09-27, 08:18:27
anonymous from United States  
oundation's Officer,
Fondazion Di Vittorio, Italy
Http://www.fondazionedivittorio.it
Concern.

The Foundazion Di Vittorio, Would Like To Notify You That You Have Been
Chosen By The Board Of Trustees As One Of The Final Recipients Of A
Cash Grant/donation For Your Own Personal, Educational, And Business
Development.

To Celebrate The 30th Anniversary Program, The Vittorio Foundation In
Conjunction With The Economic Community For West African States, United
Nations Organization And The European Union Is Giving Out A Yearly
Donation Of (One Million United States Dollars) To 100 Lucky Recipients.

The Objective Is To Make A Notable Change In The Standard Of Living Of
People All Around The Universe (From America To Europe, Asia To Africa
And All Around). The Vittorio Foundation Has Been Assured Of Highest
Organization Standard Courtesy Of The United Nations. It Is Our Belief
That We Can Achieve A Great Positive Change In The General Welfare Of The
Universe Through This Program. That Is Why The Foundation Is Doing
Everything Possible To Get All Recipients Notified Of Their Donation.

Based On The Random Selection Exercise Of Internet Websites And
Millions Of Supermarket Cash Invoices Worldwide, You Were Selected Among The
Lucky Recipients To Receive The Award Sum Of $1,000,000.00 (One Million
Thousand United States Dollars) As Charity Donations/aid From The
Vittorio Foundation, ECOWAS, EU And The UN In Accordance With The Enabling
Act Of Parliament. (Note That All Beneficiaries Email Addresses Were
Selected Randomly From Over 100,000 Internet Websites Or A Shop's Cash
Invoice Around Your Area In Which You Might Have Purchased Something
From).

You Are Required To Fill The Form Below And Email It To Our Attorney
Below. the Payment officer of the Vittorio Foundation in London, UK via
their email for the claims of your donation. Please Endeavor To Quote
Your Qualification Numbers (N-222-6747, E-900-56) In All Discussions.

FULL NAMES:
ADDRESS:
STATE:
ZIP:
COUNTRY:
SEX:
AGE:
OCCUPATION:
E-MAIL ADDRESS:
TELEPHONE NUMBER:

Name: Barr. Gregory Anderson
Address: 69 Main Street
Maghera BT46 5AB
Tel: +44-704-574-0470
Fax: +44-870-4782-993
Email: barr.gregory01@yahoo.co.uk

Regards,

Mr. Carlo Ghezzi (Il Presidente)
VITTORIO FONDAZIONE.
2007-11-29, 12:14:09
OJAS from United States  
Admin Peter

Thanks for making Eddie's welcome for newcomers readily visible on every thread. With its good color contrast it will catch the attention of newbies hovering mouse while scrolling.

Best Regards
OJAS
2007-12-24, 23:59:53
anonymous from Taiwan  
Dear Sir:

my name is david chao, not so long ago I got the Delphi program from a web
site about using the Windows Hook to record the mouse and keyboard events and
replay, it's very interesting. However I have a question, How can I save the mouse
and keyboard events to a file then open the file and replay the mouse and keyboard
events. Can you tell me how to do? or If you can show me the example( Delphi)
will be very nice, looking forward your good news. Thank's !!

David Chao
Email:david0927tw@yahoo.com.tw

the program as the follows:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
EventArr:array[0..99999]of EVENTMSG;
EventLog:Integer;
PlayLog:Integer;
hHook,hP, in1:Integer;
recOK:Integer;
canPlay:Integer;
bDelay:Bool;ol;
implementation

{$R *.dfm}
FunctiPlayProc( iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;sT;stdcall;
begin
canPlay:=1;
Result:=0;
if iCode < 0 then
Result := CallNextHookEx(hPlay,iCode,wParam,lParam)
else if iCode = HC_SYSMODALON then
canPlay:=0
else if iCode = HC_SYSMODALOFF then
canPlay:=1
else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin
if bDelay thbegin
bDelay:=False;
Result:=50;
end;
pEventMSG(lParam)^:)^:=EventArr[PlayLog];
end
else if ((canPlay = 1)and(iCode = HC_SKIP))then begin
bDelay := True;
PlayLog:=PlayLog+1;
end;
if PlayLog>=EventLog then begin
UNHookWindowsHookEx(hPlay);
end;
end;
functiHookProc( iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;sT;stdcall;
begin
recOK:=1;
Result:=0;
if iCode < 0 then
Result := CallNextHookEx(hHook,iCode,wParam,lParam)
else if iCode = HC_SYSMODALON then
recOK:=0
else if iCode = HC_SYSMODALOFF then
recOK:=1
else if ((recOK>0) and (iCode = HC_ACTION)) thbegin
EventArr[EventLog]:=pEventMSG(lParam)^;
EventLog:=EveEventLog+1;
if EventLog>=99999 thbegin
UnHookWindowsHookEx(hHook);
end;
end;
end;

proceocedure TForm1.FormCreate(Sender: TObject);
Var Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;
Begin
Button1.Caption:='RECORD'
Button2.Caption:='STOP';
Button3.Caption:='REPLAY';
Button2.Enabled:=False;
Butt. Enabled:=False;
in1:=0;
Button1click(nil);
end;



pr
procedure TForm1.Button1Click(SendeTObject) ;
begin
EventLog:=0;
hHook:=SetwindowsHookEx(WH_JO_JOURNALRECORD,HookProc,HInstance,0);
Button2.Enabled:=True;
Button1.Enabled:=False;
end;

procedure TForm1.Button2Click(SendeTObject) ;
begin
UnHookWindowsHookEx(hHook);
hHook:=0;
ButButton1.Enabled:=True;
Button2.Enabled:=False;
Button3.Enabled:=True;

end;

procedure TForm1.Button3Click(SendeTObject) ;
begin
PlayLog:=0;
hPlay:=SetwindowsHookEx(WH_JOUJOURNALPLAYBACK,PlayProc,
HInstance,0);
Button3.Enabled:=False;
end;



2007-12-30, 11:34:44
[hidden]  
rating
Dear webmaster,
Could you please send me your email contact address. I just need to send you a request in private. Thank you!

BTW. This is a great site. You are doing the internet world a great service.!
2008-01-24, 04:23:05
anonymous from France  
JAIS TRES BIENS COMPRIS LA PERSONNE QUE A REPONDU AU SUJET
DE LA JEUNE FEMME AU GHANA SE FAISANT PASSEE POUR UNE HUMANITAIRE
' SI VOUS NE COMPRENEZ PAS TOUT GLOOGLE TRADUIS EN PLUSIEURS LANGUES'
MOI JE NE SAIS QUE PARLEE LE FRANCAIS ET ECRIS

 

 

Email address (not necessary):

Rate as
Hide my email when showing my comment.
Please notify me once a day about new comments on this topic.
Please provide a valid email address if you select this option.
 
It seems that you are
from Washington, US .

Info/ Feedback on this

Show city and country
Show country only
Hide my location
Leave your comment here:
Please type in the code:
photo Add a picture:

Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material.