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;