询问若干个API的问题

Question

统计一下,在DELPHI中
1.得到程序当前窗口左上角的坐标API有哪些?
2.得到屏幕当前分辨率的API有哪些?
3.得到当前窗口或屏幕点的颜色的API有哪些?
4.模拟鼠标或按键的API有哪些?

Answer 1

关于分辨率的
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TfrmMain = class(TForm)
    btn800600: TButton;
    btn640480: TButton;
    procedure btn640480Click(Sender: TObject);
    procedure btn800600Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function DynamicResolution(X, Y: word): BOOL;
  end;var
  frmMain: TfrmMain;implementation{$R *.dfm}function TfrmMain.DynamicResolution(X, Y: word): BOOL;
var
    lpDevMode: TDeviceMode;
begin
    Result := EnumDisplaySettings(nil, 0, lpDevMode);
    if Result then
    begin
        lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
        lpDevMode.dmPelsWidth := X;
        lpDevMode.dmPelsHeight := Y;
        Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
    end;
end;procedure TfrmMain.btn640480Click(Sender: TObject);
begin
    if DynamicResolution(640, 480) then
    begin
        ShowMessage('现在的分辨率是640*480');
    end;
end;procedure TfrmMain.btn800600Click(Sender: TObject);
begin
    if DynamicResolution(800, 600) then
    begin
        ShowMessage('现在的分辨率是800*600');
    end;
end;end.

Answer 2

模拟鼠标键盘的
mouse_event
keybd_event

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  hdc: THandle;
  color: COLORREF;
  R,G,B: byte;
begin
  hdc:= windows.GetDC(0);//0就是桌面的，如果是窗体就传self.handle
  color:= windows.GetPixel(hdc,100,100);
  R:= windows.GetRValue(color);
  G:= windows.GetGValue(color);
  B:= windows.GetBValue(color);
end;delphi帮助里用法都写的比较明白的。看看把

Answer 4

GetDeviceCaps（）得到所用显示器的分辨率

Answer 5

1.得到程序当前窗口左上角的坐标API有哪些?
这个似乎没有提到

Answer 6

呵呵,都齐全了http://lysoft.7u7.net

Answer 7

1.得到程序当前窗口左上角的坐标API有哪些?
*******************************************
其实你这个问题非得用API吗？其实的方法也可以做得到啊。
我不知道
px = Form1.Left;
py = Fomr1.Top;
这样行吗？

Answer 8

GetWindowRect
SystemParametersInfo
EnumDisplaySettings
mouse_event / keybd_event