Alle Arbeitsgruppen, alle Rechner und dann alle freigaben?

[webhuhn]

das is alles O.o

mehr brauchts dazu net?
oder muss ich das in den alte code einfügen?

achja:und wenn das alles is: tuts das unter win9x/2000/XP?

[Mario]

@Assarbad: Dein Source ist für den C++ Builder? Damit kann Delphi doch nix anfangen, oder?

@webhuhn: Ich bezog mich auf die erste Seite dieser Diskussion. Da hatte ich den Code gepostet. Schaue da noch mal nach, Du musst nur noch die uses ergänzen, bis er nicht mehr meckert.

Gehen sollte es unter allen Systemen.

[webhuhn]

achso, danke :D

dass es unter allen systeme läuft wäre gut ,weil das, was ich im moment hab tuts unter Win9X irgendwie net.. :-(


edit:
mhh.. der meckert :(

welche uses muss ich ergänzen?
ShellApi hab ich ergänz aber funktionieren tuts net

[Mario]

so sollte es tun (aber jetzt nicht getestet):

Delphi-Quellcode:

unit Unit1;

interface

uses Windows;

implementation

function RechnerInWG(lpnr: PNetResource): Boolean;

procedure AddComputerToList(Value: TNetResource);
var strRemoteName: String;
begin
   strRemoteName := Value.lpRemoteName;
   if Value.dwDisplayType <> RESOURCEDISPLAYTYPE_SERVER THEN Exit;
   ListBox.Items.Add(strRemoteName);
end;

const 
// RESOURCE_CONNECTED RESOURCE_CONTEXT RESOURCE_GLOBALNET RESOURCE_REMEMBERED 
c_dwScope = RESOURCE_GLOBALNET; 
// RESOURCETYPE_ANY RESOURCETYPE_DISK RESOURCETYPE_PRINT 
c_dwType  = RESOURCETYPE_DISK; 

var cbBuffer: DWORD; 
    hEnum, dwResult, dwResultEnum : DWORD; 
    lpnrLocal : array [0..16384 div SizeOf(TNetResource)] of TNetResource; 
    i : Integer; 
    cEntries : Longint; 
begin 

// 
// basiert auf Microsoft Beispiel "Enumerating Network Resources" in C++ 
// 
// [url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wnet/networks_77sj.asp[/url] 
// 

cbBuffer := 16384; 
centries := -1; 
dwResult := WNetOpenEnum( c_dwScope, 
                           c_dwType, 
                           0, // 0 = All resources 
                           lpnr, 
                           hEnum); 

if dwResult <> NO_ERROR 
  then 
   begin 
    Result := False; 
    // Fehlerbehandlung('Fehler bei WNetOpenEnum (%d)',[dwResult]); 
    Exit; 
   end; 

FillChar( lpnrLocal, cbBuffer, 0 ); 

dwResultEnum := WNetEnumResource(hEnum, 
                                  DWORD(cEntries), 
                                  @lpnrLocal, 
                                  cbBuffer); 

if dwResultEnum = NO_ERROR 
  then 
   begin // dwResultEnum = NO_ERROR 
    for i := 0 to cEntries - 1 do 
     begin 
      AddComputerToList(lpnrLocal[i]);
      if (c_dwScope = RESOURCE_GLOBALNET) AND
         (RESOURCEUSAGE_CONTAINER = (lpnrLocal[i].dwUsage AND RESOURCEUSAGE_CONTAINER))
       then RechnerInWG(@lpnrLocal[i]);
     end; 
   end // dwResultEnum = NO_ERROR 
  else 
   begin // dwResultEnum <> NO_ERROR 
    IF dwResultEnum <> ERROR_NO_MORE_ITEMS 
     THEN 
      begin 
       Result := False; 
       // Fehlerbehandlung (Format('Fehler bei WNetEnumResource (%d)',[dwResultEnum])); 
       Exit; 
      end; 
   end; // dwResultEnum <> NO_ERROR 

dwResult := WNetCloseEnum(hEnum); 

if dwResult <> NO_ERROR 
  then 
   begin 
    Result := False; 
    // Fehlerbehandlung (Format('Fehler bei WNetCloseEnum (%d)',[dwResult])); 
    Exit; 
   end; 

Result := True; 
end; 

end.

Aber Achtung! Bei großen Netzwerken kann das eine Weile dauern.

[webhuhn]

erstmal danke :D

aber warum meckert er da :

Code:

procedure AddComputerToList(Value: TNetResource);
var strRemoteName: String;
begin
   strRemoteName := Value.lpRemoteName;
   if Value.dwDisplayType <> RESOURCEDISPLAYTYPE_SERVER THEN Exit;
   ListBox.Items.Add(strRemoteName);
end;

das da:

[Error] Unit1.pas(30): Undeclared identifier: 'ListBox'
[Error] Unit1.pas(30): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

?

thx 4 hlp

[Mario]

Das ist die Listbox, die die Routine befüllen will. Die musst Du natürlich angeben, also z.B.:

Delphi-Quellcode:

Form1.ListBox1.Items.Add(strRemoteName);

[webhuhn]

hatte mich einfach vertippt :-(

sry :(

tuts jetzt, danke nochmal :D

#edit:

auch auf 98 :D

BIG THX :D

[webhuhn]

hi

ich bins ( schon wieder ;D )

gibt es auch eine möglichkeit den Progress des Rechnersuchens mit ner Progressbar darzustellen?

thx 4 hlp

[Mario]

Zitat:

Zitat von webhuhn

gibt es auch eine möglichkeit den Progress des Rechnersuchens mit ner Progressbar darzustellen?

Nicht das ich wüßte. Die Funktion ruft sich selbst solange auf, bis Windows keine Daten mehr bereit stellt. Nicht ohne Grund zeigt Windows, wenn man in die Netzwerkumgebung geht, nur die Eieruhr...

[MikeS]

Moin!
werden auch Rechner mit Linux aufgelistet??