能否得到屏幕绝对坐标？ (100分)

braveman77 · 2002-08-12

请问大家我想利用API得到一个非delphi窗体（比如Word、Excel)中所选定部分(比如选定一句话）的屏幕坐标，能吗？似乎很难呀。

jrq · 2002-08-12

GetCursorPos() ClientToScreen() ScreenToClient() 用这3个试试

哈利波特 · 2002-08-12

天与地 · 2002-08-13

同Jrq。

braveman77 · 2002-08-13

具体怎么作呢？

jsxjd · 2002-08-14

其实 jrq 已经给出思路，下面是具体的实现： procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); var   p:TPoint; begin   GetCursorPos(p);   ClientToScreen(p) ;   label1.caption:=format('x=%d ,y=%d',[p.x,p.y]); end;

SSGYK · 2002-08-14

GetWindowPos

BDFan · 2002-08-15

jsxjd 说的够清楚的啦

braveman77 · 2002-08-15

谢谢大家，不过我的问题是如何取得非delphi的窗体内指定部分的坐标，而jsxjd你的方法是 在delphi窗体内将窗体坐标转换为绝对坐标。请大家继续关注此问题。

jsxjd · 2002-08-15

那你可以在 form 的 oncreate 中加一条鼠标跟踪命令。

chenxz · 2002-08-16

Mouse.CursorPos可以获取到鼠标在屏幕当前位置的坐标。

china_bug · 2002-08-16

xf-wangyi · 2002-08-16

试试这个程序 只有一个dpr文件 你编译看看 // Win Inspector by DeK_OiN program WinInspector; uses    Windows,    Messages, SysUtils; {$R *.RES} var    GroupBox1, Fuente, Handle, About, Instancia,       lcPosX, lcPosY, cPosX, cPosY, LabelHandle, eHandle,       wNLabel, wName, cWLabel, cWindow, IDLabel, eThreadID: Integer;    Clase: TWndClassA;    Mensaje: TMsg; // Esta procedure ser?llamada cada 1 milisegundo por el Timer que creamos // con SetTimer. Adem醩 de eso, esto es lo que le da una utilidad al prog

procedure Timer; var    cPos: TPoint;    hWnd: THandle;    wText: PChar;    WinClass: array[0..80] of Char;    stri:string; begin    GetCursorPos(cPos); //Capturamos la posici髇 del cursor en la variabe cPos    SetWindowText(cPosX, PChar(IntToStr(cPos.X))); //Ponemos el X de la pos. del cursor en el edit,                                                       //recuerda que estamos con la API y no podemos                                                       //hacer Edit1.Text := X sino que tenemos que                                                       //llamar a la API SetWindowText

SetWindowText(cPosY, PChar(IntToStr(cPos.Y))); //Ponemos el Y de la pos. del cursor en el edit    SetWindowText(cposx,pchar(   inttohex(   GetPixel(GetDC(0),cpos.X,cpos.y) , 2)   &nbsp

&nbsp

; //trabajaremos con handle de la ventana que est?debajo del cursor del mouse    hWnd := WindowFromPoint(cPos);    SetWindowText(eHandle, PChar(IntToHex(hWnd, 2))); //Mostramos el handle en el edit, ya pasado a base                                                         //16 (o sea, hexadecimal)    GetMem(wText, GetWindowTextLength(hWnd) + 1);    GetWindowText(hWnd, wText, GetWindowTextLength(hWnd) + 1); // extraemos el texto de la ventana que est?                                                         // debajo del cursor    SetWindowText(wName, wText); // y lo mostramos en el edit    SetWindowText(eThreadID, PChar(IntToHex(GetWindowThreadProcessID(hWnd, nil), 8)));    GetClassName(hWnd, WinClass, SizeOf(WinClass)); // obtenemos el class de la ventana y lo metemos en la variable WinClass    SetWindowText(cWindow, WinClass); // mostramos el class obtenido en el edit end; // Procedure para salir nuestro programa sin dejar rastros en la memoria

procedure Salir; begin    DeleteObject(Fuente); //liberamos los recursos del sistema asociados a nuesta fuente    UnRegisterClass('DeKOiN', Instancia); //removemos el class de la memoria    ExitProcess(Instancia); //finalmente terminamos el proceso end; procedure MostrarAbout; var    Parametros: TMsgBoxParams; begin // Definimos los par醡etros del MessageBoxIndirect    with Parametros do    begin       cbSize := SizeOf(Parametros);       hwndOwner := handle;       hInstance := Instancia;       lpszText := 'Mini-WinIdentifier by DeK_OiN' + #13#10 +          'Programado en Delphi 5, usando solo la API de Windows, haciendo' + #13 +          'el ejecutable de unos 45 kbs y comprimido con UPX de unos 23kbs

