200大讨论：能者拿分--句柄 ( 积分: 200 )

shell~ · 2005-01-12

到这两句中的随便一句都会出错 //MyHandle.Add(IntToStr(hwnd)); //得到目标控件的Hwnd(句柄)      Memo1.Lines.Add(IntToStr(hwnd)); 可是如果直接showmessage就不会出错。

堕落天使_2003 · 2005-01-12

写一hook,先用Dll 注入,,再用内存映射文件,文件的类型为那5个edit.text组成的记录, 在B进程写,A进程读

shell~ · 2005-01-13

TO 堕落天使_2003: 能否详细讲解一下原理[

]，谢了先。

firstboy · 2005-01-13

//我以前写的控制一个安装程序自动安装的  程序部分代码，原理类似 function TInstallDataFrm.Find(text: string): boolean; begin  result := False;  if (pos('data',text) &gt;0 ) and (pos('access',text) &gt;0 )      and (pos('components',text) &gt;0 ) then    begin      result := true;    end; end; function TInstallDataFrm.GetMDACHWnd: Hwnd; var  hCurrentWindow: HWnd;  szClass: array[0..254] of char;  szText: array[0..254] of char; begin  hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);  while hCurrentWindow &lt;&gt; 0 do  begin    GetWindowText(hCurrentWindow, @szText, 255);    GetClassName(hCurrentWindow,@szClass,255);    Application.ProcessMessages;    if (StrPas(@szClass)='#32770')  then    if find(Lowercase(StrPas(@szText))) then    begin      //showwindow(hCurrentWindow,SW_MINIMIZE);SW_HIDE      showwindow(hCurrentWindow,SW_HIDE);      result := hCurrentWindow;      exit;    end;    hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);  end;  result := 0; end; function TInstallDataFrm.isExists: boolean; begin  result := (GetMDACHWnd&lt;&gt;0)  ; end; function TInstallDataFrm.myIsWindowEnabled(h: Hwnd;outTime:integer):boolean; var I:integer; begin  I := 0;  repeat    sleep(500);    inc(i);    Application.ProcessMessages;    if I &gt; outTime then      begin        result := False;        exit;      end;  until IsWindowEnabled(h);  sleep(1000);  result := True; end; procedure TInstallDataFrm.Send_key(h: Hwnd); begin  SendMessage(h,WM_LBUTTONDOWN,MK_LBUTTON,0);  SendMessage(h,WM_LBUTTONUP,0,0); end; procedure TInstallDataFrm.SetupMDAC(hCurrentWindow:Hwnd); var  h: HWnd; begin  sleep(1000);  barMain.Position := 20;  h:=GetDlgItem(hCurrentWindow,12324);  Send_key(h);  sleep(1000) ;  if not myIsWindowEnabled(h,90) then exit;  barMain.Position := 50;  h:=GetDlgItem(hCurrentWindow,12324);  if not myIsWindowEnabled(h,30) then exit;  Send_key(h);  sleep(1000) ;  barMain.Position := 70;  h:=GetDlgItem(hCurrentWindow,12325);  if not myIsWindowEnabled(h,90) then exit;  Send_key(h);  sleep(1000) ;  barMain.Position := 90;  h:=GetDlgItem(hCurrentWindow,12325);  if not myIsWindowEnabled(h,30) then exit;  Send_key(h);  barMain.Position := 100;  self.LabDataState.Caption  := setupFrm.GetTitle('msg_installmdacok'); end;

燕惊鸿 · 2005-01-14

