SHGetSpecialFolderPath

← →
sssyura © (2008-08-02 03:07) [0]

Здравствуйте! Хочу запустить окно Мой компьютер с помощью кода:
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;
но после его выполнения запускается каталог с ехе.

← →
Leonid Troyanovsky © (2008-08-02 10:40) [1]

> sssyura © (02.08.08 03:07)

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

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

--
Regards, LVT.

← →
Anatoly Podgoretsky © (2008-08-02 11:20) [2]

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

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

← →
Городской Шаман (2008-08-08 19:20) [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;

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

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

SHGetSpecialFolderPath Найти похожие ветки