Mercurial > cdar

annotate unit_Editor_CreateAR.pas @ 2:104f349dcfcc default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag cdar-2.3 for changeset 87b91371db05b8cabe2dc3e2d2dc3ba830ab463b
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:56:41 +0100
parents ef71164288c1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
1 unit unit_Editor_CreateAR;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
2
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
3 interface//####################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
4
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
5 uses
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
7 Dialogs, StdCtrls, Grids, ValEdit, ShellApi;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
8
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
9 type
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
10 Tform_editor_CreateAR = class(TForm)
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
11 btn_Finish: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
12 btn_Back: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
13 FinalSettings: TValueListEditor;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
14 procedure FormCreate(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
15 procedure FormShow(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
16 procedure FormClose(Sender: TObject; var Action: TCloseAction);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
17 procedure btn_BackClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
18 procedure btn_FinishClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
19 private
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
20 { Private declarations }
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
21 public
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
22 { Public declarations }
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
23 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
24
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
25 var
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
26 form_editor_CreateAR: Tform_editor_CreateAR;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
27
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
28 implementation//###############################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
29 uses unit_Editor, unit_Editor_tutorial, unit_Start;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
30 {$R *.dfm}//###################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
31 {$I-}
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
32
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
33 //------------------------------------------------------------------------------ form create
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
34 procedure Tform_editor_CreateAR.FormCreate(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
35 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
36 //
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
37 form_Editor_CreateAR.Caption := 'Create your CD-Autorunner';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
38 btn_Finish.Caption := 'Finish';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
39 btn_Back.Caption := 'Back';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
40 FinalSettings.TitleCaptions.Strings[0] := ' Settings';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
41 FinalSettings.TitleCaptions.Strings[1] := ' Value';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
42 FinalSettings.Keys[1] := 'Background-Picture';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
43 FinalSettings.Keys[2] := 'Enter-Picture';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
44 FinalSettings.Keys[3] := 'Autorun-Icon';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
45 FinalSettings.Keys[4] := 'CD-Root-Dir';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
46 FinalSettings.Keys[6] := 'Enter X-Position';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
47 FinalSettings.Keys[7] := 'Enter Y-Position';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
48 FinalSettings.Keys[8] := 'Welcome-Kind';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
49 FinalSettings.Keys[9] := 'Delay';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
50 FinalSettings.Keys[10] := 'Starts File/Dir';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
51 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
52 //------------------------------------------------------------------------------ form show
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
53 procedure Tform_editor_CreateAR.FormShow(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
54 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
55 // disable drag'n'drop of 'img_button'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
56 form_editor.draggingstatus := 3;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
57 // disable menu
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
58 form_editor.mnu_Tutorial.enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
59 form_editor.mnu_WelcomeScreen.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
60 form_editor.mnu_Autorun.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
61 form_editor.mnu_CreateAR.enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
62 form_editor.mnu_Sprache.enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
63
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
64 // show final settings
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
65 finalsettings.Values['Background-Picture'] := form_Editor.PfadHG_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
66 finalsettings.Values['Enter-Picture'] := form_Editor.PfadEnter_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
67 finalsettings.values['Autorun-Icon'] := form_Editor.PfadIcon_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
68 finalsettings.Values['CD-Root-Dir'] := form_Editor.CDRoot_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
69
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
70 finalsettings.Values['Enter X-Position'] := inttostr(form_Editor.xEnter_alt);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
71 finalsettings.Values['Enter Y-Position'] := inttostr(form_Editor.yEnter_alt);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
72 finalsettings.Values['Welcome-Kind'] := form_Editor.WelcomeKind_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
73 finalsettings.Values['Delay'] := form_Editor.delay;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
74 finalsettings.Values['Starts File/Dir'] := form_Editor.StartsFD_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
75
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
76 // disable everything not needed
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
77 if form_Editor.WelcomeKind_alt = 'none' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
78 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
79 finalsettings.Values['Background-Picture'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
80 finalsettings.Values['Enter-Picture'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
81 finalsettings.Values['Enter X-Position'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
82 finalsettings.Values['Enter Y-Position'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
83 finalsettings.Values['Delay'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
84 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
85 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
86 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
87 if form_Editor.WelcomeKind_alt = 'time' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
88 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
89 finalsettings.Values['Enter-Picture'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
90 finalsettings.Values['Enter X-Position'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
91 finalsettings.Values['Enter Y-Position'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
92 if form_Editor.PfadHG_alt = '' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
93 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
94 finalsettings.Values['Background-Picture'] := '#### missing / fehlt ####';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
95 btn_finish.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
96 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
97 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
98 else // klick
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
99 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
100 finalsettings.Values['Delay'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
101 if form_Editor.PfadHG_alt = '' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
102 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
103 // if the 'enter'-picture is full size, then dont use the 'background'-picture
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
104 if (form_editor.img_button.Width = form_editor.img_Background.Width) and
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
105 (form_editor.img_button.Height = form_editor.img_Background.Height) then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
106 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
107 finalsettings.Values['Background-Picture'] := '< not used / nicht genutzt >';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
108 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
109 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
110 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
111 finalsettings.Values['Background-Picture'] := '#### missing / fehlt ####';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
112 btn_finish.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
113 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
114 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
115 if form_Editor.PfadEnter_alt = '' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
116 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
117 finalsettings.Values['Enter-Picture'] := '#### missing / fehlt ####';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
118 btn_finish.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
119 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
120 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
121 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
122
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
123 //
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
124 if form_Editor.pfadIcon_alt = '' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
125 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
126 finalsettings.values['Autorun-Icon'] := '(The banana / Die Banane)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
127 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
128
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
129 //
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
130 if form_Editor.StartsFD_alt = '' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
131 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
132 finalsettings.Values['Starts File/Dir'] := '(CD-Root-Dir / CD-Wurzelverzeichnis)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
133 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
134 //
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
135 if form_Editor.StartsFD_alt = '-' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
136 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
137 if form_Editor.WelcomeKind_alt = 'none' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
138 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
139 finalsettings.Values['Starts File/Dir'] := '#### CDAR does not do anything! / CDAR macht gar nichts! ####';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
140 btn_finish.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
141 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
142 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
143 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
144 finalsettings.Values['Starts File/Dir'] := '(Just shows Welcome-Screen / Zeigt nur ein Willkommensbild)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
145 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
146 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
147
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
148 // use German if set so
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
149 if form_editor.englisch = false then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
150 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
151 form_Editor_CreateAR.Caption := 'Autorunner erstellen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
152 btn_Finish.Caption := 'Fertigstellen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
153 btn_Back.caption := 'Zurück';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
154 FinalSettings.TitleCaptions.Strings[0] := ' Einstellung';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
155 FinalSettings.TitleCaptions.Strings[1] := ' Wert';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
156 FinalSettings.Keys[1] := 'Hintergrundbild';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
157 FinalSettings.Keys[2] := 'Enterbild';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
158 FinalSettings.Keys[3] := 'Autorun-Icon';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
159 FinalSettings.Keys[4] := 'CD-Grundverzeichnis';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
160 FinalSettings.Keys[6] := 'Enter X-Position';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
161 FinalSettings.Keys[7] := 'Enter Y-Position';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
162 FinalSettings.Keys[8] := 'Willkommensart';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
163 FinalSettings.Keys[9] := 'Zeitverzögerung';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
164 FinalSettings.Keys[10] := 'Startet Datei/Verz.';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
165 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
166 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
167 //------------------------------------------------------------------------------ Form Close
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
168 procedure Tform_editor_CreateAR.FormClose(Sender: TObject;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
169 var Action: TCloseAction);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
170 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
171 // enable drag'n'drop of 'img_button' again
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
172 form_editor.draggingstatus := 0;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
173 // enable menu again
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
174 form_editor.mnu_Tutorial.enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
175 form_editor.mnu_WelcomeScreen.Enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
176 form_editor.mnu_Autorun.Enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
177 form_editor.mnu_CreateAR.enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
178 form_editor.mnu_Sprache.enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
179 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
180
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
181 //#############################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
182
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
183 //------------------------------------------------------------------------------ Click Back
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
184 procedure Tform_editor_CreateAR.btn_BackClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
185 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
186 // close CreateAR
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
187 form_editor_createar.Close;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
188 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
189 //------------------------------------------------------------------------------ Click Finish
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
190 procedure Tform_editor_CreateAR.btn_FinishClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
191 var f : textfile;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
192 i : integer;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
193 CDRoot1 : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
194 CDRoot2 : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
195 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
196 // create 'CDRoot' directory if not exists
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
197 cdRoot1 := form_Editor.CDRoot_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
198
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
199 if DirectoryExists(CDRoot1) = false then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
200 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
201 for i := 5 to length(CDRoot1) do
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
202 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
203 if copy(CDRoot1, i, 1) = '\' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
204 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
205 CDRoot2 := copy(CDRoot1, 1, i);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
206 if DirectoryExists(CDRoot2) = false then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
207 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
208 mkdir(cdroot2);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
209 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
210 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
211 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
212 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
213
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
214
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
215 // create Autorun.inf
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
216 try
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
217 AssignFile(f, form_Editor.CDRoot_alt + 'Autorun.inf');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
218 ReWrite(f);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
219 Writeln(f, '[Autorun]');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
220 Writeln(f, 'Open= "_CDAR\cdar.exe welcome"');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
221 if finalsettings.Cells[1,3] = '(The banana / Die Banane)' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
222 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
223 Writeln(f, 'Icon= "_CDAR\cdar.exe"');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
224 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
225 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
226 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
227 Writeln(f, 'Icon= "_CDAR\Autorun.ico"');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
228 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
229 CloseFile(f);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
230 except
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
231 showmessage('"Autorun.inf" konnte nicht erstellt werden'+ #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
232 +'Vermutlich ist der Pfad zum CD-Wurzelverzeichnis ungültig'+ #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
233 + #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
234 +'"Autorun.inf" could not be created'+ #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
235 +'probably the path to the CD root directory is corrupt');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
236 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
237
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
238 // create directory '_CDAR' if not exists
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
239 if DirectoryExists(CDRoot1 + '_CDAR') = false then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
240 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
241 mkdir(form_Editor.CDRoot_alt + '_CDAR\');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
242 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
243
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
244 // create 'cdar.ini'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
245 try
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
246 AssignFile(f, form_Editor.CDRoot_alt + '_CDAR\cdar.ini');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
247 ReWrite(f);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
248 Writeln(f, form_Editor.WelcomeKind_alt);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
249 Writeln(f, form_Editor.Delay);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
250 Writeln(f, inttostr(form_Editor.xEnter_alt));
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
251 Writeln(f, inttostr(form_Editor.yEnter_alt));
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
252 Writeln(f, '..\' + form_Editor.StartsFD_alt);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
253 CloseFile(f);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
254 except
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
255 showmessage('"cdar.ini" konnte nicht erstellt werden'+ #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
256 +'Vermutlich ist der Pfad zum CD-Wurzelverzeichnis ungültig'+ #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
257 + #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
258 +'"cdar.ini" could not be created'+ #10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
259 +'probably the path to the CD root directory is corrupt');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
260 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
261
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
262 // create 'cdar.bat'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
263 try
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
264 AssignFile(f, 'C:\cdar.bat');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
265 ReWrite(f);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
266 Writeln(f, 'Rem This File was built by CD-Autorunner');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
267 Writeln(f, 'Rem It is not needed anymore you can delete it');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
268 Writeln(f, 'Rem');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
269 Writeln(f, 'Rem Diese Datei wurde von CD-Autorunner erzeugt');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
270 Writeln(f, 'Rem Sie wird nicht mehr gebraucht und kann geloescht werden');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
271 Writeln(f, 'Rem ###############################################');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
272 Writeln(f, 'Rem');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
273 Writeln(f, 'Rem');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
274 // copy 'Autorun.ico' if necessary
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
275 if finalsettings.Cells[1,3] <> '(The banana / Die Banane)' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
276 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
277 Writeln(f, 'Copy %1 %2');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
278 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
279 // copy 'background'-picture if necessary
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
280 if finalsettings.Cells[1,1] <> '< not used / nicht genutzt >' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
281 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
282 Writeln(f, 'Copy %3 %4');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
283 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
284 // copy 'enter'-picture if necessary
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
285 if finalsettings.Cells[1,2] <> '< not used / nicht genutzt >' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
286 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
287 Writeln(f, 'Copy %5 %6');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
288 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
289 // copy 'cdar.exe'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
290 Writeln(f, 'Copy %7 %8');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
291 // self destruction
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
292 Writeln(f, 'del "C:\cdar.bat"');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
293 // exit script
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
294 Writeln(f, 'exit');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
295 // close file
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
296 CloseFile(f);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
297 except
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
298 showmessage('"cdar.bat" konnte nicht erstellt werden'+ #10#10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
299 +'"cdar.bat" could not be created');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
300 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
301
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
302 try
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
303 ShellExecute(application.Handle, 'open', pchar('C:\cdar.bat'),
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
304 pchar('"'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
305 + form_Editor.PfadIcon_alt + '" "' + form_Editor.CDRoot_alt + '_CDAR\Autorun.ico" "'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
306 + form_Editor.PfadHG_alt + '" "' + form_Editor.CDRoot_alt + '_CDAR\Welcome.jpg" "'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
307 + form_Editor.PfadEnter_alt + '" "' + form_Editor.CDRoot_alt + '_CDAR\Enter.jpg" "'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
308 + paramstr(0) + '" "' + form_Editor.CDRoot_alt + '_CDAR\cdar.exe"'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
309 ), nil, sw_shownormal);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
310 except
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
311 showmessage('"cdar.bat" konnte nicht ausgeführt werden'+ #10#10
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
312 +'was not able to run "cdar.bat"');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
313 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
314
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
315 // return to 'form_Editor'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
316 form_editor_createar.Close;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
317 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
318
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
319 end.//#########################################################################################