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

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

открыть папку по некоторому пути (Win7,8) [D7]

Цукор5 ©   (2015-07-10 13:14:00) 

Есть код, задача которого отобразить некоторую папку с драйвером:

 var hPath:String;
begin
 hPath:=ExtractFilePath(Application.ExeName)+'Driver\';
 if not DirectoryExists(hPath) then ForceDirectories(hPath);
 if UnZipResource(hPath+'USB_VirtualCOM.inf') then
    WinExec(PChar('EXPLORER ,'+PChar(hPath)), SW_SHOW);


Все хорошо, но только с WinXP. А нужно на всех ОС (включая Win7 и 8)
Я так полагаю, проблема с WinExec. Нужны аналоги...

Заранее спасибо!

---

Цукор5   (2015-07-10 13:41:00) [1]

Спс, Ega23

---

Ega23   (2015-07-10 13:28:00) [2]

ShellExecute(0, nil, PChar(ExtractFilePath(FInfo.ResultFileName)), nil, nil, SW_NORMAL);

---

Наверх