Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.03.19;
Скачать: CL | DM;

Вниз

открыть папку по некоторому пути (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



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

Текущий архив: 2017.03.19;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.004 c
1-1348636173
Дмитрий Белькевич
2012-09-26 09:09
2017.03.19
Как включить scroollbars у TShellTreeView?


2-1436599591
Alex118
2015-07-11 10:26
2017.03.19
Закрыть текущую вкладку в другой программе


3-1312941974
ZAlex
2011-08-10 06:06
2017.03.19
Конвертация полей типа VarByteField


2-1436168887
Арт
2015-07-06 10:48
2017.03.19
Вопрос по базе Access


2-1436212529
Дмитрий С
2015-07-06 22:55
2017.03.19
Сравнение Double