[movnet]

Код:

procedure TForm1.Button1Click(Sender: TObject); 
var 
CommPort : string; 
hCommFile : THandle; 
Buffer : PCommConfig; 
size : DWORD; 
begin 
CommPort := 'COM1'; 
{Открываем Com-порт} 
hCommFile := CreateFile(PChar(CommPort), 
                         GENERIC_WRITE, 
                         0, 
                         nil, 
                         OPEN_EXISTING, 
                         FILE_ATTRIBUTE_NORMAL, 
                         0); 
if hCommFile=INVALID_HANDLE_VALUE then 
begin 
   ShowMessage('Unable to open '+ CommPort); 
   exit; 
end; 
{Выделяем временный буфер} 
GetMem(Buffer, sizeof(TCommConfig)); 
{Получаем размер структуры CommConfig}
size := 0; 
GetCommConfig(hCommFile, Buffer^, size); 
{Освобождаем временный буфер} 
FreeMem(Buffer, sizeof(TCommConfig)); 
{Выделяем память для структуры CommConfig} 
GetMem(Buffer, size); 
GetCommConfig(hCommFile, Buffer^, size); 
{Изменяем скорость передачи} 
Buffer^.dcb.BaudRate := 1200; 
{Устанавливаем новую конфигурацию для COM-порта} 
SetCommConfig(hCommFile, Buffer^, size); 
{Освобождаем буфер} 
FreeMem(Buffer, size); 
{Закрываем COM-порт}
CloseHandle(hCommFile); 
end;