Форум: "Начинающим";
Текущий архив: 2017.03.19;
Скачать: [xml.tar.bz2];
Внизоткрыть папку по некоторому пути (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c