关于SENDMESSAGE和POSTMESSAGE的发送问题!~~~~~~~~~~ ( 积分: 150 )

LDSON · 2005-06-29

只知道这二个函数可以发送按键模拟,和发送消息或字符串之类的,不知道能不能发送实体文件,比如*.EXE *.TXT *.MP3等去别的程序的窗口,换句话,也就是说能不能用这二个函数模拟发送相当于鼠标拖放效果的操作? 如果不能的话,怎么样用程序模拟鼠标拖放到别的程序里的操作,希望能有答符,或者能给出实例代码,谢谢各位了.

LDSON · 2005-06-29

只知道这二个函数可以发送按键模拟,和发送消息或字符串之类的,不知道能不能发送实体文件,比如*.EXE *.TXT *.MP3等去别的程序的窗口,换句话,也就是说能不能用这二个函数模拟发送相当于鼠标拖放效果的操作? 如果不能的话,怎么样用程序模拟鼠标拖放到别的程序里的操作,希望能有答符,或者能给出实例代码,谢谢各位了.

daqun · 2005-06-29

两个办法都可以, 1.用发消息的话,最好将文件放到系统的共享区(用GlobalAlloc申请内存),然后只用自定义消息通知其他窗口去取. 或者发送文件名到其他窗口. 用Wm_CopyData可以发送自定义的数据. 用拖拽的办法就在其他窗体中用WM_DropFiles消息接受文件咯. 明白了?

LDSON · 2005-06-29

这样说吧,现在别的程序的窗口本身就接受拖放文件进来的,但是我要用什么方式去模拟鼠标拖放文件去这个窗口? wm_copydata这个参数是可以用SENDMESSAGE或POSTMESSAGE发送实体文件去别的程序的窗口吗? 我的QQ是106187,盼答复

独帅 · 2005-06-29

用消息模拟拖放文件，请参考： http://www.delphibbs.com/delphibbs/dispq.asp?lid=1567087

LDSON · 2005-06-30

独帅谢谢给了参考资料,可是往别的窗口拖放文件依然不成功比如QQ的RICHEDIT这个窗口,连一点动静也没有....

daqun · 2005-06-30

你想通过这种方法给QQ发文件大概是不行的. 可以这样试试看,将文件拷贝到剪贴板然后给richedit发WM_Paste消息. 注意拷贝文件到剪贴板,注意剪贴板的格式为CF_HDROP.

LDSON · 2005-06-30

可以这样试试看,将文件拷贝到剪贴板然后给richedit发WM_Paste消息. 不知道你这个用SENDMESSAGE方式是否可行,但是我现在用CTRL+C和CTRL+V都粘帖不进去

独帅 · 2005-06-30

在QQ2004版本，你找到的“与 XX 聊天中”窗口，有四个子窗口， 其中前三个类名为Button的是右上角的三个控制按钮(最小化、最大化和关闭)， 另外一个类名为"#32770"的子窗口才是你应该发送消息的窗口 至少QQ2004和TM 3.0是这样的，其他版本不确定

LDSON · 2005-06-30

关键是不管那个版本的句柄我都找对了,但是用DoDropFiles(j2,list);办法就是不能拖放文件进聊天窗口,J2是句柄,为找到的RICHEDIT或RichEdit20A都不请,还望在指教

LDSON · 2005-06-30

可以这样试试看,将文件拷贝到剪贴板然后给richedit发WM_Paste消息. 注意拷贝文件到剪贴板,注意剪贴板的格式为CF_HDROP.   daqun朋友的这种方法也没有通过,RICHEDIT的控件好像不接受WM_PASTE消息吧 WM_PASTE  是程序发送此消息给editcontrol或combobox从剪贴板中得到数据 我的QQ是106187那位能指导一下,谢谢

独帅 · 2005-06-30

WM_DropFiles消息不是发给RICHEDIT或RichEdit20A而是发给其父窗口的， 由其父窗口进行处理，和RICHEDIT或RichEdit20A没有关系 要是还不明白，请把你找到j2的过程写出来看看

LDSON · 2005-06-30

j1:=FindWindowEx(GetForegroundWindow,0,'#32770',nil); j2:=FindWindowEx(j1,0,'AfxWnd42',nil); j3:=FindWindowEx(j2,0,'RICHEDIT',nil); j3是找到的RICHEDI句柄,然后用你给的例子里的 List.Add('c:/1.exe'); DoDropFiles(j2,list); 这样成功不了,在线等,望指教

