var wnd:HWND;z:array [0..200] of char; begin wnd:=Findwindow(nil,'命令提示符');//根据标题查找句柄 if wnd>0 then getclassname(wnd,z,150); showmessage(string(z));
上述代码为取得DOS窗口的类名,你可根据类名 找句柄
根据类名,改为: var wnd:HWND;z:array [0..200] of char; begin wnd:=Findwindow('ConsoleWindowClass',nil);//根据标题查找句柄 if wnd>0 then getclassname(wnd,z,150); showmessage(string(z));
wnd:HWND;z:array [0..200] of char;
begin
wnd:=Findwindow(nil,'命令提示符');//根据标题查找句柄
if wnd>0 then
getclassname(wnd,z,150);
showmessage(string(z));
找句柄
var
wnd:HWND;z:array [0..200] of char;
begin
wnd:=Findwindow('ConsoleWindowClass',nil);//根据标题查找句柄
if wnd>0 then
getclassname(wnd,z,150);
showmessage(string(z));