| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

SHGetSpecialFolderPath [D6, WinXP]

sssyura ©   (2008-08-02 03:07:00) 

Здравствуйте! Хочу запустить окно Мой компьютер с помощью кода:

procedure TForm1.BitBtn1Click(Sender: TObject);
var s:string;
begin
SetLength(s, MAX_PATH);
SHGetSpecialFolderPath(0, PChar(s), CSIDL_DRIVES, false);
shellExecute(handle,nil,pchar(s),'','',SW_Show);
end;
но после его выполнения запускается каталог с ехе.

---

shraibikus   (2009-08-27 13:46:00) [1]

Зачем так?
А что explorer.exe [path] уже не работает?

---

sssyura   (2008-08-16 01:22:00) [2]

Огромное спасибо!

---

Городской Шаман   (2008-08-08 19:20:00) [3]


procedure TForm1.Button1Click(Sender: TObject);
var
 Pidl: PItemIDList;
 ExeInfo: TShellExecuteInfoW;
begin
 if Succeeded(SHGetSpecialFolderLocation(0, CSIDL_DRIVES, pidl)) then
   begin
     ZeroMemory(@ExeInfo, SizeOf(ExeInfo));
     ExeInfo.cbSize := SizeOf(ExeInfo);
     ExeInfo.fMask := SEE_MASK_INVOKEIDLIST ;
     ExeInfo.lpVerb := nil;
     ExeInfo.nShow := SW_SHOWNORMAL; //SW_SHOW
     ExeInfo.lpIdList := Pidl;
     ExeInfo.Wnd := 0;

     ShellExecuteExW(@ExeInfo);

     CoTaskMemFree(Pidl);
   end;

end;


---

Anatoly Podgoretsky   (2008-08-02 11:20:00) [4]

> Leonid Troyanovsky  (02.08.2008 10:40:01)  [1]

О форум еще жив, но как мало там осталось, в среднем одна тема в неделю.

---

Leonid Troyanovsky   (2008-08-02 10:40:00) [5]

> sssyura ©   (02.08.08 03:07)  

> Хочу запустить окно Мой компьютер с помощью кода:

http://groups.google.com/group/fido7.ru.delphi/msg/83a2491e6033dfcd

--
Regards, LVT.

---

Наверх