[Ivan_009]

Не подскажете в чем может быть проблема на XP определяет у меня Win7 32bit ... ps: Модуль HWREQ v.1.11

[Johny777]

Ivan_009,

попробуй через библиотеку сталкера
_______________________________________________________________
или через Ultimate Test в шапке

[valyok666]

Ivan_009, Сам разбирайся!!!

[YURSHAT]

попробуй через библиотеку сталкера »

Этому примеру сто лет и он кривой. Зачем спрашивается определять процессор через реестр если можно вызвать это из библиотеки? Отсутствует проверка ОС, так как этот пример писался под первую версию библы, в третьей которая в архиве уже есть функция проверки Оси. Нет удаления пробелов в названии процессора....

[Johny777]

YURSHAT,
ну тогда Ultimate Test. Я в них не разбираюсь, тк не использую. Просто выложил что было.

[R.i.m.s.k.y.]

YURSHAT, а эта либа у разогнанных сандиков частоту правильно определяет?

[YURSHAT]

R.i.m.s.k.y., ну она определяет все через реестр, так же как и Ultimate Test. Но ее плюс, что не нужно копатся в реестре, тем самым портянка будет в разы короче Да и проще ведь вызвать функцию из библы нежели извращатся с реестром. К тому же через нее можно определять ЖД, то есть их колличество, размер, доступное место...

а эта либа у разогнанных сандиков частоту правильно определяет? »

Ну можешь в шапке скачать скрипт Undercover, запустить и посмотреть Я в скрипте именно эту библу использовал..

ну тогда Ultimate Test »

Ну не обязательно Опять же повторюсь, в Undercover'e можно глянуть, как правильно эту библу юзать. Отличие в использовании библы и того же Ultimate Test, в сокращении объема работы и уменьшение размера скрипта...

[R.i.m.s.k.y.]

YURSHAT, из известных мне прог только цпу-зет умеет определять частоту сандиков, а она выплевывать полученную частоту из себя не умеет
цимес в том что штеуд чегой-то там так завертовал что определить реальную частоту не увех получается даже в биосе, а в винде надо ставить дарйвер

[Johny777]

К тому же через нее можно определять ЖД »

видел

Скрипт для вывода данных о винтах - слегка правленный вариант от YURSHAT(требует get_hw_caps.dll): »

помимо того что короче чем лучше этого (...\Inno Setup 5\Scripts\Dobrov\DisksInfoBox.iss)?

читать дальше »

Код:

[Setup]
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\My program
EnableDirDoesntExistWarning=true

[CustomMessages]
Ru.SysDirSelect=Выбранный путь включает в себя системную папку!%nВы уверены, что необходимо продолжать установку?

[Languages]
Name: Ru; MessagesFile: compiler:Languages\Russian.isl

[Icons]
Name: {group}\Notepad; Filename: notepad.exe

[  Code]
var n: Integer; FreeMB, TotalMB: Cardinal; VolumeName, FileSystemName: String; VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint; ListBox: TListBox; StartMenuTreeView: TStartMenuFolderTreeView;

const oneMB= 1024*1024;
function GetLogicalDrives: DWord; external 'GetLogicalDrives@kernel32.dll stdcall';
function GetDriveType(nDrive: String): Longint; external 'GetDriveTypeA@kernel32.dll stdcall';
function GetVolumeInformation(PathName,VolumeName: PChar; VolumeNameSize,VolumeSerialNumber,MaxComponentLength,FileSystemFlags: Longint; FileSystemName: PChar; FileSystemNameSize: Longint): Longint; external 'GetVolumeInformationA@kernel32.dll stdcall';
function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

Function ByteOrTB(Bytes: Extended; noMB: Boolean): String; { Перевод числа в значение бт/Кб/Мб/Гб/Тб (до 3х знаков после запятой)}
Begin
	if not noMB then Result:= FloatToStr(Int(Bytes)) +' Мб' else
		if Bytes < 1024 then Result:= FloatToStr(Int(Bytes)) +' Бт' else
			if Bytes/1024 < 1024 then Result:= FloatToStr(round((Bytes/1024)*10)/10) +' Кб' else
				If Bytes/oneMB < 1024 then Result:= FloatToStr(round(Bytes/oneMB*100)/100) +' Мб' else
					If Bytes/oneMB/1000 < 1024 then Result:= FloatToStr(round(Bytes/oneMB/1024*1000)/1000) +' Гб' else
						Result:= FloatToStr(round(Bytes/oneMB/oneMB*1000)/1000) +' Тб'
	StringChange(Result, ',', '.')
End;

Function DelSP(String: String): String; { Удаление начальных, конечных и повторных пробелов }
	Begin	while (Pos('  ', String) > 0) do Delete(String, Pos('  ', String), 1); Result:= Trim(String); End;

Function CutString(String: String; MaxLength: Longint): String; { Обрезать строку до заданного кол-ва символов}
	Begin
		if Length(String) > MaxLength then Result:= Copy(String, 1, 6) +'...'+ Copy(String, Length(String) - MaxLength +9, MaxLength)
		else Result:= String;
	End;

