Computer arbeitsgruppen übergreifend suchen mit Win-Dialog

[marabu]

Wollt ihr mich in Atem halten?

Ich muss ab und zu auch Geld verdienen!

Delphi-Quellcode:

program FC;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ShlObj;

function SHFindComputer(pidlRoot: PItemIDList; pidlSavedSearch: PItemIDList): boolean;
  stdcall; external 'Shell32.dll' index 91;

begin
  OleInitialize(nil);
  SHFindComputer(nil, nil);
end.

Grüße vom marabu