您的位置：程序门 -> delphi -> windows sdk/api

就差最后一步，怎么也解决不了，郁闷

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

就差最后一步，怎么也解决不了，郁闷[已结贴,结贴人:xbxsoft]

发表于：2007-01-10 12:32:14 楼主

var
hd,hx,hc,he:hwnd;
begin
//查找记事本对话框，并找到更改文件名的edit句柄
hd := findwindow（ '#32770 ', '另存为 ');
if hd <> 0 then
begin
hx := findwindowex（hd,0, 'comboboxex32 ', ' ');
if hx <> 0 then
begin
hc := findwindowex（hd,hx, 'combobox ', ' ');
if hc <> 0 then
begin
//前面都可以，就这一步，怎么也找不到edit的句柄，不知道怎么会事，有大虾能帮忙解决吗？
he := findwindowex（hd,hx, 'edit ', ' ');
if he <> 0 then
begin

end;
end;
end;
end;
end;

发表于：2007-01-10 12:37:381楼得分:100

// òôïâêç²éõò´°¿ú edit µä´úâë:
function myfindwindow : thandle;
const
// ¸¸´°¿úààãûêý×é
a_szclassname : array [0..4] of pchar = （
'notepad ',
'#32770 ',
'comboboxex32 ',
'combobox ',
'edit '
);
// ¸¸´°¿ú±êìâêý×é
a_szwinname : array [0..4] of pchar = （
'îþ±êìâ - ¼çêâ±¾ ',
'áí´æîª ',
' ',
' ',
' '
);
var
i : integer;
hlastwin : thandle;
begin
// ê×ïèçóµã¶¥¼¶¸¸´°¿ú
hlastwin := findwindow（a_szclassname[0], a_szwinname[0]);
// öð´îóãfindwindowexº¯êýçó³ö¸÷¼¶×ó´°¿ú
for i:=1 to 4 do
begin
hlastwin := findwindowex（hlastwin, thandle（nil),
a_szclassname[i], a_szwinname[i]);
end;
result := hlastwin;
end;
// ¾ùàý: hlastwin : thandle;
// hlastwin := myfindwindow（);
注：这是老妖syp4++生成的代码。。
你可以去试试使用。。

发表于：2007-01-10 12:37:532楼得分:0

晕，乱码。。

发表于：2007-01-10 13:27:313楼得分:0

不可以喔，用这个一个都找不到，我早试过了。记事本对话框就是一个父窗体，用他的这种方法一个都没找到。

发表于：2007-01-10 13:34:364楼得分:0

呵呵，ok了，好去掉 'notepad '夫窗体，就搞定了。

其他资讯