| <DIV id=832><PRE>procedure TForm1.FormCreate(Sender: TObject);
begin
if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then
ShowMessage(`Mouse present`)
else
ShowMessage(`Mouse NOT present`);
end;
procedure TForm1.Button1Click(Sender: TObject);
cons
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |