pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

The inno setup file for windows.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1772 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-08-01 15:39:07 +00:00
parent 27d1dead48
commit ec659b044e
5 changed files with 105 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
applications/cactusjukebox/Cactus_Jukebox.iss Normal file
View File

@ -0,0 +1,53 @@
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "Cactus JukeBox"
#define MyAppVersion "0.4.2"
#define MyAppPublisher "Lazarus, Inc."
#define MyAppURL "http://www.lazarus.freepascal.org"
#define MyAppExeName "cactus_jukebox.exe"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{540C04C4-8EB6-4837-AAA2-E4C94F6FD463}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\CactusJukeBox\
DefaultGroupName={#MyAppName}
LicenseFile=.\doc\CREDITS
InfoBeforeFile=.\doc\README
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "cactus_jukebox.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "cactus.cfg"; DestDir: "{app}"; Flags: ignoreversion
Source: "mplayer.cfg"; DestDir: "{app}"; Flags: ignoreversion
Source: "doc\*"; DestDir: "{app}\doc\"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "icon\*"; DestDir: "{app}\icon\"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "plugins\*"; DestDir: "{app}\plugins\"; Flags: ignoreversion
Source: "skins\*"; DestDir: "{app}\skins\"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "mplayer\*"; DestDir: "{app}\mplayer\"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[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

78
applications/cactusjukebox/source/mainform.lfm
View File

@ -1,11 +1,11 @@
object Main: TMain object Main: TMain
Left = 129 Left = 184
Height = 624 Height = 624
Top = 126 Top = 61
Width = 893 Width = 893
ActiveControl = Panel4 ActiveControl = Panel4
Caption = 'titel' Caption = 'titel'
ClientHeight = 602 ClientHeight = 604
ClientWidth = 893 ClientWidth = 893
Icon.Data = { Icon.Data = {
3E42000000000100010040400000010020002842000016000000280000004000 3E42000000000100010040400000010020002842000016000000280000004000
@ -548,7 +548,7 @@ object Main: TMain
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 22 Height = 22
Top = 580 Top = 582
Width = 893 Width = 893
Panels = < Panels = <
item item
@ -562,7 +562,7 @@ object Main: TMain
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 288 Left = 288
Height = 580 Height = 582
Top = 0 Top = 0
Width = 8 Width = 8
AutoSnap = False AutoSnap = False
@ -572,19 +572,19 @@ object Main: TMain
end end
object Panel1: TPanel object Panel1: TPanel
Left = 296 Left = 296
Height = 580 Height = 582
Top = 0 Top = 0
Width = 597 Width = 597
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 580 ClientHeight = 582
ClientWidth = 597 ClientWidth = 597
TabOrder = 0 TabOrder = 0
OnClick = Panel1Click OnClick = Panel1Click
OnResize = Panel1Resize OnResize = Panel1Resize
object TitleTree: TListView object TitleTree: TListView
Left = 0 Left = 0
Height = 150 Height = 152
Top = 5 Top = 5
Width = 587 Width = 587
Align = alTop Align = alTop
@ -604,22 +604,22 @@ object Main: TMain
item item
AutoSize = True AutoSize = True
Caption = 'Title' Caption = 'Title'
Width = 37 Width = 36
end end
item item
AutoSize = True AutoSize = True
Caption = 'Album' Caption = 'Album'
Width = 52 Width = 49
end end
item item
AutoSize = True AutoSize = True
Caption = 'Track' Caption = 'Track'
Width = 45 Width = 44
end end
item item
AutoSize = True AutoSize = True
Caption = 'Genre' Caption = 'Genre'
Width = 49 Width = 47
end end
item item
AutoSize = True AutoSize = True
@ -631,7 +631,7 @@ object Main: TMain
AutoSize = True AutoSize = True
Caption = 'Length' Caption = 'Length'
MaxWidth = 60 MaxWidth = 60
Width = 55 Width = 51
end> end>
PopupMenu = titlelistmenu PopupMenu = titlelistmenu
ReadOnly = True ReadOnly = True
@ -654,7 +654,7 @@ object Main: TMain
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 10 Height = 10
Top = 155 Top = 157
Width = 597 Width = 597
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
@ -662,7 +662,7 @@ object Main: TMain
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Height = 415 Height = 415
Top = 165 Top = 167
Width = 597 Width = 597
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -847,7 +847,7 @@ object Main: TMain
end end
object current_title_edit: TEdit object current_title_edit: TEdit
Left = 12 Left = 12
Height = 27 Height = 25
Top = 109 Top = 109
Width = 200 Width = 200
Color = clBtnFace Color = clBtnFace
@ -856,7 +856,7 @@ object Main: TMain
end end
object current_title_edit1: TEdit object current_title_edit1: TEdit
Left = 12 Left = 12
Height = 27 Height = 25
Top = 141 Top = 141
Width = 200 Width = 200
Color = clBtnFace Color = clBtnFace
@ -865,9 +865,9 @@ object Main: TMain
end end
object randomcheck: TCheckBox object randomcheck: TCheckBox
Left = 135 Left = 135
Height = 23 Height = 21
Top = 257 Top = 257
Width = 75 Width = 71
Caption = 'Random' Caption = 'Random'
OnChange = randomcheckChange OnChange = randomcheckChange
TabOrder = 3 TabOrder = 3
@ -940,20 +940,20 @@ object Main: TMain
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 50 Height = 49
Top = 2 Top = 2
Width = 464 Width = 464
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 50 ClientHeight = 49
ClientWidth = 464 ClientWidth = 464
PopupMenu = SearchMenu PopupMenu = SearchMenu
TabOrder = 2 TabOrder = 2
object filetypebox: TComboBox object filetypebox: TComboBox
Left = 360 Left = 360
Height = 27 Height = 25
Top = 14 Top = 8
Width = 90 Width = 90
ItemHeight = 19 ItemHeight = 17
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'all types' 'all types'
@ -971,8 +971,8 @@ object Main: TMain
end end
object searchstr: TEdit object searchstr: TEdit
Left = 120 Left = 120
Height = 27 Height = 25
Top = 14 Top = 8
Width = 232 Width = 232
OnKeyUp = searchstrKeyUp OnKeyUp = searchstrKeyUp
TabOrder = 1 TabOrder = 1
@ -981,7 +981,7 @@ object Main: TMain
Left = 16 Left = 16
Height = 28 Height = 28
Hint = 'Search the library' Hint = 'Search the library'
Top = 12 Top = 5
Width = 90 Width = 90
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Search' Caption = 'Search'
@ -1013,11 +1013,11 @@ object Main: TMain
end end
object clear_list: TBitBtn object clear_list: TBitBtn
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 501 Left = 504
Height = 30 Height = 30
Hint = 'Clear Playlist' Hint = 'Clear Playlist'
Top = 14 Top = 7
Width = 84 Width = 79
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = 'Clear' Caption = 'Clear'
@ -1084,9 +1084,9 @@ object Main: TMain
end end
object lblPath: TLabel object lblPath: TLabel
Left = 8 Left = 8
Height = 14 Height = 13
Top = 56 Top = 56
Width = 50 Width = 43
Caption = 'lblPath' Caption = 'lblPath'
ParentColor = False ParentColor = False
end end
@ -1094,19 +1094,19 @@ object Main: TMain
end end
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Height = 580 Height = 582
Top = 0 Top = 0
Width = 288 Width = 288
Align = alLeft Align = alLeft
BorderSpacing.InnerBorder = 30 BorderSpacing.InnerBorder = 30
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 580 ClientHeight = 582
ClientWidth = 288 ClientWidth = 288
TabOrder = 1 TabOrder = 1
OnClick = Panel4Click OnClick = Panel4Click
object ArtistTree: TTreeView object ArtistTree: TTreeView
Left = 26 Left = 26
Height = 570 Height = 572
Top = 5 Top = 5
Width = 259 Width = 259
Align = alClient Align = alClient
@ -1147,9 +1147,9 @@ object Main: TMain
OnClick = ArtistSrchFieldClick OnClick = ArtistSrchFieldClick
object Label2: TLabel object Label2: TLabel
Left = 77 Left = 77
Height = 14 Height = 13
Top = 8 Top = 8
Width = 43 Width = 37
Caption = 'Search' Caption = 'Search'
ParentColor = False ParentColor = False
end end
@ -1200,7 +1200,7 @@ object Main: TMain
end end
object artistsearch: TEdit object artistsearch: TEdit
Left = 8 Left = 8
Height = 27 Height = 25
Top = 32 Top = 32
Width = 110 Width = 110
OnKeyUp = ArtistTreeKeyUp OnKeyUp = ArtistTreeKeyUp
@ -1210,7 +1210,7 @@ object Main: TMain
end end
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Height = 575 Height = 577
Top = 5 Top = 5
Width = 26 Width = 26
Align = alLeft Align = alLeft

9
applications/cactusjukebox/source/mp3proj.lpi
View File

@ -10,6 +10,9 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<Title Value="cactus"/> <Title Value="cactus"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
</General> </General>
<VersionInfo> <VersionInfo>
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
@ -261,6 +264,12 @@
<OptimizationLevel Value="0"/> <OptimizationLevel Value="0"/>
</Optimizations> </Optimizations>
</CodeGeneration> </CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
</Debugging>
<LinkSmart Value="True"/>
</Linking>
<Other> <Other>
<Verbosity> <Verbosity>
<ShowHintsForUnusedUnitsInMainSrc Value="True"/> <ShowHintsForUnusedUnitsInMainSrc Value="True"/>

BIN
applications/cactusjukebox/source/mp3proj.res
View File

Binary file not shown.

7
applications/cactusjukebox/source/tagreader/mp3file.pas
View File

@ -285,11 +285,12 @@ Begin
ftrack := ''; ftrack := '';
End; // else writeln('no id3v1 tag'); End; // else writeln('no id3v1 tag');
except WriteLn(Filename+' -> exception while reading id3v1 tag... skipped!!'); end; except WriteLn(Filename+' -> exception while reading id3v1 tag... skipped!!'); end;
{ If ((artistv2<>'')) And (CactusConfig.id3v2_prio Or (artist='')) Then Fartist := artistv2; {$IFNDEF WINDOWS}
If ((artistv2<>'')) And (CactusConfig.id3v2_prio Or (artist='')) Then Fartist := artistv2;
If ((titlev2<>'')) And (CactusConfig.id3v2_prio Or (title='')) Then Ftitle := titlev2; If ((titlev2<>'')) And (CactusConfig.id3v2_prio Or (title='')) Then Ftitle := titlev2;
If ((albumv2<>'')) And (CactusConfig.id3v2_prio Or (album='')) Then Falbum := albumv2; If ((albumv2<>'')) And (CactusConfig.id3v2_prio Or (album='')) Then Falbum := albumv2;
If ((commentv2<>'')) And (CactusConfig.id3v2_prio Or (comment='')) Then Fcomment := commentv2; } If ((commentv2<>'')) And (CactusConfig.id3v2_prio Or (comment='')) Then Fcomment := commentv2;
{$IFDEF WINDOWS} {$ELSE}
if Length(Trim(fartist)) <> 0 then begin if Length(Trim(fartist)) <> 0 then begin
If ((artistv2<>'')) And (CactusConfig.id3v2_prio Or (artist='')) Then Fartist := UTF8Encode(artistv2); If ((artistv2<>'')) And (CactusConfig.id3v2_prio Or (artist='')) Then Fartist := UTF8Encode(artistv2);
end else Fartist := artistv2; end else Fartist := artistv2;