|
Работа с 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 (3179 Прочтено) |
|
 |