LDSON · 2005-06-30

是J3写错了

LDSON · 2005-06-30

RICHEDIT的父窗口是AfxWnd42 而RichEdit20A的父窗口是#32770   我也照办了也不行啊

独帅 · 2005-06-30

刘麻子 · 2005-06-30

利用消息"拖放"文件到其他程序，《Windows 95 程式设计指南》的例子： // ----------------------------------------------------------- // Module name: DFSrc.c ->> DFSrc.pas // Written by: Jeffrey Richter // Notices: Copyright (c) 1995 Jeffrey Richter // Purpose: Drop file source library functions. // Translator: 刘麻子, Liu_mazi@126.com unit DFSrc; interface uses Windows, ShlObj, ShellAPI, CommDlg; // 取第nIndex个字符串(文件名) function MultiStrUtil_FindStr(szStrAll: PChar; nIndex: Integer; pnMax: PInteger): PChar; stdcall; // 是否选择了多个文件 function FileOpenUtil_AreMultipleFilesSelected(pofn: POpenFilename): BOOL; stdcall; // 文件列表内含文件个数 function FileOpenUtil_GetNumFiles(pofn: POpenFilename): Integer; stdcall; // 取第nIndex个文件完整路径 function FileOpenUtil_GetFile(pofn: POpenFilename; nIndex: Integer; szPathname: PChar): Integer; stdcall; // 目标或其父窗口是否接受文件拖放 function DFSrc_OkToDrop(ppt: PPOINT): HWND; stdcall; // 分配头部结构内存块 function DFSrc_Create(ppt: PPOINT; fNC, fWide: BOOL): HDROP; stdcall; // 向结构尾部追加文件 function DFSrc_AppendPathname(hdrop: HDROP; pvPathname: Pointer): HDROP; stdcall; implementation // (单个)目标窗口是否接受文件拖放 function IsAcceptingFiles(hWnd: HWND): Boolean; begin  Result := (GetWindowLong(hWnd, GWL_EXSTYLE) and WS_EX_ACCEPTFILES) <> 0; end; // 目标或其父窗口是否接受文件拖放 function DFSrc_OkToDrop(ppt: PPoint): HWND; stdcall; var  ptMousePos: TPoint; begin  if (ppt = nil) then  begin    ptMousePos.x := LOWORD(GetMessagePos());    ptMousePos.y := HIWORD(GetMessagePos());  end else    ptMousePos := ppt^; // 这句我自己加的 ^^ // 取得指定位置所处的窗口  Result := WindowFromPoint(ptMousePos); // 看看目标窗囗或其父窗口是否接受文件拖放  while IsWindow(Result) and (IsAcceptingFiles(Result) = FALSE) do    Result := GetParent(Result); // 如果接受, 返回其句柄, 否则返回"空"句柄  if (IsWindow(Result) = FALSE) or (IsAcceptingFiles(Result) = FALSE) then    Result := 0; end; // 分配头部结构内存 function DFSrc_Create(ppt: PPoint; fNC, fWide: BOOL): HDROP; stdcall; var  PtDropFiles: PDropFiles; begin // 分配头部结构  if fWide then    Result := GlobalAlloc(GMEM_MOVEABLE or GMEM_ZEROINIT, SizeOf(TDropFiles) + SizeOf(WideChar))  else    Result := GlobalAlloc(GMEM_MOVEABLE or GMEM_ZEROINIT, SizeOf(TDropFiles) + SizeOf(Char)); // 填写结构成员  if (Result <> 0) then  begin    PtDropFiles := PDropFiles(GlobalLock(Result));    PtDropFiles.pFiles := SizeOf(TDropFiles);    PtDropFiles.pt := ppt^;    PtDropFiles.fNC := fNC;    PtDropFiles.fWide := fWide;    GlobalUnlock(Result);  end; end; // 向结构尾部追加文件 function DFSrc_AppendPathname(hDrop: HDROP; pvPathname: Pointer): HDROP; stdcall; var  PtDropFiles: PDropFiles;  szPathA: PChar;  szPathW: PWideChar;  nOffsetOfNewPathname, nPathSize: Integer; begin  PtDropFiles := PDropFiles(GlobalLock(hdrop)); // 定位至结构头尾部  szPathA := PChar(DWORD(PtDropFiles) + PtDropFiles.pFiles);  szPathW := PWideChar(szPathA); // 是Unicode宽字符?  if (PtDropFiles.fWide) then  begin   // 定位尾部    while (szPathW^ <> #0) do    begin      while (szPathW^ <> #0) do Inc(szPathW);      Inc(szPathW);    end;   // 首尾间距    nOffsetOfNewPathname := Integer(szPathW) - Integer(PtDropFiles);       // 新串长度    nPathSize := SizeOf(WideChar) * (lstrlenW(pvPathname) + 2);  end else  begin   // 定位尾部    while (szPathA^ <> #0) do    begin      while (szPathA^ <> #0) do Inc(szPathA);      Inc(szPathA);    end;   // 首尾间距    nOffsetOfNewPathname := Integer(szPathA) - Integer(PtDropFiles);   // 新串长度    nPathSize := SizeOf(Char) * (lstrlenA(pvPathname) + 2);  end;  GlobalUnlock(hdrop); // 重新分配  hdrop :=    GlobalReAlloc(hdrop, nPathSize + nOffsetOfNewPathname, GMEM_MOVEABLE or GMEM_ZEROINIT); // 分配成功  if (hdrop <> 0) then  begin    PtDropFiles := PDropFiles(GlobalLock(hdrop));    if (PtDropFiles.fWide) then      lstrcmpW(PWideChar(Integer(PtDropFiles) + nOffsetOfNewPathname), pvPathname)    else      lstrcpyA(PChar(Integer(PtDropFiles) + nOffsetOfNewPathname), pvPathname);    GlobalUnlock(hdrop);  end; // 返回句柄  Result := hdrop; end; // 取第nIndex个字符串(文件名) function MultiStrUtil_FindStr(szStrAll: PChar; nIndex: Integer; pnMax: PInteger): PChar; stdcall;    // 定位#0, 单个字符串尾部  function SearchEnd(const P: PChar): PChar;  begin    Result := P;    while (Result^ <> #0) do Inc(Result);  end; var  nNumStrs: Integer;  szStrSingle: PChar; begin  if (nIndex = -1) then nIndex := MaxInt; // 定位第nIndex个字符串  szStrSingle := szStrAll;  nNumStrs := 0;    while (szStrSingle^ <> #0) and (nNumStrs < nIndex) do  begin    szStrSingle := SearchEnd(szStrSingle) + 1;    Inc(nNumStrs);  end;  if (pnMax <> nil) then pnMax^ := nNumStrs; // 一直搜索到尾部也未找到  if (nNumStrs < nIndex) then    Result := nil  else    Result := szStrSingle; end; // 是否选择了多个文件 function FileOpenUtil_AreMultipleFilesSelected(pofn: POpenFilename): BOOL; stdcall; begin // 如果选择多个文件，nFileOffset是到第一个文件名的偏移(肯定超过路径字符串的长度)  Result := lstrlen(pofn.lpstrFile) < pofn.nFileOffset; end; // 文件列表内含文件个数 function FileOpenUtil_GetNumFiles(pofn: POpenFilename): Integer; stdcall; begin  Result := 1;  if FileOpenUtil_AreMultipleFilesSelected(pofn) then  begin   // 最后一个(也即列表长度)    MultiStrUtil_FindStr(pofn.lpstrFile, -1, @Result);    Dec(Result);  end; end; // 取第nIndex个文件完整路径 function FileOpenUtil_GetFile(pofn: POpenFilename; nIndex: Integer; szPathname: PChar): Integer; stdcall; begin  lstrcpy(szPathname, MultiStrUtil_FindStr(pofn.lpstrFile, 0, nil));  if FileOpenUtil_AreMultipleFilesSelected(pofn) then  begin    lstrcat(szPathname, '/');    lstrcat(szPathname, MultiStrUtil_FindStr(pofn.lpstrFile, nIndex + 1, nil));  end;  Result := lstrlen(szPathname); end; end. // ----------------------------------------------------------- // Module name: DFSrcDem.c ->> DFSrcDem.dpr // Written by: Jeffrey Richter // Notices: Copyright (c) 1995 Jeffrey Richter // Purpose: Demonstrates how to create a dropfile source application // Translator: 刘麻子, Liu_mazi@126.com program DFSrcDem; {$R DFSrcDem.res} uses Windows, Messages, ShellAPI, CommDlg, DFSrc in 'DFSrc.pas'; const // 光标资源ID  IDC_DROPOK = 103; // 图标资源ID  IDI_DFSRCDEMO = 104; // 模板资源ID  IDD_DFSRCDEMO = 105; // 控件标识ID  IDC_NUMFILES = 1001;  IDC_SELECTFILES = 1002;  IDC_PATHNAMELIST = 1003; // WM_INITDIALOG消息处理 function DFSrcDem

