[Tco 03]

Всем привет. Господа знатоки, подскажите, если не сложно. Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так:
if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно?

дай скрипт »

На.

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

Код:

#include "botva2.iss"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: botva2.dll; Flags: dontcopy;
Source: CallbackCtrl.dll; Flags: dontcopy;
Source: 1.png; Flags: dontcopy;

[ Code]
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
if not FileExists(ExpandConstant('{tmp}\1.png')) then ExtractTemporaryFile('1.png');
  Result:=True;
end;

procedure InitializeWizard;
begin
  ImgLoad(WizardForm.WelcomeLabel2.Handle, ExpandConstant('{tmp}\1.png'), ScaleX(110), ScaleY(70), ScaleX(64), ScaleY(64), True, True);
  ImgApplyChanges(WizardForm.WelcomeLabel2.Handle);
end;

procedure DeinitializeSetup;
begin
  gdipShutdown;
end;

Библиотеку botva2 от htuos качай тут, ну и разбирайся дальше что да как.

Памагите созтать такой скрипт »

Тоже самое, через botva2 можно реализовать (картинки вставить и так далее)... Что касается рамок - это просто Bevel или скорей всего таже самая картика в формате .png