这是我给人编的，是针对网吧管理软件在上机时要求输入人员的姓名、性别、年龄，证件号等麻烦的问题，对你的问题完全可以解决。 如果要修改的窗口名是已知的情况下，可直接用 FindWindow(nil,'窗口名') 获取该窗口的句柄，然后用 EnumChildWindows 列出所有 Edit,和 TRadioButton 的信息，包括该控件的顺序,也就是 EnumChildWindows枚举的次序。保存起来,其中位置是最主要的。我保存在 ini 中。如查要修改 B 程序中的 Edit 时，只要再一次枚举该窗口，通过判断次序就可发送 WM_GETTEXT 的消息。添加Edit 的文本,具体源码如下: (现在已有了新版本，你的程序可不用 dll,HookAPI,有疑难可加我 QQ:178718468,有全部源码); unit Main; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, WinSkinStore, WinSkinData, StdCtrls, Buttons, ComCtrls, ExtCtrls,  CheckLst, ShellAPI, Menus, IniFiles, HookConst; const UserFile = 'ufd.ini'; type  TEditIndexs = record    NameIndex: integer;    SexManIndex: integer;    SexWomanIndex: integer;    AgeIndex: integer;    PaperIndex: integer;  end; type  PFindWindowStruct = ^TFindWindowStruct;  TFindWindowStruct = record    Caption: string;    ClassName: string;    WindowHandle: THandle;  end; type  TMainForm = class(TForm)    PageControl1: TPageControl;    Panel1: TPanel;    TabSheet1: TTabSheet;    TabSheet2: TTabSheet;    btnExit: TBitBtn;    btnHide: TBitBtn;    GroupBox1: TGroupBox;    Label1: TLabel;    Label2: TLabel;    edtName: TEdit;    edtPaper: TEdit;    Label3: TLabel;    edtAge: TEdit;    UpDown1: TUpDown;    rbtnMan: TRadioButton;    rbtnWoman: TRadioButton;    Label4: TLabel;    btnSend: TBitBtn;    btnSave: TBitBtn;    btnDelete: TBitBtn;    TabSheet3: TTabSheet;    lbxSearch: TListBox;    Panel2: TPanel;    btnSearchProc: TButton;    btnSelected: TButton;    Label5: TLabel;    lblWinCount: TLabel;    TabSheet4: TTabSheet;    Panel3: TPanel;    btnSearchFlag: TButton;    btnClear: TButton;    pnlSelectedWin: TPanel;    lvSearchFlag: TListView;    ppmSetFlag: TPopupMenu;    N1: TMenuItem;    N2: TMenuItem;    N3: TMenuItem;    N4: TMenuItem;    N5: TMenuItem;    lvUserList: TListView;    SkinData1: TSkinData;    Panel4: TPanel;    Panel6: TPanel;    Label11: TLabel;    edtWindowName: TEdit;    Panel7: TPanel;    TabSheet5: TTabSheet;    Panel5: TPanel;    Label13: TLabel;    Label12: TLabel;    Label14: TLabel;    Label15: TLabel;    Label16: TLabel;    Label17: TLabel;    Label6: TLabel;    Label7: TLabel;    Label8: TLabel;    Label9: TLabel;    Label10: TLabel;    edtNameIndex: TEdit;    edtManIndex: TEdit;    edtWomanIndex: TEdit;    edtAgeIndex: TEdit;    edtPaperIndex: TEdit;    UpDown2: TUpDown;    UpDown3: TUpDown;    UpDown4: TUpDown;    UpDown5: TUpDown;    UpDown6: TUpDown;    btnSaveParam: TBitBtn;    chbxAutoPopup: TCheckBox;    chbxAutoInput: TCheckBox;    Label18: TLabel;    Edit1: TEdit;    Label19: TLabel;    Edit2: TEdit;    Label20: TLabel;    Edit3: TEdit;    UpDown7: TUpDown;    procedure btnExitClick(Sender: TObject);    procedure btnSearchProcClick(Sender: TObject);    procedure btnSelectedClick(Sender: TObject);    procedure btnSearchFlagClick(Sender: TObject);    procedure btnClearClick(Sender: TObject);    procedure N1Click(Sender: TObject);    procedure btnSendClick(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure lvUserListClick(Sender: TObject);    procedure btnSaveClick(Sender: TObject);    procedure btnDeleteClick(Sender: TObject);    procedure btnSaveParamClick(Sender: TObject);    procedure lvUserListDblClick(Sender: TObject);    procedure btnHideClick(Sender: TObject);    procedure chbxAutoPopupClick(Sender: TObject);    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    FEditIndexs: TEditIndexs;    { Private declarations }    function GetEditIndexs: TEditIndexs;  public    procedure WndProc(var Messages: TMessage); override;  published    procedure ListBoxAddWidth(AListBox: TListBox);    procedure ListControls(Awnd: string);    procedure AddFlag(AClass, AValue: string);    function SendData(WindowName: string): Boolean;    procedure SetValues(AListItem: TListItem);    property EditIndexs: TEditIndexs read GetEditIndexs;    procedure ReadData;    procedure GetUserList(var AStringList: TStringList);    procedure WriteData;    { Public declarations }  end; var  MainForm: TMainForm;  FindAll: Boolean;  CtrlIndex: integer;  UserData: TIniFile;  hMappingFile: THandle;  pShMem: PShareMem; const MessageID = WM_User + 110; function EnumWindowsProc(hWindow: HWnd; lParam: LongInt): Boolean; {$IFDEF Win32}stdcall; {$ELSE}; export; {$ENDIF} function EnumWindowsFast(hWindow: HWnd; lParam: LongInt): Boolean; {$IFDEF Win32}stdcall; {$ELSE}; export; {$ENDIF} function EnumChildProc(HWnd: integer; lParam: LongInt): Boolean; {$IFDEF Win32}stdcall; {$ELSE}; export; {$ENDIF} function EnumChildItems(HWnd: integer; lParam: LongInt): Boolean; {$IFDEF Win32}stdcall; {$ELSE}; export; {$ENDIF} function FindAWindow(Caption: string; ClassName: string; IsThread: Boolean):  THandle; implementation {$R *.dfm} function StartHook(Sender: HWnd; MessageID: WORD; WatchFormName: TChars): BOOL;  stdcall; external 'AHook.DLL'; function StopHook: BOOL; stdcall; external 'AHook.DLL'; function SetWatch: BOOL; stdcall; external 'AHook.Dll'; function TMainForm.GetEditIndexs: TEditIndexs; begin  FEditIndexs.NameIndex := UpDown2.Position;  FEditIndexs.SexManIndex := UpDown3.Position;  FEditIndexs.SexWomanIndex := UpDown4.Position;  FEditIndexs.AgeIndex := UpDown5.Position;  FEditIndexs.PaperIndex := UpDown6.Position;  Result := FEditIndexs; end; function EnumWindowsProc(hWindow: HWnd; lParam: LongInt): Boolean; {$IFDEF Win32} stdcall; {$ELSE}; export; {$ENDIF} var  lpBuffer: PChar;  WindowCaptionFound: Boolean;  ClassNameFound: Boolean; begin  GetMem(lpBuffer, 255);  Result := True;  WindowCaptionFound := False;  ClassNameFound := False;  try    //------------------------------------------------    if GetWindowText(hWindow, lpBuffer, 255) &gt; 0 then      if FindAll then      begin        if not (StrPas(lpBuffer) = '网虫外挂v1.0') then        begin          MainForm.lbxSearch.Items.Add(StrPas(lpBuffer));          MainForm.ListBoxAddWidth(MainForm.lbxSearch);          MainForm.lblWinCount.Caption :=            IntToStr(StrToInt(MainForm.lblWinCount.Caption) + 1);        end;      end      else        if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) &gt; 0 then          WindowCaptionFound := True;    if not FindAll then    begin //-----------------------      if PFindWindowStruct(lParam).ClassName = '' then        ClassNameFound := True else        if GetClassName(hWindow, lpBuffer, 255) &gt; 0 then          if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer)) &gt; 0 then            ClassNameFound := True;      if (WindowCaptionFound and ClassNameFound) then      begin        PFindWindowStruct(lParam).WindowHandle := hWindow;        Result := False;      end;    end; //----------------------------    //-------------------------------------------------  finally    FreeMem(lpBuffer, sizeof(lpBuffer^));  end; end; //--------这个函数可不用--------------- function EnumWindowsFast(hWindow: HWnd; lParam: LongInt): Boolean; {$IFDEF Win32} stdcall; {$ELSE}; export; {$ENDIF} var  lpBuffer: PChar;  WindowCaptionFound: Boolean;  ClassNameFound: Boolean; begin  GetMem(lpBuffer, 255);  Result := True;  WindowCaptionFound := False;  ClassNameFound := False;  try    //------------------------------------------------    if GetWindowText(hWindow, lpBuffer, 255) &gt; 0 then      if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) &gt; 0 then        WindowCaptionFound := True;    if PFindWindowStruct(lParam).ClassName = '' then      ClassNameFound := True else      if GetClassName(hWindow, lpBuffer, 255) &gt; 0 then        if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer)) &gt; 0 then          ClassNameFound := True;    if (WindowCaptionFound and ClassNameFound) then    begin      PFindWindowStruct(lParam).WindowHandle := hWindow;      Result := False;    end;  finally    FreeMem(lpBuffer, sizeof(lpBuffer^));  end; end; //-----这是添加子窗口到 ListView记录控件的信息------------------ function EnumChildProc(HWnd: integer; lParam: LongInt): Boolean; {$IFDEF Win32} stdcall; {$ELSE}; export; {$ENDIF} var  MyText: PChar;  ClassName: array[0..31] of Char;  SearchText: string; begin  Result := True;  GetMem(MyText, 255);  try    SendMessage(HWnd, Wm_GetText, 255, LongInt(MyText));    GetClassName(HWnd, ClassName, 31);    SearchText := '[' + StrPas(MyText) + ']';    MainForm.AddFlag(ClassName, SearchText);  finally    FreeMem(MyText, sizeof(MyText^));  end; end; //-------枚举子窗口并通过索引值发送添写消息---------------- function EnumChildItems(HWnd: integer; lParam: LongInt): Boolean; {$IFDEF Win32} stdcall; {$ELSE}; export; {$ENDIF} var  ClsName, Caption: array[0..31] of Char; begin  GetClassName(HWnd, ClsName, 31);  GetWindowText(HWnd, Caption, 31);  if CtrlIndex = MainForm.EditIndexs.NameIndex then  begin    SendMessage(HWnd, WM_SETTEXT, Length(Trim(MainForm.edtName.Text)),      LongInt(PChar(Trim(MainForm.edtName.Text))));  end;  if CtrlIndex = MainForm.EditIndexs.SexManIndex then  begin    if MainForm.rbtnMan.Checked then      SendMessage(HWnd, BM_CLICK, 0, 0);  end;  if CtrlIndex = MainForm.EditIndexs.SexWomanIndex then  begin    if MainForm.rbtnWoman.Checked then      SendMessage(HWnd, BM_CLICK, 0, 0);  end;  if CtrlIndex = MainForm.EditIndexs.AgeIndex then  begin    SendMessage(HWnd, WM_SETTEXT, Length(Trim(MainForm.edtAge.Text)),      LongInt(PChar(Trim(MainForm.edtAge.Text))));  end;  if CtrlIndex = MainForm.EditIndexs.PaperIndex then  begin    SendMessage(HWnd, WM_SETTEXT, Length(Trim(MainForm.edtPaper.Text)),      LongInt(PChar(Trim(MainForm.edtPaper.Text))));  end;  Inc(CtrlIndex);  Result := True; end; function FindAWindow(Caption: string; ClassName: string; IsThread: Boolean):  THandle; var  windowInfo: TFindWindowStruct; begin  begin    windowInfo.Caption := Caption;    windowInfo.ClassName := ClassName;    windowInfo.WindowHandle := 0;    if not IsThread then      EnumWindows(@EnumWindowsProc, LongInt(@windowInfo))    else      EnumWindows(@EnumWindowsFast, LongInt(@windowInfo));    FindAWindow := windowInfo.WindowHandle;  end; end; //----加宽 ListBox 的宽度，可不用. procedure TMainForm.ListBoxAddWidth(AListBox: TListBox); var  i, MaxWidth: integer; begin  MaxWidth := 0;  for i := 0 to AListBox.Items.Count - 1 do    if MaxWidth &lt; AListBox.Canvas.TextWidth(AListBox.Items.Strings) then MaxWidth := AListBox.Canvas.TextWidth(AListBox.Items.Strings); SendMessage(AListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth + 2, 0); end; procedure TMainForm.btnExitClick(Sender: TObject); begin  Close; end; //--枚举所有窗口到 ListBox 中 procedure TMainForm.btnSearchProcClick(Sender: TObject); var  windowInfo: TFindWindowStruct; begin  FindAll := True;  lbxSearch.Clear;  lblWinCount.Caption := '0';  if EnumWindows(@EnumWindowsProc, LongInt(@windowInfo)) then    FindAll := False; end; //ListBox选中的窗口名,并列出子窗口，保存在 ListView 中,并加入枚举次序. procedure TMainForm.btnSelectedClick(Sender: TObject); begin  if lbxSearch.ItemIndex &lt;&gt; -1 then  begin    pnlSelectedWin.Caption := lbxSearch.Items[lbxSearch.ItemIndex];    edtWindowName.Text := lbxSearch.Items[lbxSearch.ItemIndex];    ListControls(pnlSelectedWin.Caption);//加子窗口到 ListView 中.  end; end; procedure TMainForm.ListControls(Awnd: string); var  TheWindowHandle: THandle; begin  TheWindowHandle := FindAWindow(Awnd, '', False);  if TheWindowHandle &lt;&gt; 0 then  begin    lvSearchFlag.Items.Clear;    FindAll := False;    EnumChildWindows(TheWindowHandle, @EnumChildProc, 0);  end; end; procedure TMainForm.btnSearchFlagClick(Sender: TObject); begin  ListControls(pnlSelectedWin.Caption); end; procedure TMainForm.AddFlag(AClass, AValue: string); var AItem: TListItem; begin  AItem := lvSearchFlag.Items.Add;  AItem.Caption := IntToStr(lvSearchFlag.Items.Count);  AItem.SubItems.Add(AClass);  AItem.SubItems.Add(AValue); end; procedure TMainForm.btnClearClick(Sender: TObject); begin  lvSearchFlag.Items.Clear; end; procedure TMainForm.N1Click(Sender: TObject); begin  if lvSearchFlag.SelCount &lt;= 0 then Exit;  case TMenuItem(Sender).Tag of    1:      begin        edtNameIndex.Text := lvSearchFlag.Selected.Caption;      end;    2:      begin        edtManIndex.Text := lvSearchFlag.Selected.Caption;      end;    3:      begin        edtWomanIndex.Text := lvSearchFlag.Selected.Caption;      end;    4:      begin        edtAgeIndex.Text := lvSearchFlag.Selected.Caption;      end;    5:      begin        edtPaperIndex.Text := lvSearchFlag.Selected.Caption;      end;  end; end; function TMainForm.SendData(WindowName: string): Boolean; var TheHandle: THandle; begin  TheHandle := FindAWindow(WindowName, '', False);  if TheHandle &lt;&gt; 0 then  begin    CtrlIndex := 1;    EnumChildWindows(TheHandle, @EnumChildItems, 0);    CtrlIndex := 0;  end;  Result := True; end; procedure TMainForm.btnSendClick(Sender: TObject); begin  if edtWindowName.Text = '' then  begin    Application.MessageBox('请先设置窗口标志!       ', '操作提示', MB_OK +      MB_IconStop + MB_ApplModal);    PageControl1.ActivePageIndex := 1;    Exit;  end;  SendData(edtWindowName.Text); end; procedure TMainForm.ReadData; var  i: integer;  UserSections: TStringList;  AListItem: TListItem; begin  edtWindowName.Text := UserData.ReadString('Parameters', 'WindowName', '');  UpDown2.Position := UserData.ReadInteger('Parameters', 'NameIndex', 0);  UpDown3.Position := UserData.ReadInteger('Parameters', 'ManIndex', 0);  UpDown4.Position := UserData.ReadInteger('Parameters', 'WomanIndex', 0);  UpDown5.Position := UserData.ReadInteger('Parameters', 'AgeIndex', 0);  UpDown6.Position := UserData.ReadInteger('Parameters', 'PaperIndex', 0);  // chbxAutoPopup.Checked := UserData.ReadBool('Parameters','AutoPopup',True);  // chbxAutoInput.Checked := UserData.ReadBool('Parameters','AutoInput',True);  UserSections := TStringList.Create;  try    GetUserList(UserSections);    lvUserList.Items.Clear;    for i := 0 to UserSections.Count - 1 do    begin      AListItem := lvUserList.Items.Add;      AListItem.Caption := IntToStr(lvUserList.Items.Count);      AListItem.SubItems.Add(UserSections.Strings);      AListItem.SubItems.Add(UserData.ReadString(UserSections.Strings,        '性别',        '男'));      AListItem.SubItems.Add(IntToStr(UserData.ReadInteger(UserSections.Strings, '年龄', 18)));      AListItem.SubItems.Add(UserData.ReadString(UserSections.Strings,        '证件号', ''));    end;  finally    UserSections.Free;  end; end; procedure TMainForm.GetUserList(var AStringList: TStringList); begin  UserData.ReadSections(AStringList);  if AStringList.IndexOf('Parameters') &lt;&gt; -1 then    AStringList.Delete(AStringList.IndexOf('Parameters')); end; procedure TMainForm.FormCreate(Sender: TObject); begin  UserData := TIniFile.Create(ExtractFilePath(paramstr(0)) + UserFile);  pShMem := nil;  ReadData; end; procedure TMainForm.FormDestroy(Sender: TObject); begin if UserData &lt;&gt; nil then    UserData.Free; end; procedure TMainForm.lvUserListClick(Sender: TObject); begin  if lvUserList.Selected &lt;&gt; nil then  begin    SetValues(lvUserList.Selected);  end; end; procedure TMainForm.SetValues(AListItem: TListItem); begin  edtName.Text := AListItem.SubItems.Strings[0];  if AListItem.SubItems.Strings[1] = '男' then    rbtnMan.Checked := True  else    rbtnWoman.Checked := True;  edtAge.Text := AListItem.SubItems.Strings[2];  edtPaper.Text := AListItem.SubItems.Strings[3]; end; procedure TMainForm.WriteData; const SexStr: array[Boolean] of string = ('女', '男'); begin  UserData.WriteString(edtName.Text, '性别', SexStr[rbtnMan.Checked]);  UserData.WriteInteger(edtName.Text, '年龄', UpDown1.Position);  UserData.WriteString(edtName.Text, '证件号', edtPaper.Text); end; procedure TMainForm.btnSaveClick(Sender: TObject); begin  if Trim(edtName.Text) &lt;&gt; '' then  begin    WriteData;    ReadData;  end; end; procedure TMainForm.btnDeleteClick(Sender: TObject); begin  UserData.EraseSection(edtName.Text);  ReadData; end; procedure TMainForm.btnSaveParamClick(Sender: TObject); begin  UserData.WriteString('Parameters', 'WindowName', edtWindowName.Text);  UserData.WriteInteger('Parameters', 'NameIndex', UpDown2.Position);  UserData.WriteInteger('Parameters', 'ManIndex', UpDown3.Position);  UserData.WriteInteger('Parameters', 'WomanIndex', UpDown4.Position);  UserData.WriteInteger('Parameters', 'AgeIndex', UpDown5.Position);  UserData.WriteInteger('Parameters', 'PaperIndex', UpDown6.Position);  UserData.WriteBool('Parameters', 'AutoPopup', chbxAutoPopup.Checked);  UserData.WriteBool('Parameters', 'AutoInput', chbxAutoInput.Checked); end; procedure TMainForm.lvUserListDblClick(Sender: TObject); begin  if lvUserList.Selected &lt;&gt; nil then  begin    lvUserList.ItemFocused.Checked := not lvUserList.ItemFocused.Checked;    if lvUserList.ItemFocused.Checked then      btnSend.Click;  end; end; procedure TMainForm.btnHideClick(Sender: TObject); begin  GroupBox1.Visible := not GroupBox1.Visible;  if GroupBox1.Visible then    btnHide.Caption := '隐藏'  else    btnHide.Caption := '显示'; end; procedure TMainForm.chbxAutoPopupClick(Sender: TObject); var WndName: TChars; begin  StrPCopy(WndName, Trim(MainForm.edtWindowName.Text));  if chbxAutoPopup.Checked then  begin StartHook(MainForm.Handle, MessageID, WndName); end else StopHook; end; procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin  //  FindThread.Terminate; end; procedure TMainForm.WndProc(var Messages: TMessage); begin  if pShMem = nil then  begin    hMappingFile := OpenFileMapping(FILE_MAP_WRITE, False, MappingFileName);    if hMappingFile = 0 then Exception.Create('不能建立共享内存!');    pShMem := MapViewOfFile(hMappingFile, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0,      0);    if pShMem = nil then    begin      CloseHandle(hMappingFile);      Exception.Create('不能映射共享内存!');    end;  end;  if pShMem = nil then Exit;  if Messages.Msg = MessageID then  begin    if chbxAutoPopup.Checked then      if not IsWindowVisible(MainForm.Handle) then      begin        MainForm.Show;        // SetForegroundWindow(MainForm.Handle);      end;    SetWindowPos(MainForm.Handle, HWND_TopMost, 0, 0, 0, 0,      SWP_NoMove or SWP_NoSize or SWP_ShowWindow);    // SetWindowPos(MainForm.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,    // SWP_NoMove or SWP_NoSize or SWP_ShowWindow);    { SetWindowPos(MainForm.Handle,       HWND_TopMost,       0,       0,       0,       0,       SWP_NOACTIVATE or SWP_NoMove or SWP_NoSize or SWP_ShowWindow);    }      // BringWindowToTop(MainForm.Handle);      // SetActiveWindow(MainForm.Handle);  end; // else  inherited; end; procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin  StopHook; end; end.

chengang_1981 · 2005-01-16

自定义一个消息发送贝，

lichengbin · 2005-01-17

EnumChildWindows得到所有类名为TEdit的句柄，有了窗口句柄GetWindowRect就得到了窗口的屏幕位置矩形R，用Windows.ScreenToClient(hParent, R.TopLeft)就得到了相对于其父窗口的左上角坐标位置啦。有了位置应该就能判断是对应哪个Edit了吧？！

shell~ · 2005-01-25

多人接受答案了。

200大讨论：能者拿分--句柄 ( 积分: 200 )

shell~

Unregistered / Unconfirmed

堕落天使_2003

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

firstboy

Unregistered / Unconfirmed

燕惊鸿

Unregistered / Unconfirmed

chengang_1981

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

Similar threads