[SOURCE="inno"]; Ñêðèïò ñîçäàí ÷åðåç Ìàñòåð Inno Setup Script.
; ÈÑÏÎËÜÇÓÉÒÅ ÄÎÊÓÌÅÍÒÀÖÈÞ ÄËß ÏÎÄÐÎÁÍÎÑÒÅÉ ÈÑÏÎËÜÇÎÂÀÍÈß INNO SETUP!
#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"
[Setup]
; Ïðèìå÷àíèå: Çíà÷åíèå AppId èäåíòèôèöèðóåò ýòî ïðèëîæåíèå.
; Íå èñïîëüçóéòå îäíî è òîæå çíà÷åíèå â ðàçíûõ óñòàíîâêàõ.
; (Äëÿ ãåíåðàöèè çíà÷åíèÿ GUID, íàæìèòå Èíñòðóìåíòû | Ãåíåðàöèÿ GUID.)
AppId={{2C7402DC-C24C-44AA-B52B-7D6FBEFA7383}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; Ïðèìå÷àíèå: Íå èñïîëüçóéòå "Flags: ignoreversion" äëÿ ñèñòåìíûõ ôàéëîâ
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030105B01000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100185453746172744D656E75466F6C64657254726565566965771853746172744D656E75466F6C646572547265655669657731044C65667403B80003546F7003B800055769647468031101064865696768740271085461624F726465720202000000000044D656E75466F6C64657254726565566965771853746172744D656E75466F6C646572547265655669657731044C656674026003546F70027C055769647468031101064865696768740271085461624F72646572020200000000000000
[Code]
{ RedesignWizardFormBegin } // Íå óäàëÿòü ýòó ñòðîêó!
// Íå èçìåíÿòü ýòó ñåêöèþ. Îíà ñîçäàíà àâòîìàòè÷åñêè.
var
StartMenuFolderTreeView1: TStartMenuFolderTreeView;
procedure RedesignWizardForm;
begin
{ StartMenuFolderTreeView1 }
StartMenuFolderTreeView1 := TStartMenuFolderTreeView.Create(WizardForm);
with StartMenuFolderTreeView1 do
begin
Name := 'StartMenuFolderTreeView1';
Parent := WizardForm.WelcomePage;
Left := ScaleX(184);
Top := ScaleY(184);
Width := ScaleX(273);
Height := ScaleY(113);
Directory:=WizardForm.GroupEdit.Text;
end;
StartMenuFolderTreeView1.TabOrder := 2;
{ ReservationBegin }
// Âû ìîæåòå äîáàâèòü âàø êîä çäåñü.
{ ReservationEnd }
end;
// Íå èçìåíÿòü ýòó ñåêöèþ. Îíà ñîçäàíà àâòîìàòè÷åñêè.
{ RedesignWizardFormEnd } // Íå óäàëÿòü ýòó ñòðîêó!
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
[/SOURCE]
procedure RedesignWizardForm;
begin
StartMenuFolderTreeView1 := TStartMenuFolderTreeView.Create(WizardForm);
with StartMenuFolderTreeView1 do
begin
Name := 'StartMenuFolderTreeView1';
Parent := WizardForm.WelcomePage;
Left := ScaleX(184);
Top := ScaleY(184);
Width := ScaleX(273);
Height := ScaleY(113);
[B]SetPaths(ExpandConstant('{userprograms}'),ExpandConstant('{commonprograms}'),ExpandConstant('{userstartup}'),ExpandConstant('{commonstartup}'));[/B]
end;
и DirFolderTreeView не создает папку если ее не существует. Есть ли какой-то параметр что-бы изменить это или нужнописать вручную создание несуществующей папки?созданный в редакторе форм StartMenuFolderTreeView
поправил ошибку... пересмотрите и помогите...:cry:[/STRIKE]созданный StartMenuFolderTreeView и DirFolderTreeView не создает папку если ее не существует. Есть ли какой-то параметр что-бы изменить это или нужнописать вручную создание несуществующей папки?
то есть если у нас путь C:\Program Files (x86)\R.G. BlaBla\Игра то он обрезается до последней существующей папки, и получается C:\Program Files (x86)\Игра, с папкой в меню Пуск так же само, почему R.G BlaBla пропадает?
тебе сюда http://krinkels.org/showthread.php?t=96&page=4напишите или отправьте пожалуйста мне скрипт
заплатить за скрипт для картинки?
нет. За написание скрипта который ты просишь. Ведь из всего, что ты попытался сделать это в редакторе изменить пару элементов, и пару строчек кода соединить через утилиту соединения скриптов, а то что других просишь - это исправить все недочеты и ошибки, которых достаточно много, изаплатить за скрипт для картинки?
напишите скрипт чтобы изображение было на всех страницах как на первой
Код:function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall'; procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(WizardForm.Handle,$0112,$F012,0) end; procedure InitializeWizard; begin with WizardForm do begin BorderStyle := bsNone; OnMouseDown:=@LabelOnMouseDown; end; end; [/QUOTE]