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

[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;