var h1,b1:Hwnd; begin h1:=GetActiveWindow; if h1=0 then exit; b1:=FindWindowEx(h1,0,'Button','否'); if b1=0 then exit; sendmessage(b1, WM_LBUTTONDOWN, 0, 0) ; sendmessage(b1, WM_LBUTTONUP, 0, 0)
if Application.MessageBox('是否设置为主页','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then //“是”之后的操作 else //“否”之后的操作
h1,b1:Hwnd;
begin
h1:=GetActiveWindow;
if h1=0 then exit;
b1:=FindWindowEx(h1,0,'Button','否');
if b1=0 then exit;
sendmessage(b1, WM_LBUTTONDOWN, 0, 0) ;
sendmessage(b1, WM_LBUTTONUP, 0, 0)
//“是”之后的操作
else
//“否”之后的操作
但是 Kshape_zh(伟大的大伟//[给我个支点、我就可以翘起整个地球
的程序好像不是这个样子的