net use .. freigegeben ports anzeigen

[PiT123]

Hallo,

ich habe folgenden code gefunden der sollte die Umleitungen anzeigen aber wie funzt das.
Ich bekomme das nicht hin.

ich möchte einfach nur das die Umgeleitungen im Edit oder Memo angezeigt werden.

Delphi-Quellcode:

function ResolveShareName (LocalDevice : String) : String; 
var 
  pLocName : PChar; 
  pShareName : PChar; 
  FuncResult : DWORD; 
  BufLength : Cardinal; 
begin 
  // Speicher für die Strings allozieren! 
  pLocName := StrAlloc(255); 
  pShareName := StrAlloc(255); 
  // String in PString kopieren 
  StrPCopy (pLocName, LocalDevice); 
  BufLength := 255; 
  FuncResult := WNetGetConnection(pLocName,pShareName,BufLength); 
  if FuncResult <> NO_ERROR then 
    result := 'ERROR' 
  else 
    result := pShareName; 
  // aufräumen! 
  StrDispose (pShareName); 
  StrDispose (pLocName); 
end;

[PiT123]

im Augenblick mache ich das über DOS ist aber nicht grade das was ich möchte.

Delphi-Quellcode:

Memo1.text:='net use >netuse.tmp';
Memo1.Lines.SaveToFile('netuse.bat');
ShellExecute(application.Handle,'open','netuse.bat',nil,nil ,sw_minimize);
Memo2.Lines.LoadFromFile('netuse.tmp');

[SirThornberry]

hmm, ich würd dir empfehlen das lieber mit pipes zu machen und nicht erst in ne Datei zu schreiben

[Christian Seehase]

Moin PiT123,

schau Dir mal im PSDK oder auf MSDN die Funktion NetShareEnum an.

[PiT123]

Kannst du mir sagen wie das mit pipes geht ?

würde mich jetzt mal Intressieren ..

[SirThornberry]

benutz mal die Delphi suche und gib "pipes" ein. Da müsste dann ein Thread (derzeit an zweiter Stelle) mit dem Titel "dosbox auslesen" angezeigt werden. Da gibts nen link für ne componente die das kann. Wenn dus ohne die komponente machen willst durchforste einfach die anderen suchergebnisse zum thema pipes oder analysiere die komponente