Procedure GetDiskInfo(Disk: String);
	Begin
		FileSystemName:= StringOfChar(' ', 32); VolumeName:= StringOfChar(' ', 256);
			GetVolumeInformation(Disk, VolumeName, 255, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, 31);
		FileSystemName:= DelSp(FileSystemName); VolumeName:= DelSp(VolumeName); if VolumeName='' then VolumeName:='без метки';
	End;

Procedure ListBoxRefresh;	var FreeB, TotalB: Cardinal; Path, String: string; Begin
	ListBox.Items.Clear
for n:= 1 to 31 do	// диск 'А' пропустить
	if (GetLogicalDrives and (1 shl n)) > 0 then
		if (GetDriveType(Chr(ord('A') + n) +':\') = 2) or (GetDriveType(Chr(ord('A') + n) +':\') = 3) then
			if GetSpaceOnDisk(Chr(ord('A') + n) +':\', True, FreeMB, TotalMB) then ListBox.Items.Add(Chr(ord('A') + n) +':');
for n:= 0 to ListBox.Items.Count -1 do begin
	Path:= Copy(ListBox.Items[n],1,2) +'\'		{ если в накопителе нет диска, пропустить обновление }
	if GetSpaceOnDisk(Path, False, FreeB, TotalB) and GetSpaceOnDisk(Path, True, FreeMB, TotalMB) then begin GetDiskInfo(Path);
		if FreeB >= $7FFFFFFF then String:= PadL(ByteOrTB(FreeMB*oneMB, true),10) else String:= PadL(ByteOrTB(FreeB, true),10);
		if TotalB >= $7FFFFFFF then begin TotalB:= TotalMB; FreeB:= FreeMB; String:= PadL(ByteOrTB(TotalMB*oneMB, true),11) +' всего| '+ String end else String:= PadL(ByteOrTB(TotalB, true),11) +' всего| '+ String;
	ListBox.Items[n]:= Copy(Path,1,2) + String + PadL(FloatToStr(round(FreeB/TotalB*100)),3)+ '% своб|'+ PadL(FileSystemName,5)+ '| '+ CutString(VolumeName,9); end; end;
End;

Procedure ObjectOnClick(Sender: TObject); Begin
Case TObject(Sender) of
	ListBox:	for n:= 0 to ListBox.Items.Count-1 do if ListBox.Selected[n] then WizardForm.DirEdit.Text:= Copy(ListBox.Items[n],1,1) +Copy(WizardForm.DirEdit.Text, 2, Length(WizardForm.DirEdit.Text))
	StartMenuTreeView:	if StartMenuTreeView.Directory <> '' then WizardForm.GroupEdit.Text:= StartMenuTreeView.Directory else WizardForm.GroupEdit.Text:= '{#SetupSetting("DefaultGroupName")}'
	WizardForm.NoIconsCheck:	begin WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled); StartMenuTreeView.Enabled:= WizardForm.GroupEdit.Enabled; WizardForm.GroupBrowseButton.Enabled:= WizardForm.GroupEdit.Enabled end;
end; End;

Function NextButtonClick(CurPageID: Integer): Boolean; Begin
	Result:= True
	if (CurPageID = wpSelectDir) and (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then Result:= MessageBox(StrToInt(ExpandConstant('{wizardhwnd}')), ExpandConstant('{cm:SysDirSelect}'), 'Установка в системную папку', MB_YESNO or $30) = idYes;
End;

Procedure CurPageChanged(CurPageID: Integer);
Begin
	if CurPageID = wpSelectDir then ListBoxRefresh
End;

Procedure InitializeWizard;
Begin
	ListBox:= TListBox.Create(WizardForm)
		ListBox.SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 8, WizardForm.DirBrowseButton.Left + WizardForm.DirBrowseButton.Width - WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top - (WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 12))
		ListBox.Font.Size:= 9
		ListBox.Font.Style:= [fsBold]
		ListBox.Font.Name:= 'Courier New';
		ListBox.OnClick:= @ObjectOnClick;
		ListBox.Parent:= WizardForm.SelectDirPage;
	WizardForm.NoIconsCheck.SetBounds(WizardForm.DiskSpaceLabel.Left + 96, WizardForm.DiskSpaceLabel.Top + 1, WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height)
		WizardForm.NoIconsCheck.OnClick:= @ObjectOnClick
		WizardForm.NoIconsCheck.Parent:= WizardForm.SelectProgramGroupPage
		WizardForm.NoIconsCheck.Show
	StartMenuTreeView:= TStartMenuFolderTreeView.Create(WizardForm)
		StartMenuTreeView.SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
		StartMenuTreeView.SetBounds(ListBox.Left, ListBox.Top, ListBox.Width, ListBox.Height)
		StartMenuTreeView.Parent:= WizardForm.SelectProgramGroupPage
		StartMenuTreeView.Cursor:= crHand
		StartMenuTreeView.OnChange:=@ObjectOnClick
End;

[LinkOFF]

R.i.m.s.k.y.,
так Everest еще определяет