Mira a ver si te puede servir esto.
Código:
//Para estas funciones es necesario ShellApi,ShlObj
function SHFindComputer(pidlRoot: PItemIDList; pidlSavedSearch: PItemIDList): Boolean;
stdcall; external 'Shell32.dll' index 91;
......
procedure TForm1.Button4Click(Sender: TObject);
begin
SHFindComputer(nil, nil);
end;
Un Saludo.