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.

zusammenfalten · markieren

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;

net use .. freigegeben ports anzeigen

net use .. freigegeben ports anzeigen

Forumregeln