[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Code]
procedure InitializeWizard();
begin
with WizardForm do
begin
BorderStyle := bsToolWindow;
end;
with WizardForm.WelcomePage do
begin
Color := clBtnFace;
end;
with WizardForm.MainPanel do
begin
Color := clBtnFace;
end;
with WizardForm.FinishedPage do
begin
Color := clBtnFace;
end;
end;
Установить Windows 8, 8.1, 10.Та главное что бы я его таким видел
Установить Windows 8, 8.1, 10.как мне оставить с острыми углами и что бы была кнопка свернуть?
Установить Windows 95, 98, 2000 или сменить тему оформления на "Класический" ведь главное этоКласический вид виндовс
главное что бы я его таким видел
Все параметры которые поддерживает "Windows Forms" - bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin.и нет кнопки свернуть!
Вы определитесь.причём тут винда,не пишите бред!
Просто идет противоречие.главное что бы я его таким видел
Например попробовать использовать библиотеку IsClassic.Мне нужен инсталлятор,который будет с прямыми углами,в независимости от винды!
Такое не возможно сделать штатно.Теперь понятно?Класический вид виндовс и нет кнопки свернуть!
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
[Languages]
Name: RUS; MessagesFile: "compiler:Languages\Russian.isl"
[Code]
function InitializeUninstall:boolean;
var
rcode: Integer;
begin
Result:= False;
if not UninstallSilent then begin
Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW, ewNoWait, RCode);
Exit;
end;
if MsgBox('Удалить программу?', mbConfirmation, MB_YESNO) = IDYES then
Result:= True;
end;
А что в таком простейшем коде может косячить? Сам подумай. Тут либо у тебя система не даёт удалить, либо ты используешь данный пример в составе своего кода, вот в котором то и есть косяк.это в коде косяк
Скажу по секрету - на Inno Setup 5.5.9 Unicode тоже все работает на ура.на Inno Setup Ultra 5.5.1 ANSI все работает на ура