Victor_Dobrov
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возвращаясь к напечатанному... Хочу поделиться завершённым скриптом определения аппаратных требований.
Возможности: Вызов сведений из любой страницы, Корректная проверка версий Windows и Service Pack, Проверка программы пользователя (укажите ключ реестра), Показ размера системных папок, Проверка аппаратной конфигурации, Выбор диска установки.
Скачать скрипт:
Скачать бонус: пакет Windows Tweaks (краткий обзор): Замена оформления системы на улучшенное Vista, Миниатюры свёрнутых окон на 'Рабочем столе', Вывод в контекстное меню рисунков, фильмов и музыки, Обзор папок из контекстного меню, Рабочий стол: запись/восстановление положения значков, Диспетчер задач: службы, приоритеты задач, загрузка сети, Ускорение работы системы, и многое другое...
------------------ У меня вопрос к экспертам:
Function FolderSize(Dir: string): Cardinal; // Укажите, как иначе получить размер, папки более 2Гб дают ошибку на старых версиях WinScript!
begin
SaveStringToFile(ExpandConstant('{tmp}\DirSize.vbs'),'WScript.CreateObject("WScript.Shell").RegWrite "HKCU\Environment\DirSize",CreateObject("Scripting.FileSystemObject").GetFolder("'+ Dir +'").Size/1048576,"REG_DWORD"', False);
ShellExec('open','DirSize.vbs','',ExpandConstant('{tmp}'),sw_Hide,ewWaitUntilTerminated, errorCode); RegQueryDWordValue(HKCU,'Environment','DirSize',Result); RegDeleteValue(HKCU,'Environment','DirSize');
end;
GloThin, спасибо за вашу DelSp, я её немного сократил...
Function DelSp(String: String): String; // Удаление начальных пробелов в строке
begin
while (Pos(' ', String) =1) do Delete(String,1,1) Result:= String
end; |