' + #13 + #13 +          'Por cierto, queda a 45 kbs por que uso las SysUtils xD';       lpszCaption := 'Acerca de Mini-WinIdentifer';       dwStyle := MB_OK or MB_USERICON;       lpszIcon := 'MAINICON';       dwContextHelpId := 0;       lpfnMsgBoxCallback := nil;       dwLanguageId := LANG_NEUTRAL;    end;    MessageBoxIndirect(Parametros); //Finalmente lo mostramos end; // WindowProc, procesamos todos los WindowMessages que nos env韆n... function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall; begin // Llamamos a la procedure por defecto de Windows, para tambi閚 procesar // los dem醩 mensajes que nuestra aplicaci髇 reciba. As?garantizamos que // TODOS los mensajes que nos env韊n sean procesados. Haz la prueba, quita // esta l韓ea y ver醩 que ni siquiera el WM_PAINT se procesa

Result := DefWindowProc(hWnd, uMsg, wParam, lParam); //Ahora nos vamos a los mensajes m醩 espec韋icos    case uMsg of       WM_Destroy: Salir; //Si han presionado la X para salir                                         //llamamos a nuestra procedure para                                         //liberar los recursos del sistema       WM_TIMER: Timer; //Si nos mandan el mensaje WM_TIMER                                         //(el cual se mandar?cada 1 milisegundo -                                         //el interval del timer que creamos)                                         //ejecutamos nuestra procedure Timer;       WM_COMMAND: //Si nos mandan el WM_COMMAND          if lparam = About then //vemos si el lParam del mensaje = al             MostrarAbout; //handle del bot髇 About, y si lo es, es porque                                         //閟te fue presionado por lo tanto llamamos a                                         //nuestra procedure para mostrar los cr閐itos    end; //Terminamos con el CASE end; begin    Instancia := hInstance; //instancia del programa  //本程序的唯一句柄 //la Win32Programmer's Reference

//建立字体    Fuente := CreateFont(       -12,       0,       0,       0,       400,       0,       0,       0,       DEFAULT_CHARSET,       OUT_DEFAULT_PRECIS,       CLIP_DEFAULT_PRECIS,       DEFAULT_QUALITY, DEFAULT_PITCH +       FF_DONTCARE,       'MS Sans Serif'); //Definimos las partes del class de la ventana para luego registrarlo...    with Clase do    begin       Style := CS_CLASSDC or CS_PARENTDC; //estilo       lpfnWndProc := @WindowProc; //apunta hacia nuestra funci髇 para procesar mensajes       hInstance := Instancia; //instancia de nuestra aplicaci髇       hIcon := LoadIcon(hInstance, 'MAINICON'); //el 韈ono       hbrBackGround := COLOR_BACKGROUND; //el color       lpszClassName := 'DeKOiN'; //el nombre       hCursor := LoadCursor(0, IDC_ARROW); //finalmente el cursor    end;    RegisterClass(Clase); //Registramos el class de nuestra ventana //******************************************************************** //Comenzamos la creacion de la ventana y los controles de nuestro app //******************************************************************** //Creamos la ventana principal    Handle := CreateWindowEx(//Handle := el handle de la ventana principal       WS_EX_WINDOWEDGE + //los estilos "extra"       WS_EX_TOPMOST, //de la ventana       'DeKOiN', //nombre del class ( YA REGISTRADO ) de la ventana       'WinInspector', //titulo de la ventana       WS_SYSMENU or //estilos de la ventana [Tiene los botones (Maximizar, Minimizar, Cerrar) en la titlebar]       WS_VISIBLE or // [Es visible]       WS_MINIMIZEBOX, // [Se puede minimizar]       0, 0, // Queremos que la ventana aparezca en la esquina superior                         // izquierda de la pantalla, por lo tanto le asociamos lo que                         // normalmente ser韆n las propiedades "top" y "left" a 0       179, 227, //dimensiones de la ventana [Ancho,Alto]       0, 0, //mirar Win32 Programmer's reference

Instancia, // instancia de nuestra aplicaci髇       nil //puntero a los datos de creaci髇 de la ventana       ); //Creamos el bot髇 de about    About := CreateWindow(       'Button', //nombre del class       'About', //texto del bot髇       WS_VISIBLE or //estilos       WS_CHILD, //por detalles mirar Win32 Programmer's Reference       1, 160, // X , Y del control       89, 41, //dimensiones [Width, Height]       handle, //handle de nuestra aplicaci髇       0,       Instancia, //instancia de nuestra aplicaci髇       nil //puntero a los datos de creaci髇 del control       ); //Creamos un "panel" para que el prog tenga un mejor aspecto    GroupBox1 := CreateWindowEx(       WS_EX_STATICEDGE,       'Static',       'Posici髇 del cursor',       WS_VISIBLE +       WS_DLGFRAME +       WS_CHILD,       3, 3,       100, 65,       handle,       0,       Instancia,       nil       ); //Creamos un editbox    cPosX := CreateWindowEx(       WS_EX_CLIENTEDGE, //este extended style es para que el edit tenga borde (sino nos queda flat)       'Edit',       '', //texto del edit, lo dejamos vacio por ahora

