Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Denis_Kokyev



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FileChangeDir(@ProgramFilesDir & '\Dips')
RunWait ( @Comspec & ' /C GetSID.bat', '', @SW_HIDE )
 
Sleep (1000)
 
Global $defaultbrowser, $file, $string1, $string2, $string3, $string4, $string5, $string6, $sid, $line, $sum1, $sum2, $sum3, $sum4, $sum5
 
$file = FileOpen("sid.cfg", 0)
$string1="HKEY_USERS\"
$string2="\Software\Richter\Desktop Item Position Saver"
 
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
 
$line= FileReadLine($file, 1)
 
FileClose($file)
 
$sid= StringTrimRight($line, 2)
 
$sum1= $string1 & $sid & $string2
 
RegWrite($SUM1,'Корзина',"REG_BINARY","1700000002000000")
 
 
 
 
Файл GetSID.bat:
 
for /f "usebackq tokens=*" %%a in (`"psgetsid %username% | find "S-""`) do echo %%a  > sid.cfg

Всего записей: 1074 | Зарегистр. 24-02-2003 | Отправлено: 17:07 20-12-2006 | Исправлено: Denis_Kokyev, 17:14 20-12-2006
   

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

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru