Цитата R.i.m.s.k.y.:
старшие камрады! обратите на меня внимание! а то краунмейдеры сидят без дистра
пост http://forum.oszone.net/post-1689745.html#post1689745
точки с запятой в юникод-скрипте я расставил, дело не в них а в
RegQueryBinaryValue(HKLM, DeviceKey, 'HardwareInformation.MemorySize', String)
в анси прокатывает, в юникоде - нет
а эта строчка и возвращает название видухи »
|
R.i.m.s.k.y., как обычно через WMI:
Код:
[code]
function GetVideoControllerName(): String;
var
objSWbemLocator, objSWbemServices: Variant;
begin
try
objSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
except
ShowExceptionMessage;
Exit;
end;
objSWbemServices := objSWbemLocator.ConnectServer();
objSWbemServices.Security_.ImpersonationLevel := 3;
try
Result := objSWbemServices.ExecQuery('SELECT Name FROM Win32_VideoController WHERE Availability=3').Item('Win32_VideoController="VideoController1"').Properties_.Item('Name').Value;
except
end;
end;
procedure InitializeWizard();
begin
MsgBox(GetVideoControllerName(), mbInformation, MB_OK);
end;
Цитата insombia:
BeveledLabel=
Как сделать чтобы он был в правом углу инсталятора а не левом? »
|
Цитата R.i.m.s.k.y.:
with WizardForm.BeveledLabel do
begin
Left := ScaleX(352);
Width := ScaleX(145);
end; »
|
insombia,
R.i.m.s.k.y., жестко задавать координаты плохо. А вдруг я размер формы поменяю?
Тогда уж так:
Код:
[Messages]
BeveledLabel=sometext
procedure InitializeWizard();
begin
with WizardForm.BeveledLabel do Left := WizardForm.Width - Width;
end;
