var SEI:TShellExecuteInfo;
PIDL:PItemIDList;
begin
FillChar(SEI,SizeOf(SEI),0);
with SEI do begin
cbSize:=SizeOf(SEI);
fMask:=SEE_MASK_INVOKEIDLIST;
SHGetSpecialFolderLocation(0,CSIDL_DRIVES,PIDL);
lpIDList:=PIDL;
nShow:=SW_SHOWNORMAL;
end;
ShellExecuteEx(@SEI)
end;
Запуск Мой компьютер, мой документы и т.д
Как программно запустить Мой компьютер, мой документы и т.д:)
SHGetFolderPath и иже с ними
Мой компьютер - это виртуальная папка и через SHGetSpecialFolderPath получить путь к ней невозможно (т.к. его просто нет)
Ой ли?
Ну ладно,с функцией я начудил немного,конечно.А вот это прочтите,пригодится,я думаю
Помнится,был какой-то метод обращения к таким папкам(«::{GUID}» вроде),но вспомнить точно не могу)
Ну ладно,с функцией я начудил немного,конечно.А вот это прочтите,пригодится,я думаю
Помнится,был какой-то метод обращения к таким папкам(«::{GUID}» вроде),но вспомнить точно не могу)
Можно через SHGetSpecialFolderLocation + ShellExecuteEx пример:
Код:
Спасибо, работает:)