WS_VISIBLE +       WS_CHILD +       SS_LEFT, //alineaci髇 IZQUIERDA       23, 19,       74, 21,       Handle,       0,       Instancia,       nil       ); //Creamos otro editbox    cPosY := CreateWindowEx(       WS_EX_CLIENTEDGE,       'Edit',       '',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       23, 42,       74, 21,       Handle,       0,       Instancia,       nil       ); //Creamos una label    lcPosX := CreateWindow(       'Static',       'X:',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       8, 20,       13, 13,       Handle,       0,       Instancia,       nil       ); //Creamos otra label    lcPosY := CreateWindow(       'Static',       'Y:',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       8, 42,       13, 13,       Handle,       0,       Instancia,       nil       ); //Y otra label    LabelHandle := CreateWindow(       'Static',       'Handle:',       WS_VISIBLE +       WS_CHILD,       111, 6,       37, 13,       Handle,       0,       Instancia,       nil       ); //Otro edit m醩    eHandle := CreateWindowEx(       WS_EX_CLIENTEDGE,       'Edit',       '',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       111, 21,       58, 21,       handle,       0,       Instancia,       nil       ); //Label...    wNLabel := CreateWindow(       'Static',       'Texto de la ventana:',       WS_VISIBLE +       WS_CHILD,       2, 78,       108, 13,       Handle,       0,       Instancia,       nil       ); //Edit...    wName := CreateWindowEx(       WS_EX_CLIENTEDGE,       'Edit',       '',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       2, 93,       167, 21,       Handle,       0,       Instancia,       nil       ); //Label...    cWLabel := CreateWindow(       'Static',       'Clase de la ventana:',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       2, 118,       97, 13,       Handle,       0,       Instancia,       nil       ); //Edit...    cWindow := CreateWindowEx(       WS_EX_CLIENTEDGE,       'Edit',       '',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       2, 133,       167, 21,       Handle,       0,       Instancia,       nil       ); //Label...    IDLabel := CreateWindow(       'Static',       'ID del thread:',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       106, 160,       72, 13,       Handle,       0,       Instancia,       nil       ); //Al fin!!, este es el 鷏timo control que creamos!!!!!!! - un edit    eThreadID := CreateWindowEx(       WS_EX_CLIENTEDGE,       'Edit',       '',       WS_VISIBLE +       WS_CHILD +       SS_LEFT,       112, 176,       57, 21,       Handle,       0,       Instancia,       nil       ); //******************************************************************** // Mandamos el mensaje WM_SETFONT para ponerle la fuente a los // controles que acabamos de crear. Si tienes dudas sobre la API // SendMessage o el mensaje WM_SETFONT consulta la Win32 Programmer's // Reference    SendMessage(Handle, WM_SETFONT, Fuente, Handle);         //字体设置    SendMessage(About, WM_SETFONT, Fuente, About);    SendMessage(GroupBox1, WM_SETFONT, Fuente, GroupBox1);    SendMessage(cPosX, WM_SETFONT, Fuente, cPosX);    SendMessage(cPosY, WM_SETFONT, Fuente, cPosY);    SendMessage(lcPosX, WM_SETFONT, Fuente, lcPosX);    SendMessage(lcPosY, WM_SETFONT, Fuente, lcPosY);    SendMessage(LabelHandle, WM_SETFONT, Fuente, LabelHandle);    SendMessage(eHandle, WM_SETFONT, Fuente, eHandle);    SendMessage(wNLabel, WM_SETFONT, Fuente, wNLabel);    SendMessage(wName, WM_SETFONT, Fuente, wName);    SendMessage(cWLabel, WM_SETFONT, Fuente, cWLabel);    SendMessage(cWindow, WM_SETFONT, Fuente, cWindow);    SendMessage(IDLabel, WM_SETFONT, Fuente, IDLabel);    SendMessage(eThreadID, WM_SETFONT, Fuente, eThreadID); // Creamos un timer con el int閞valo de 1 milisegundo    SetTimer(handle, 0, 1, nil); //timer参数设置 // Bucle para recibir y procesar los mensajes de Windows que le llegan // a nuestro programa    while (GetMessage(Mensaje, Handle, 0, 0)) do    begin       TranslateMessage(Mensaje); //Convertimos cualquier mensaje del teclado a WM_CHAR       DispatchMessage(Mensaje); // Le pasamos el mensaje que nos envian a la funci髇                                         // WindowProc para que 閟te sea procesado    end; end.

能否得到屏幕绝对坐标？ (100分)

braveman77

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

哈利波特

Unregistered / Unconfirmed

天与地

Unregistered / Unconfirmed

braveman77

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

SSGYK

Unregistered / Unconfirmed

BDFan

Unregistered / Unconfirmed

braveman77

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

chenxz

Unregistered / Unconfirmed

china_bug

Unregistered / Unconfirmed

xf-wangyi

Unregistered / Unconfirmed

Similar threads