GetCursorPos
Riddle
GetCursorPos
Moduł: Windows
program Foo;
{$APPTYPE CONSOLE}
var
P: TPoint;
begin
GetCursorPos(P);
Writeln('pozycja X: ', P.X, 'pozycyja Y: ', P.Y);
end.
Zobacz też:
program Foo;
{$APPTYPE CONSOLE}
var
P: TPoint;
begin
GetCursorPos(P);
Writeln('pozycja X: ', P.X, 'pozycyja Y: ', P.Y);
end.
Zobacz też: