procedure TForm1.FormCreate(Sender: TObject);
var
buffer: Pointer;
devices: LPRasDevInfo;
devSize, ndevs: Integer;
begin
devSize := 0;
ndevs := 0;
if RasEnumDevices(nil, devSize, ndevs) <> ERROR_BUFFER_TOO_SMALL then
ShowMessage('Ошибка в процедуре RasEnumDevices');
buffer := AllocMem(devSize);
try
devices := buffer;
devices^.dwSize := SizeOf(TRasDevInfo);
if RasEnumDevices(buffer, devSize, ndevs) = 0 then
begin
while ndevs > 0 do
begin
cboDevice.Items.Add(Format('%s=%s', [devices^.szDeviceName, devices^.szDeviceType]));
Inc(devices);
Dec(ndevs);
end;
end
else
ShowMessage('Ошибка в процедуре RasEnumDevices');
finally
FreeMem(buffer);
end;
end;