Скачать: CL | DM;

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;


---

← →
sssyura ©   (2008-08-16 01:22) [4]

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

---

← →
shraibikus ©   (2009-08-27 13:46) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c