Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Другое \ Работа с Shell NameSpace

Работа с Shell NameSpace

Как поместить объект из Shell Namespace (например, My Computer) в свою форму?
В принципе у IE4 ActiveX (aka TWebBrowser) есть метод Navigate2, в
который можно передать объект из Shell Namespace

procedure TForm1.Button1Click(Sender: TObject);
var PIDL: PItemIdList;
cbpidl: Integer;
Path, A,B,C,D: Olevariant;
begin
SHGetSpecialFolderLocation( Handle, CSIDL_DRIVES, PIDL );
cbpidl := LocalSize(Cardinal(pidl));
if cbpidl > 0 then
begin
Path := VarArrayCreate([0, cbpidl-1], varByte);
Move(pidl^, VarArrayLock(Path)^, cbpidl);
VarArrayUnlock(Path);
WebBrowser1.Navigate2(Path);
end;
CoTaskMemFree(PIDL);
end;

Там еще правда надо разбираться с Security, но подумать на эту тему
теоретически можно.

Название: Работа с Shell NameSpace
Дата публикации: 2004-01-27 (3093 Прочтено)

 
 

 

Page generation 0.048 seconds