| cmd9x
498226
|
2015/7/28 16:28:21 |
Win7以后的带UAC该单元无法使用，需要加上消息过滤：
TChangeWindowMessage = function(message: UInt; dwFlag: DWORD): Bool; stdcall;
const
MSGFLT_ADD = 1;
MSGFLT_REMOVE = 2;
//私有成员
FDLL: HMODULE;
FCWM: TChangeWindowMessage;//过滤并允许UAC下拖放消息
//实现
FDLL := LoadLibrary('User32.dll');
if (FDLL <> 0) then
begin
@FCWM := GetProcAddress(FDLL, 'ChangeWindowMessageFilter');
if @FCWM <> nil then
begin
FCWM($0049, MSGFLT_ADD);
FCWM(WM_DROPFILES, MSGFLT_ADD);
end;
end; |
| hujiacheng
39341
|
2010/1/1 15:19:34 |
http://hi.baidu.com/hellowzr/blog/item/c333fe3c9b0b5ce73c6d9715.html
看下别人的分析吧 。 |
| starsoul
33442
|
2008/3/23 16:51:52 |
FCP_FILEOPEN没有定义.
如果有两个Edit控件,怎样把文件拖到这两个控件里? |
|
