Получение системных путей

[BOBAH13]

Приветствую. Собственно вопрос как получить например путь к открытию через шел винды (ShellApi.ShellExecute) корзину. Индефикатор-путь будет вида ::{.........} Есть идея что надо работать через SHGetSpecialFolderLocation и CSIDL_BITBUCKET. Но это не дает результат, у меня. Собственно интерисует возможность получать все возможные индификаторы в системе. Может кто разъяснит. Спасибо.

[rpy3uH]

вот этот код получает все возможные системные пути и выводит в Memo.
Выводится номер пути и сам путь

uses shellapi,shlobj;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    str:array[0..999] of char;
begin
 for i:=0 to $40 do
  begin
   SHGetSpecialFolderPath(0,@str,CSIDL_DESKTOP+i,false);
   memo1.lines.Add(inttohex(CSIDL_DESKTOP+i,3)+'  '+str);
  end;
end;

в общем, пробуй.

[lokiz]

Можно так попробоывать (все системные директории там прописаны )

 uses
   Registry;

 function GetProgramFilesDir: string;
 var
   reg: TRegistry;
 begin
   reg := TRegistry.Create;
   try
     reg.RootKey := HKEY_LOCAL_MACHINE;
     reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
     Result := reg.ReadString('ProgramFilesDir');
   finally
     reg.Free;
   end;
 end;

или так (если без реестра):

{ 
  Constants: 

  CSIDL_DESKTOP 
  CSIDL_INTERNET 
  CSIDL_PROGRAMS 
  CSIDL_CONTROLS 
  CSIDL_PRINTERS 
  CSIDL_PERSONAL 
  CSIDL_FAVORITES 
  CSIDL_STARTUP 
  CSIDL_RECENT 
  CSIDL_SENDTO 
  CSIDL_BITBUCKET 
  CSIDL_STARTMENU 
  CSIDL_DESKTOPDIRECTORY 
  CSIDL_DRIVES 
  CSIDL_NETWORK 
  CSIDL_NETHOOD 
  CSIDL_FONTS 
  CSIDL_TEMPLATES 
  CSIDL_COMMON_STARTMENU 
  CSIDL_COMMON_PROGRAMS 
  CSIDL_COMMON_STARTUP 
  CSIDL_COMMON_DESKTOPDIRECTORY 
  CSIDL_APPDATA 
  CSIDL_PRINTHOOD 
  CSIDL_ALTSTARTUP 
  CSIDL_COMMON_ALTSTARTUP 
  CSIDL_COMMON_FAVORITES 
  CSIDL_INTERNET_CACHE 
  CSIDL_COOKIES 
  CSIDL_HISTORY 
} 

uses 
  ActiveX, ShlObj; 

procedure TForm1.Button1Click(Sender: TObject); 
  // Replace CSIDL_HISTORY with the constants above 
var 
  Allocator: IMalloc; 
  SpecialDir: PItemIdList; 
  FBuf: array[0..MAX_PATH] of Char; 
  PerDir: string; 
begin 
  if SHGetMalloc(Allocator) = NOERROR then 
  begin 
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_HISTORY, SpecialDir); 
    SHGetPathFromIDList(SpecialDir, @FBuf[0]); 
    Allocator.Free(SpecialDir); 
    ShowMessage(string(FBuf)); 
  end; 
end; 

// With Windows Me/2000, the SHGetSpecialFolderLocation function 
// is superseded by ShGetFolderLocation. 


// function to get the desktop folder location: 

function GetDeskTopPath : string; 
var 
  shellMalloc: IMalloc; 
  ppidl: PItemIdList; 
  PerDir: string; 
begin 
  ppidl := nil; 
  try 
    if SHGetMalloc(shellMalloc) = NOERROR then 
    begin 
      SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl); 
      SetLength(Result, MAX_PATH); 
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then 
        raise exception.create('SHGetPathFromIDList failed : invalid pidl'); 
      SetLength(Result, lStrLen(PChar(Result))); 
    end; 
  finally 
   if ppidl <> nil then 
         shellMalloc.free(ppidl); 
  end; 
end;

[BOBAH13]

Сообщение от rpy3uH

вот этот код получает все возможные системные пути и выводит в Memo.
Выводится номер пути и сам путь

uses shellapi,shlobj;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    str:array[0..999] of char;
begin
 for i:=0 to $40 do
  begin
   SHGetSpecialFolderPath(0,@str,CSIDL_DESKTOP+i,false);
   memo1.lines.Add(inttohex(CSIDL_DESKTOP+i,3)+'  '+str);
  end;
end;

в общем, пробуй.

Да, но дело вот в чем, мне нужны индефикаторы типа '::{000000-00..}'

Вот к примеру, пустые строки, т.к. физически таких путей нет

000 C:\Documents and Settings\Владимир\Рабочий стол
001
002 C:\Documents and Settings\Владимир\Главное меню\Программы
003
004
005 C:\Documents and Settings\Владимир\Мои документы

@lokiz: аналогично

Яркий пример, получить как я говорил индификатор CSIDL_BITBUCKET. У меня в системе, да думаю и у других, он равен '::{645FF040-5081-101B-9F08-00AA002F954E}' Вот как в таком виде получить я долгое время уже не могу понять

[mihali4]

индификатор CSIDL_BITBUCKET. У меня в системе, да думаю и у других, он равен '::{645FF040-5081-101B-9F08-00AA002F954E}'

Ну, не знаю... У меня в реестре нашелся единственный малюсенький кусочек из этой фразы - "CSIDL" без "_", и то в одном-единственном месте и относится к Remote Desktop Cache files.
Может, архив вот этой рассылки натолкнет?
http://subscribe.ru/catalog/comp.soft.win.wintipsb00ks

[alexBlack]

Сообщение от BOBAH13

Да, но дело вот в чем, мне нужны индефикаторы типа '::{000000-00..}'

Попробуйте так:

var pDesktop : ISHELLFOLDER;
    ppidl: PItemIdList;
    S:StrRet;
begin
   SHGetDesktopFolder(pDesktop);
   SHGetSpecialFolderLocation(0, CSIDL_BITBUCKET, ppidl);
   pDesktop.GetDisplayNameOf(ppidl, SHGDN_FORPARSING, S);
   writeln(S.pOleStr);

[BOBAH13]

Сообщение от alexBlack

Попробуйте так:

var pDesktop : ISHELLFOLDER;
    ppidl: PItemIdList;
    S:StrRet;
begin
   SHGetDesktopFolder(pDesktop);
   SHGetSpecialFolderLocation(0, CSIDL_BITBUCKET, ppidl);
   pDesktop.GetDisplayNameOf(ppidl, SHGDN_FORPARSING, S);
   writeln(S.pOleStr);

Благодарю, то что надо. Очень давно искал решения, но время чтобы уделить и довести до ума не было Спасибо еще раз.