Люди, пожалуйста, помогите мне! Вот раньше делал инсталляторы с помощью этой проги, простые, с самым необходимым...
А недавно узнал (отсюда
) что эта прога имеет ещё апупительную кучу фич...
И вот сразу же у меня трабла не корошая
Короче, решил сделать новое оформление у инсталлятора и ещё вставить на задний план картинку... делал по инструкции
вот кодик.... и когда компилируешь, то ИННО ругается типа в конце надо поставить "." вместо ";" . ну я поставил, а после компиляции на заднем плане нет картинки, пробовал менять местами коды нового скина и картинки, опять также ругался ИННО, ставлю в конце точку, а после компиляции картинка уже есть, но скин меняется на старый.....
Цитата: [no]
[Code]
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';
Procedure InitializeWizard();
begin
with WizardForm do begin
Position:=poScreenCenter
ClientWidth:=690
ClientHeight:=496
Font.Color:=clWindow
Font.Name:='MS Sans Serif'
Font.Style:=[]
with Bevel do begin
Left:=0
Top:=313
Width:=497
Height:=2
Visible:=False
end
with CancelButton do begin
Left:=600
Top:=462
Width:=77
Height:=25
BringToFront
end[/no]
{тута я сократил, много букавок, но в скрипте там ве норм у меня =)}
[no]with RunList do begin
Left:=205
Top:=199
Width:=465
Height:=149
BorderStyle:=bsNone
end
with FinishedLabel do begin
Left:=205
Top:=119
Width:=465
Height:=53
end
with FinishedHeadingLabel do begin
Left:=205
Top:=79
Width:=465
Height:=24
Font.Color:=clWindow
Font.Size:=8
end
end
end
with BeveledLabel do begin
Left:=10
Top:=468
Width:=150
Height:=14
Enabled:=False
Color:=14405068
end
end
end;
var
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
s: string;
begin
ExtractTemporaryFile('background.bmp');
s:=ExpandConstant('{tmp}')+'\background.bmp';
WizardForm.Position:=poScreenCenter;
MainForm.BORDERSTYLE:=bsNone;
width:=GetSystemMetrics(0);
height:=GetSystemMetrics(1);
MainForm.Width:=width;
MainForm.Height:=height;
width:=MainForm.ClientWidth;
height:=MainForm.ClientHeight;
MainForm.Left := 0;
MainForm.Top := 0;
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
MainForm.Visible:=True;
end;
[/no]
извините меня, если как то туповато объяснил... голова уже болит просто %) решил у вам обратиться