nInitDialog(hWnd, hWndFocus: HWND; lParam: LPARAM): BOOL; begin // 设置窗体图标  SendMessage(hWnd, WM_SETICON, ICON_BIG, LoadIcon(HInstance, MakeIntResource(IDI_DFSRCDEMO))); // 加水平滚动条  SendMessage(GetDlgItem(hWnd, IDC_PATHNAMELIST),    LB_SETHORIZONTALEXTENT, MAX_PATH * LOWORD(GetDialogBaseUnits()), 0); // 接受默认焦点  Result := TRUE; end; // WM_COMMAND消息处理 procedure DFSrcDem

nCommand(hWnd: HWND; id: Integer; hWndCtl: HWND; codeNotify: UINT); var  szAllFileNames: array[0..1024] of Char;  szPathname: array[0..MAX_PATH] of Char;  ofn: TOpenFilename;  nNumFiles, nIndex: Integer;  hWndLB: LongWord; // HWND begin  case (id) of    IDCANCEL: // 关闭对话框      begin        EndDialog(hWnd, id);      end;    IDC_SELECTFILES: // 选择文件      begin       // 清空ListBox        hWndLB := GetDlgItem(hWnd, IDC_PATHNAMELIST);        SendMessage(hWndLB, LB_RESETCONTENT, 0, 0);       // 初始化ofn结构        ZeroMemory(@ofn, SizeOf(TOpenFilename));        ofn.lStructSize := SizeOf(TOpenFilename);        ofn.hwndOwner := hWnd;        ofn.lpstrFilter := 'All files'#0'*.*'#0;        ofn.Flags := OFN_ALLOWMULTISELECT or OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_EXPLORER;        szAllFileNames[0] := #0;        ofn.lpstrFile := @szAllFileNames[0];        ofn.nMaxFile := SizeOf(szAllFileNames);       // 选择了文件        if GetOpenFileName(ofn) then        begin         // 选择文件的数量          nNumFiles := FileOpenUtil_GetNumFiles(@ofn);         // 添加至ListBox          for nIndex := 0 to nNumFiles - 1 do          begin            FileOpenUtil_GetFile(@ofn, nIndex, szPathname);            SendMessage(hWndLB, LB_ADDSTRING, 0, Integer(@szPathname[0]));          end;        end else        begin          nNumFiles := 0;        end;       // 选择文件的数量        SetDlgItemInt(hWnd, IDC_NUMFILES, nNumFiles, FALSE);      end;  end; // END: case (id) of end; // WM_LBUTTONDOWN消息处理 procedure DFSrcDem

