给我分吧
var
h:thandle;
CheckState:cardinal;
begin
h:=FindWindowEx(findwindow(nil,'我就是'),0,nil,'RadioButton1');
if h>0 then
begin
CheckState:=SendMessage(H, BM_GETCHECK, 0, 0);
case CheckState of
BST_CHECKED:showmessage('我被选中啦!');
BST_UNCHECKED:showmessage('可惜!我没被选中!');
end;
end
else
showmessage('出错拉!没找到你那个RadioButton');
