function ComboBoxSelected(Handle: HWND): boolean;
var
 StartPos, EndPos: integer;
begin
 SendMessage(Handle, CB_GETEDITSEL, Longint(@StartPos), Longint(@EndPos));
 Result := (EndPos <> StartPos);
end;