Отправка СМС через модем в делфи

Привет форумчане.
Нашел исходники проги, вот статья, в вот исходники, вроде рабочая, подскажите как она работает, и как ей пользоватся.

Заранее спасибо.

 

1) открываем статью, читаем, пишем свою прогу;
2) открываем исходники, читаем, разбираемся, переделываем под себя.
На здоровье!

 

уже вроде разобрался, а как узнать на каком порту модем

 

В диспечере устройств

 

я знаю, а в делфи как это можно узнать

 

Как-то так:

Code:

procedure TMainForm.BBGivePortClick(Sender: TObject);
const BufSize = $FFFF;
var
 Buf_DevList: Array[0..BufSize] of Char;
 DevName: PChar;
begin
Win32check(QueryDosDevice(nil, Buf_DevList, BufSize) <> 0);
DevName := @Buf_DevList;
 while DevName^ <> #00 do
 begin
   if (StrLIComp('COM', DevName, 3) = 0) then
    MLog.Lines.Append(DevName);
   DevName := StrEnd(DevName)+1;
 end;
end;