Złącza COM1,COM2, USB w Delphi

Czy ktoś ma pomysł jak zapisywać i odczytywać informacje ze złączy wymienionych
w temacie ? :P

Cykl artykułów Jerzego Szczesiula na tema portu szeregowego w Win 95/98 (Delphi) - http://www.win32asm.civ.pl/sprzet.html
SDCC-51IDE: komponent do kontroli wyprowadzeń portu szeregowego –
http://www.easy-soft.tsnet.pl/zasoby/rs_pin.zip
Artykuł Jerzego Szczesiula o sterowaniu portem równoległym-
http://www.easy-soft.tsnet.pl/artykuly/lptecp/lptecp.html
Program do sterowania portem równoległym (ze źródłami w Delphi)
http://www.easy-soft.tsnet.pl/artykuly/lptecp/lptecp.zip
--Pzdr.
W.

Do i z portów COM1, COM2 zapisuje/odczytuje się dane podobnie do operacji na plikach w winAPI.
By pobrać uchwyt do portu urzywasz funkcji

var
FCom:integer;
begin
FCom:=CreateFile({'COM1' /'COM2'},GENERIC_READ{/GENERIC_WRITE},FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,nil);
{Do przesyłania danych powinien dobrze posłużyć objekt THandleStream}
CloseHandle(FCom);
end;

Były też posty na ten temat: np mój http://www.4programmers.net/forum/index.php?action=show&id=16978

Ps: Kod pisałem z pamięci, ale na pewno jest zbliżony do działającego hmm...

--
Sebo +)
(Delphi3)