Màquinas da rede.
Como pegar o nome das máquinas que estão conectadas na rede? Utilizo Delphi7 e Windows98.
Grato.
Grato.
Cfreitas
Curtidas 0
Respostas
Euclides
18/02/2004
espero ajudar ,
var
i: integer;
caminho, drive: string;
tamanho: cardinal;
begin
setlength( caminho, 255 );
tamanho:= 255;
for i:= 0 to 25 do begin
drive:= chr( ord(´A´) + i ) +´ :´;
if wnetgetconnection( pchar( drive ), pchar( caminho ), tamanho ) = NO_ERROR then
listbox1.items.add( drive + ´ - ´ + caminho );
end;
espero ter ajudado , não sei se esta função roda no 98 mas funciona nos outros
abraços
var
i: integer;
caminho, drive: string;
tamanho: cardinal;
begin
setlength( caminho, 255 );
tamanho:= 255;
for i:= 0 to 25 do begin
drive:= chr( ord(´A´) + i ) +´ :´;
if wnetgetconnection( pchar( drive ), pchar( caminho ), tamanho ) = NO_ERROR then
listbox1.items.add( drive + ´ - ´ + caminho );
end;
espero ter ajudado , não sei se esta função roda no 98 mas funciona nos outros
abraços
GOSTEI 0