Вопрос # 1 730: …ажаемые эксперты! Com-интерфейсы IShellFolder и IBrowserFolder для че… (COM, ActiveX и взаимодействие с другими приложениями)

Доброго времени суток, уважаемые эксперты!
Com-интерфейсы IShellFolder и IBrowserFolder для чего они пременяются и где можно найти примеры их использования? Спасибо.

Здравствуйте, Трофимов Евгений!
Смотрите в Приложении вырезку из статьи.

Желаю удачи.

Приложение:

(*
*)
program ShellD;
uses
SysUtils, Windows, ActiveX, ShlObj;
var
Malloc: IMalloc;
Desktop: IShellFolder;
pidlMyComputer: PItemIDList;
pidlResult: PItemIDList;
pidlInitialFolder: PItemIDList;
function BrowseCallbackProc( hWnd: HWND; uMsg: UINT; lParam: LPARAM;
// stdcall
begin
Result := 0;
case uMsg of
BFFM_INITIALIZED:
begin
PostMessage( hWnd, BFFM_SETSELECTION, 0, Integer(pidlInitialFolder) );
PostMessage( hWnd, BFFM_SETSTATUSTEXT, 0,
end;
end;
end;
function GetProgramFilesDirByKeyStr(KeyStr: string): string;
var
dwKeySize: DWORD;
Key: HKEY;
dwType: DWORD;
begin
if
RegOpenKeyEx( HKEY_LOCAL_MACHINE, PChar(KeyStr), 0, KEY_READ, Key ) = ERROR_SUCCESS
then
try
RegQueryValueEx( Key, 'ProgramFilesDir', nil, @dwType, nil, @dwKeySize );
if (dwType in [REG_SZ, REG_EXPAND_SZ]) and (dwKeySize > 0) then
begin
SetLength( Result, dwKeySize );
RegQueryValueEx( Key, 'ProgramFilesDir', nil, @dwType, PByte(PChar(Result)),
@dwKeySize );
end
else
begin
RegQueryValueEx( Key, 'ProgramFilesPath', nil, @dwType, nil, @dwKeySize );
if (dwType in [REG_SZ, REG_EXPAND_SZ]) and (dwKeySize > 0) then
begin
SetLength( Result, dwKeySize );
RegQueryValueEx( Key, 'ProgramFilesPath', nil, @dwType, PByte(PChar(Result)),
@dwKeySize );
end;
end;
finally
RegCloseKey( Key );
end;
end;
// Here is old way to retrieve Program Files folder location,
// Modern way is using of SHGetSpecialFolder (shfolder.dll) with
// CSIDL_PROGRAM_FILES constant.
function GetProgramFilesDir: string;
const
DefaultProgramFilesDir = '%SystemDrive%Program Files';
var
FolderName: string;
dwStrSize: DWORD;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
FolderName :=
GetProgramFilesDirByKeyStr('SoftwareMicrosoftWindows NTCurrentVersion');
end;
if Length(FolderName) = 0 then
begin
FolderName :=
GetProgramFilesDirByKeyStr('SoftwareMicrosoftWindowsCurrentVersion');
end;
if Length(FolderName) = 0 then FolderName := DefaultProgramFilesDir;
dwStrSize := ExpandEnvironmentStrings( PChar(FolderName), nil, 0 );
SetLength( Result, dwStrSize );
ExpandEnvironmentStrings( PChar(FolderName), PChar(Result), dwStrSize );
end;
var
bi: TBrowseInfo;
DisplayName: string;
ProgramFilesDir: WideString;
CharsDone: ULONG;
dwAttributes: DWORD;
Temp: string;
begin
ProgramFilesDir := GetProgramFilesDir;
// acquire shell's allocator
if SUCCEEDED( SHGetMalloc( Malloc ) ) then
try
// acquire shell namespace root folder
if SUCCEEDED( SHGetDesktopFolder( Desktop ) ) then
try
// acquire folder that will serve as root in dialog
if SUCCEEDED( SHGetSpecialFolderLocation( 0, CSIDL_DRIVES, pidlMyComputer ) ) then
try
// acquire PIDL for folder that will be selected by default
if
SUCCEEDED(
Desktop.ParseDisplayName( 0, nil, PWideChar(ProgramFilesDir), CharsDone,
pidlInitialFolder, dwAttributes )
)
then
try
SetLength( DisplayName, MAX_PATH );
FillChar( bi, sizeof(bi), 0 );
bi.pidlRoot := pidlMyComputer; // roots from 'My Computer'
bi.pszDisplayName := PChar( DisplayName );
bi.ulFlags := BIF_STATUSTEXT;
bi.lpfn := BrowseCallbackProc;
pidlResult := SHBrowseForFolder( bi );
if Assigned(pidlResult) then
try
SetLength( Temp, MAX_PATH );
if SHGetPathFromIDList( pidlResult, PChar(Temp) ) then
begin
DisplayName := Temp;
end;
DisplayName := Trim(DisplayName) + '.';
MB_OK or MB_ICONINFORMATION );
finally
Malloc.Free( pidlResult ); // release returned value
end;
finally
Malloc.Free( pidlInitialFolder ); // release PIDL for folder that
// was selected by default
end;
finally
Malloc.Free( pidlMyComputer ); // release folder that was served as root in dialog
end;
finally
Desktop := nil; // release shell namespace root folder
end;
finally
Malloc := nil; // release shell's allocator
end;
end.

Здравствуйте, Трофимов Евгений!
Посмотрите здесь:
http://www.realcoding.net/article/view/446
Поисковик дает несколько ссылок.

Мини-форум вопроса

31 января 2011, 19:31: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 1 730

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 1 730

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом