"Arbeitsplatz" in der Sprache des installierten Windows...

[Sunlight7]

Zitat:

Zitat von Balu der Bär

@FriFra: Dein Code liest bei mir aber nicht den aktuellen Namen des Arbeitsplatzes aus. Ich habe die Verknüpfung auf die auf dem Desktop liegt in "Computer" umbenannt, rufe ich ihn auf steht oben in der Titelleiste auch korrekt "Computer". Diesen Namen liest deine Funktion aber nicht aus, ich erhalte den Standard-Bezeichner zurück. :gruebel:

@FriFra, Du könntest Deinen Code benutzen, um den Standard Namen für den Arbeitsplatz wiederherzustellen.

[FriFra]

Das war dann wohl nix ;) ...

> Das Hier < funktioniert deutlich besser und ist auch wesentlich weniger Aufwendig :thumb:

[Lannes]

Hallo,

mach auch mal einen Vorschlag:

Delphi-Quellcode:

uses
  //...
  shlobj, activex;
//...
function Get_CSIDL_DRIVES_Name : String;
var IMyShellFolder :ISHELLFOLDER;
    IDL     : PItemIDList;
    DisName : TStrRet;
    pMalloc : IMalloc;
begin
  result:='';
  if SHGetMalloc(pMalloc) <> NO_ERROR then
    exit;
  if Succeeded(SHGetSpecialFolderLocation(0, CSIDL_DRIVES, IDL)) then
    if Succeeded(SHGetDesktopFolder(IMyShellFolder)) then
      if Succeeded(IMyShellFolder.GetDisplayNameOf(IDL,SHGDN_NORMAL, DisName)) then
        case DisName.uType of
          STRRET_WSTR   : result := WideCharToString(DisName.pOleStr);
          STRRET_OFFSET : result := String(PChar(longint(IDL) + DisName.uOffset));
          STRRET_CSTR   : result := DisName.cStr;
          end;
  pMalloc.Free(IDL);
end;