nLButtonDown(hWnd: HWND; fDoubleClick: BOOL; nIndex, y: Integer; keyFlags: UINT); begin  if SendMessage(GetDlgItem(hWnd, IDC_PATHNAMELIST), LB_GETCOUNT, 0, 0) = 0 then   // 文件列表为空    MessageBox(GetActiveWindow(), 'No files to drop.', 'DFSrcDem', 0)  else   // 捕获鼠标消息    SetCapture(hWnd); end; // WM_MOUSEMOVE消息处理 procedure DFSrcDem

nMouseMove(hWnd: HWND; x, y: Integer; keyFlags: UINT); begin // 鼠标并未按下(说明不是'拖拽')  if (GetCapture() <> hWnd) then Exit; // 根据鼠标下窗体的风格设置光标  if IsWindow(DFSrc_OkToDrop(nil)) then    SetCursor(LoadCursor(HInstance, MakeIntResource(IDC_DROPOK)))  else    SetCursor(LoadCursor(0, IDC_NO)); end; // WM_LBUTTONUP消息处理 procedure DFSrcDem

nLButtonUp(hWnd: HWND; x, y: Integer; keyFlags: UINT); var  hWndTarget, hWndLB: LongWord; // HWND  rc: TRect;  ptMousePos: TPoint; // **  nIndex, nNumFiles: Integer;  hdrop, hdropT: Longint; // HDROP  szPathName: array[0..MAX_PATH] of Char; begin // 之前并非拖拽状态  if (GetCapture() <> hWnd) then Exit; // 释放鼠标消息捕捉  ReleaseCapture(); // 文件拖放目标窗口  GetCursorPos(ptMousePos); // **  hWndTarget := DFSrc_OkToDrop(@ptMousePos); // 如果窗口句柄非法  if (IsWindow(hWndTarget) = FALSE) then Exit; // 窗口客户区范围  GetClientRect(hWndTarget, rc);  ScreenToClient(hWndTarget, ptMousePos); // 分配内存并初始化  hdrop := DFSrc_Create(@ptMousePos, not PtInRect(rc, ptMousePos), FALSE);  if (hdrop = 0) then  begin    MessageBox(GetActiveWindow(), 'Insufficient memory to drop file(s).', 'DFSrcDem', 0);    Exit;  end; // ListBox文件数量  hWndLB := GetDlgItem(hWnd, IDC_PATHNAMELIST);  nNumFiles := SendMessage(GetDlgItem(hWnd, IDC_PATHNAMELIST), LB_GETCOUNT, 0, 0);   // 添加文件列表  for nIndex := 0 to nNumFiles - 1 do  begin    SendMessage(hWndLB, LB_GETTEXT, nIndex, Integer(@szPathName[0]));    hdropT := DFSrc_AppendPathname(hdrop, @szPathName[0]);    if (hdropT = 0) then    begin      MessageBox(GetActiveWindow(), 'Insufficient memory to drop file(s).', 'DFSrcDem', 0);      hdrop := GlobalFree(hdrop);      Break; // Terminates the 'for' loop.    end else    begin      hdrop := hdropT;    end;  end; // 添加文件列表成功  if (hdrop <> 0) then  begin   // 向拖放目标发消息    PostMessage(hWndTarget, WM_DROPFILES, hdrop, 0);   // 清空文件列表    SetDlgItemInt(hWnd, IDC_NUMFILES, 0, FALSE);    SendMessage(hWndLB, LB_RESETCONTENT, 0, 0);   // 注意: 我们不应该用 GlobalFree(hdrop) 来释放这块内存,   // 系统会在目标进程空间重新分配内存并作拷贝之后自动释放,   // 新的内存块, 由目标进程负责调用DragFinish()来释放 ..  end; end; // 对话框消息处理回调 function DFSrcDemo_Proc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall; begin  case (uMsg) of    WM_INITDIALOG:      begin        Result := BOOL(SetWindowLong(hWnd, DWL_MSGRESULT,          Longint(DFSrcDem

