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

← →
Цукор5 (2015-07-10 13:14) [0]

Есть код, задача которого отобразить некоторую папку с драйвером:
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. Нужны аналоги...

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

← →
Ega23 © (2015-07-10 13:28) [1]

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

← →
Цукор5 (2015-07-10 13:41) [2]

Спс,Ega23

открыть папку по некоторому пути (Win7,8) Найти похожие ветки