Показать сообщение отдельно
Старый 30.11.2010, 19:43     # 11
Volkogriz
Guest
 
Сообщения: n/a

Exclamation DotNetInstalled(): Boolean;

[Сode]
function InitializeSetup(): Boolean;
var
DotNetInstalled(): Boolean;
begin
RegValue:='';
RegQueryStringValue(HKLM,'SOFTWARE\Microsoft\.NETF ramework','InstallRoot',RegValue);
if (Length(RegValue)>0) then
DotNetInstalled:=True;
else
DotNetInstalled:=False;
end;

Последний раз редактировалось Volkogriz; 30.11.2010 в 19:47.