nInitDialog(hWnd, wParam, lParam))));      end;    WM_COMMAND:      begin        DFSrcDem

nCommand(hWnd, LOWORD(wParam), lParam, HIWORD(wParam));        Result := TRUE;      end;    WM_LBUTTONDOWN:      begin        DFSrcDem

nLButtonDown(hWnd, FALSE, LOWORD(lParam), HIWORD(lParam), wParam);        Result := TRUE;      end;    WM_MOUSEMOVE:      begin        DFSrcDem

nMouseMove(hWnd, LOWORD(lParam), HIWORD(lParam), wParam);        Result := TRUE;      end;    WM_LBUTTONUP:      begin        DFSrcDem

nLButtonUp(hWnd, LOWORD(lParam), HIWORD(lParam), wParam);        Result := TRUE;      end;    else Result := FALSE;  end; end; // 程序'主线程'入口 begin  DialogBox(HInstance, MakeIntResource(IDD_DFSRCDEMO), 0, @DFSrcDemo_Proc); end.

刘麻子 · 2005-06-30

完整代码和电子书可在此下载： http://www.2ccc.com/article.asp?articleid=2063 请看“第七章文件的拖放(Drag-and-Drop)技术”中的第二小节的范例“2.DFSrcDem”

daqun · 2005-06-30

就是说直接相窗口发WM_DROPFILES是无效的,必须用GlobalAlloc申请全局内存块构造 HDROP结构,传给待要接受拖拽的窗体.

独帅 · 2005-06-30

呵呵，请问daqun：您在用GlobalAlloc申请全局内存块构造好了HDROP结构之后，用什么发过去呢？ 不是用PostMessage发送WM_DROPFILES吗？难道是神七？[8D]

关于SENDMESSAGE和POSTMESSAGE的发送问题!~~~~~~~~~~ ( 积分: 150 )

LDSON

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

daqun

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

daqun

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

LDSON

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

daqun

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

Similar threads