Inno Setup - создание инсталляционных пакетов (Часть 15) - [1899] :: Программы

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup - создание инсталляционных пакетов (Часть 15)

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Genri

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:

function ConvertUNCPath(uncpath: string): string;
var
drvNames: TArrayOfString;
i: Integer;
s: String;
begin
Result:= uncpath;
if RegGetSubkeyNames(HKEY_CURRENT_USER, 'Network', drvNames) then
begin
s:= '';
for i := 0 to GetArrayLength(drvNames)-1 do begin
RegQueryStringValue(HKEY_CURRENT_USER, 'Network' + '\' + drvNames[i],
'RemotePath', s);
if StringChangeEx(uncpath, s, drvNames[i] + ':', True) > 0 then Break;
end;
Result:= uncpath;
// MsgBox(Result, mbInformation, MB_OK);
end;
end;

Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 17:15 11-01-2017 | Исправлено: Genri, 17:57 11-01-2017

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup - создание инсталляционных пакетов (Часть 15)

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC