Computadores da Rede num combobox

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
combobox.items.add( drive + ´ - ´ + caminho );
end;



espero ter ajudado

abraços

[quote=´Euclides´]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
combobox.items.add( drive + ´ - ´ + caminho );
end;


Estou precisando disto tambem, não entendir este codigo, pode esclarecer por favor

muito obrigado

olá DPinho,

Este código que passei ele passa para a função WNetGetConnection os drivers do windows que podem ser a ´A:´ até ´Z:´ e ele te devolve o caminho real da rede. Se a mesmo devolver ´NO_ERROR´ significa que este drive e de rede.

Espero ter ajudado

Abraços