Fórum Màquinas da rede. #215022

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