Search results for 'WM_GETTEXT'. 1 post(s) found.
This form has 3 labels and a timer component:
unit unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject) ;
procedure Timer1Timer(Sender: TObject) ;
private
procedure ShowHwndAndClassName(CrPos: TPoint) ;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint) ;
var
hWnd: THandle;
aName,
Text : array [0..255] of char;
begin
hWnd := WindowFromPoint(CrPos) ;
Label1.Caption := 'Handle : ' + IntToStr(hWnd) ;
if boolean(GetClassName(hWnd, aName, 256)) then
Label2.Caption := 'ClassName : ' + string(aName)
else
Label2.Caption := 'ClassName : not found';
SendMessage(hWnd, WM_GETTEXT,
SizeOf(Text), integer(@Text)) ;
Label3.Caption := 'Text :' + Text;
end;
procedure TForm1.FormCreate(Sender: TObject) ;
begin
Form1.FormStyle := fsStayOnTop;
Timer1.Interval := 50;
end;
procedure TForm1.Timer1Timer(Sender: TObject) ;
var
rPos: TPoint;
begin
if boolean(GetCursorPos(rPos))
then ShowHwndAndClassName(rPos) ;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject) ;
procedure Timer1Timer(Sender: TObject) ;
private
procedure ShowHwndAndClassName(CrPos: TPoint) ;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint) ;
var
hWnd: THandle;
aName,
Text : array [0..255] of char;
begin
hWnd := WindowFromPoint(CrPos) ;
Label1.Caption := 'Handle : ' + IntToStr(hWnd) ;
if boolean(GetClassName(hWnd, aName, 256)) then
Label2.Caption := 'ClassName : ' + string(aName)
else
Label2.Caption := 'ClassName : not found';
SendMessage(hWnd, WM_GETTEXT,
SizeOf(Text), integer(@Text)) ;
Label3.Caption := 'Text :' + Text;
end;
procedure TForm1.FormCreate(Sender: TObject) ;
begin
Form1.FormStyle := fsStayOnTop;
Timer1.Interval := 50;
end;
procedure TForm1.Timer1Timer(Sender: TObject) ;
var
rPos: TPoint;
begin
if boolean(GetCursorPos(rPos))
then ShowHwndAndClassName(rPos) ;
end;
end.
Another posts included in "Delphi"
| How to determine the output of a console application ? (0) | 2007/09/20 |
| How to install an INF file using Delphi ? (0) | 2007/09/20 |
| How to play sounds on the PC Speaker ? (0) | 2007/09/20 |
| Get dimensions of usable space on monitor (work area) (0) | 2007/09/20 |
| Get system info (free memory, etc) (0) | 2007/09/20 |
| How to Get Filenames from Clipboard ? (0) | 2007/09/20 |
| How to Get Windows OS Version ? (0) | 2007/09/20 |
| Get Windows Temp directory (0) | 2007/09/20 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 01:38
moneyideas
-
Subject different money making ideas
2010/01/29 09:45
moneyideas
-
Subject different money making ideas
2010/01/31 16:40
moneyideas
Prev
Rss Feed