S
Sword_Sharp
Unregistered / Unconfirmed
GUEST, unregistred user!
var
fomSpy: TfomSpy;
MousePos: TPOINT;
hWindow: HWND;
WindowName: array[0..255]of char;
WindowText: array[0..255]of char;
implementation
{$R *.dfm}
procedure TfomSpy.TimerTimer(Sender: TObject);
begin
GetCursorPos(MousePos);
hWindow := WindowFromPoint(MousePos);
GetClassName(hWindow, WindowName, 255);
SendMessage(hWindow, WM_GETTEXT, 255, WindowText);//此处有问题,WindowText
处该为何类型?如何该?
MouseX.Text := IntToStr(MousePos.X);
MouseY.Text := IntToStr(MousePos.Y);
WndHandle.Text := IntToStr(hWindow);
WndName.Text := WindowName;
WndText.Text := WindowText;
end.
我试过:integer(WindowText)、integer(@WindowText)编译可以通过但是运行时会出问题[][][8D][][!][^][?]
fomSpy: TfomSpy;
MousePos: TPOINT;
hWindow: HWND;
WindowName: array[0..255]of char;
WindowText: array[0..255]of char;
implementation
{$R *.dfm}
procedure TfomSpy.TimerTimer(Sender: TObject);
begin
GetCursorPos(MousePos);
hWindow := WindowFromPoint(MousePos);
GetClassName(hWindow, WindowName, 255);
SendMessage(hWindow, WM_GETTEXT, 255, WindowText);//此处有问题,WindowText
处该为何类型?如何该?
MouseX.Text := IntToStr(MousePos.X);
MouseY.Text := IntToStr(MousePos.Y);
WndHandle.Text := IntToStr(hWindow);
WndName.Text := WindowName;
WndText.Text := WindowText;
end.
我试过:integer(WindowText)、integer(@WindowText)编译可以通过但是运行时会出问题[][][8D][][!][^][?]