Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

футкция RasEnumDevices. Кто знает, как ей пользоваться?   Найти похожие ветки 

 
ych_boriss   (2003-02-13 04:03) [0]

Если кто знает, скажите пожалуйста, как правильно производить вызов функции RasEnumDevices?
Заранее благодарен


 
Набережных С.   (2003-02-13 20:09) [1]


type
ERasError = class(Exception)
private
FErrorCode: Cardinal;
public
property ErrorCode: Cardinal read FErrorCode;
constructor CreateOnCode(Error: Cardinal);
end;

constructor ERasError.CreateOnCode(Error: Cardinal);
var
s: string;
begin
FErrorCode:=Error;
SetLength(s, 1024);
RasGetErrorStringA(Error, @s[1], 1024);
Message:=PChar(s);
end;

procedure EnumRasDevices(const List: TStrings);
type
TDevArr = array[0..0] of TRasDevInfoA;
PDevArr = ^TDevArr;
var
Size, n, Count: integer;
P: PDevArr;
begin
Size:=0; Count:=0;
n:=RasEnumDevicesA(nil, Size, Count);
if
(n <> 0) and
(n <> ERROR_BUFFER_TOO_SMALL)
then
raise ERasError.CreateOnCode(n);
GetMem(P,Size);
try
P[0].dwSize:=SizeOf(TRasDevInfoA);
n:=RasEnumDevicesA(LpRasDevInfoA(P), Size, Count);
if n <> 0 then raise ERasError.CreateOnCode(n);
{$R-}
for n:=0 to Pred(Count) do
List.Add(P[n].szDeviceType + " :"#9 + P[n].szDeviceName);
{$R+}
finally
FreeMem(P);
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
3-19473
Дмитрий К.К.
2003-03-18 06:29
2003.04.07
Еще раз о BDE


3-19506
OleGKu
2003-03-19 15:48
2003.04.07
MSSQL & Delphi


8-19700
BirdNickOff
2003-01-04 00:58
2003.04.07
Как в Delphi переделать рисунок из 24 бит в 8 бит?


1-19619
Opera
2003-03-25 12:33
2003.04.07
Прилипание


3-19428
BorisUK
2003-03-14 12:01
2003.04.07
Блокировки