Computadores da Rede num combobox

Question

Por favor, preciso tirar uma d�vida.Como fa�o pra carregar um combobox com todos os nomes dos computadores da rede em uso ?Muito Obrigado...

Euclides · Answer

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

Dpinho · Answer

[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

Euclides · Answer

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

F�rum Computadores da Rede num combobox #231734