[AleD]

Сообщение от cyberexpert

AleD, можете привести пример, как зажечь лампочку через COM??

только лишь программными средствами ты не сделаешь это, нужно в платах, диодах всяких разбираться, я в этом не шарю, то что по программной части то:

Код:

var
  port: Cardinal;
...
function Init(): Boolean;
begin
  port := CreateFile(‘COM1’, GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
  Result := port<>INVALID_HANDLE_VALUE;
end;

function SwitchLight(): Boolean;
var
  writed: Word;
begin
  Result := WriteFile(port, 1, 1, writed, nil);
  Result := Result and (writed=1);
end;

ну это дело прикрутить к кнопкам и должно работать