Тема: Lib_bt
Показать сообщение отдельно
Старый 30.10.2007, 17:50   #29
Eddy
Нуждающийся
 
Регистрация: 24.05.2006
Сообщений: 64
Написано 0 полезных сообщений
(для 0 пользователей)
Re: Lib_bt

ой извиняюсь, там уже скомпиленная версия. забыл)
выдери оттуда либу trybluetooth
код:
program bluetooth;
uses trybluetooth;
var i:integer;
begin
i:=getbluetooth;
drawText('Bluetooth Support:', 0, 0);
if i=10 then drawtext('True',getstringwidth('Bluetooth Support:'),0)
else drawtext('False',getstringwidth('Bluetooth Support:'),0);
while getkeypressed<>ke_key0 do begin
drawtext('Press key "0" to exit',0,getstringheight('B'));
repaint;
end;
end.
просьба не стебаться над реализацией
(Offline)
 
Ответить с цитированием