Download as
Browse Code »

Commit 66909ccbbc11cf91654b3cfad1db77f398d7a931

Authored by anderson.peterle@previdencia.gov.br
1 parent df93fc57
Exists in master

Exclusão para posterior reposição com versão 2.6-Beta-2 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@970 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 8 changed files with 0 additions and 698 deletions   Show diff stats
vacon/LEIAME
View file @df93fc5
... ... @@ -1,4 +0,0 @@
1   -
2   -Esse utilitário tem o objetivo de permitir a leitura do arquivo cacic2.dat, base local do sistema, onde localizam-se as últimas coletas e configurações obtidas a partir do gerente WEB.
3   -
4   -Para sua utilização será necessário conhecer o valor "Chave para Leitura do Arquivo", que corresponde à chave de criptografia (o valor padrão para a Comunidade é "CacicBrasil"), e o valor "Chave Separadora", que normalmente é "=CacicIsFree=".
vacon/main_VACON.ddp
View file @df93fc5
No preview for this file type
vacon/main_VACON.dfm
View file @df93fc5
... ... @@ -1,219 +0,0 @@
1   -object FormVACON: TFormVACON
2   - Left = 135
3   - Top = 8
4   - Width = 767
5   - Height = 652
6   - Caption = 'VACON - Visualizador de Arquivo de Configura'#231#227'o CACIC2.DAT'
7   - Color = clBtnFace
8   - Font.Charset = DEFAULT_CHARSET
9   - Font.Color = clWindowText
10   - Font.Height = -11
11   - Font.Name = 'MS Sans Serif'
12   - Font.Style = []
13   - FormStyle = fsStayOnTop
14   - OldCreateOrder = False
15   - Position = poDesktopCenter
16   - Visible = True
17   - OnCreate = FormCreate
18   - PixelsPerInch = 96
19   - TextHeight = 13
20   - object Label1: TLabel
21   - Left = 19
22   - Top = 48
23   - Width = 5
24   - Height = 13
25   - Font.Charset = DEFAULT_CHARSET
26   - Font.Color = clNavy
27   - Font.Height = -12
28   - Font.Name = 'MS Sans Serif'
29   - Font.Style = [fsBold]
30   - ParentFont = False
31   - end
32   - object Memo1: TMemo
33   - Left = 0
34   - Top = 46
35   - Width = 754
36   - Height = 549
37   - Lines.Strings = (
38   - '')
39   - ScrollBars = ssBoth
40   - TabOrder = 0
41   - end
42   - object Bt_Sair: TButton
43   - Left = 644
44   - Top = 6
45   - Width = 110
46   - Height = 35
47   - Caption = 'Sair'
48   - Font.Charset = DEFAULT_CHARSET
49   - Font.Color = clWindowText
50   - Font.Height = -13
51   - Font.Name = 'MS Sans Serif'
52   - Font.Style = [fsBold]
53   - ParentFont = False
54   - TabOrder = 1
55   - OnClick = Bt_SairClick
56   - end
57   - object Bt_Abrir_Outro: TButton
58   - Left = 467
59   - Top = 6
60   - Width = 163
61   - Height = 35
62   - Caption = 'Abrir Outro Arquivo...'
63   - Font.Charset = DEFAULT_CHARSET
64   - Font.Color = clWindowText
65   - Font.Height = -13
66   - Font.Name = 'MS Sans Serif'
67   - Font.Style = [fsBold]
68   - ParentFont = False
69   - TabOrder = 2
70   - Visible = False
71   - OnClick = Bt_Abrir_OutroClick
72   - end
73   - object GB_Chave: TGroupBox
74   - Left = 254
75   - Top = 165
76   - Width = 264
77   - Height = 220
78   - Color = clActiveBorder
79   - ParentColor = False
80   - TabOrder = 3
81   - Visible = False
82   - object Label2: TLabel
83   - Left = 8
84   - Top = 11
85   - Width = 242
86   - Height = 16
87   - Caption = 'Informe a Chave para Leitura do Arquivo:'
88   - Font.Charset = DEFAULT_CHARSET
89   - Font.Color = clWindowText
90   - Font.Height = -15
91   - Font.Name = 'MS Sans Serif'
92   - Font.Style = []
93   - ParentFont = False
94   - end
95   - object Lb_Chave_Separadora: TLabel
96   - Left = 8
97   - Top = 77
98   - Width = 173
99   - Height = 16
100   - Caption = 'Informe a Chave Separadora'
101   - Font.Charset = DEFAULT_CHARSET
102   - Font.Color = clWindowText
103   - Font.Height = -15
104   - Font.Name = 'MS Sans Serif'
105   - Font.Style = []
106   - ParentFont = False
107   - end
108   - object lbDefaultChaveLeArq: TLabel
109   - Left = 9
110   - Top = 51
111   - Width = 95
112   - Height = 12
113   - Caption = '(Default="CacicBrasil")'
114   - Font.Charset = DEFAULT_CHARSET
115   - Font.Color = clNavy
116   - Font.Height = -9
117   - Font.Name = 'Arial'
118   - Font.Style = []
119   - ParentFont = False
120   - end
121   - object lbChaveSeparadora: TLabel
122   - Left = 9
123   - Top = 118
124   - Width = 99
125   - Height = 12
126   - Caption = '(Default="CacicIsFree")'
127   - Font.Charset = DEFAULT_CHARSET
128   - Font.Color = clNavy
129   - Font.Height = -9
130   - Font.Name = 'Arial'
131   - Font.Style = []
132   - ParentFont = False
133   - end
134   - object Ed_Chave: TEdit
135   - Left = 8
136   - Top = 28
137   - Width = 249
138   - Height = 21
139   - BevelInner = bvNone
140   - TabOrder = 0
141   - Text = 'CacicBrasil'
142   - OnKeyPress = Ed_ChaveKeyPress
143   - end
144   - object Bt_OK_Chave: TButton
145   - Left = 95
146   - Top = 165
147   - Width = 75
148   - Height = 25
149   - Caption = 'OK'
150   - Font.Charset = DEFAULT_CHARSET
151   - Font.Color = clWindowText
152   - Font.Height = -13
153   - Font.Name = 'MS Sans Serif'
154   - Font.Style = []
155   - ParentFont = False
156   - TabOrder = 2
157   - OnClick = Bt_OK_ChaveClick
158   - end
159   - object Ed_Chave_Separadora: TEdit
160   - Left = 8
161   - Top = 94
162   - Width = 249
163   - Height = 21
164   - BevelInner = bvNone
165   - TabOrder = 1
166   - Text = 'CacicIsFree'
167   - OnKeyPress = Ed_Chave_SeparadoraKeyPress
168   - end
169   - object chkboxExibeChaves: TCheckBox
170   - Left = 3
171   - Top = 201
172   - Width = 97
173   - Height = 17
174   - Caption = 'Exibe Chaves'
175   - Font.Charset = DEFAULT_CHARSET
176   - Font.Color = clWindowText
177   - Font.Height = -9
178   - Font.Name = 'Arial'
179   - Font.Style = []
180   - ParentFont = False
181   - TabOrder = 3
182   - OnClick = chkboxExibeChavesClick
183   - end
184   - end
185   - object Bt_Trocar_Chave: TButton
186   - Left = 237
187   - Top = 6
188   - Width = 227
189   - Height = 35
190   - Caption = 'Trocar Chaves de Criptografia'
191   - Font.Charset = DEFAULT_CHARSET
192   - Font.Color = clWindowText
193   - Font.Height = -13
194   - Font.Name = 'MS Sans Serif'
195   - Font.Style = [fsBold]
196   - ParentFont = False
197   - TabOrder = 4
198   - Visible = False
199   - OnClick = PegaChave
200   - end
201   - object Panel1: TPanel
202   - Left = 695
203   - Top = 597
204   - Width = 59
205   - Height = 17
206   - BevelInner = bvLowered
207   - BevelOuter = bvLowered
208   - Caption = 'v:2.0.0.0'
209   - TabOrder = 5
210   - end
211   - object OpenDialog1: TOpenDialog
212   - Left = 16
213   - Top = 16
214   - end
215   - object PJVersionInfo1: TPJVersionInfo
216   - Left = 120
217   - Top = 16
218   - end
219   -end
vacon/main_VACON.pas
View file @df93fc5
... ... @@ -1,288 +0,0 @@
1   -unit main_VACON;
2   -
3   -interface
4   -
5   -uses
6   - Windows,
7   - SysUtils,
8   - Forms,
9   - DCPcrypt2,
10   - DCPrijndael,
11   - DCPbase64,
12   - StdCtrls,
13   - Controls, Classes, Dialogs, ExtCtrls, PJVersionInfo;
14   -
15   -type
16   - TFormVACON = class(TForm)
17   - Bt_Sair: TButton;
18   - OpenDialog1: TOpenDialog;
19   - Bt_Abrir_Outro: TButton;
20   - Memo1: TMemo;
21   - Label1: TLabel;
22   - GB_Chave: TGroupBox;
23   - Ed_Chave: TEdit;
24   - Label2: TLabel;
25   - Bt_OK_Chave: TButton;
26   - Bt_Trocar_Chave: TButton;
27   - Lb_Chave_Separadora: TLabel;
28   - Ed_Chave_Separadora: TEdit;
29   - lbDefaultChaveLeArq: TLabel;
30   - lbChaveSeparadora: TLabel;
31   - chkboxExibeChaves: TCheckBox;
32   - Panel1: TPanel;
33   - PJVersionInfo1: TPJVersionInfo;
34   - procedure FormCreate(Sender: TObject);
35   - procedure Bt_SairClick(Sender: TObject);
36   - function DeCrypt(p_Data : String) : String;
37   - function PadWithZeros(const str : string; size : integer) : string;
38   - function RemoveZerosFimString(Texto : String) : String;
39   - function Explode(Texto, Separador : String) : TStrings;
40   - procedure Mostra(p_DatFileName: string);
41   - procedure Bt_Abrir_OutroClick(Sender: TObject);
42   - procedure Abrir;
43   - procedure Bt_OK_ChaveClick(Sender: TObject);
44   - procedure PegaChave(Sender: TObject);
45   - procedure Ed_ChaveKeyPress(Sender: TObject; var Key: Char);
46   - procedure Ed_Chave_SeparadoraKeyPress(Sender: TObject; var Key: Char);
47   - procedure chkboxExibeChavesClick(Sender: TObject);
48   - function GetVersionInfo(p_File: string):string;
49   - function VerFmt(const MS, LS: DWORD): string;
50   - private
51   - { Private declarations }
52   - public
53   - { Public declarations }
54   - end;
55   -
56   -var
57   - FormVACON: TFormVACON;
58   - v_CipherKey,
59   - v_IV : string;
60   -
61   -// Some constants that are dependant on the cipher being used
62   -// Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)
63   -const KeySize = 32; // 32 bytes = 256 bits
64   - BlockSize = 16; // 16 bytes = 128 bits
65   -
66   -
67   -
68   -implementation
69   -
70   -{$R *.dfm}
71   -// Pad a string with zeros so that it is a multiple of size
72   -function TFormVACON.PadWithZeros(const str : string; size : integer) : string;
73   -var
74   - origsize, i : integer;
75   -begin
76   - Result := str;
77   - origsize := Length(Result);
78   - if ((origsize mod size) <> 0) or (origsize = 0) then
79   - begin
80   - SetLength(Result,((origsize div size)+1)*size);
81   - for i := origsize+1 to Length(Result) do
82   - Result[i] := #0;
83   - end;
84   -end;
85   -
86   -function TFormVACON.DeCrypt(p_Data : String) : String;
87   -var
88   - l_Cipher : TDCP_rijndael;
89   - l_Data, l_Key, l_IV : string;
90   -begin
91   - Try
92   - v_IV := 'abcdefghijklmnop';
93   -
94   - // Pad Key and IV with zeros as appropriate
95   - l_Key := PadWithZeros(v_CipherKey,KeySize);
96   - l_IV := PadWithZeros(v_IV,BlockSize);
97   -
98   - // Decode the Base64 encoded string
99   - l_Data := Base64DecodeStr(p_Data);
100   -
101   - // Create the cipher and initialise according to the key length
102   - l_Cipher := TDCP_rijndael.Create(nil);
103   - if Length(v_CipherKey) <= 16 then
104   - l_Cipher.Init(l_Key[1],128,@l_IV[1])
105   - else if Length(v_CipherKey) <= 24 then
106   - l_Cipher.Init(l_Key[1],192,@l_IV[1])
107   - else
108   - l_Cipher.Init(l_Key[1],256,@l_IV[1]);
109   -
110   - // Decrypt the data
111   - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));
112   -
113   - // Free the cipher and clear sensitive information
114   - l_Cipher.Free;
115   - FillChar(l_Key[1],Length(l_Key),0);
116   -
117   - // Return the result
118   - Result := trim(RemoveZerosFimString(l_Data));
119   - Except
120   - End;
121   -end;
122   -
123   -Function TFormVACON.RemoveZerosFimString(Texto : String) : String;
124   -var I : Integer;
125   - strAux : string;
126   -Begin
127   - strAux := '';
128   - if (Length(trim(Texto))>0) then
129   - For I := Length(Texto) downto 0 do
130   - if (ord(Texto[I])<>0) Then
131   - strAux := Texto[I] + strAux;
132   - Result := trim(strAux);
133   -end;
134   -
135   -Function TFormVACON.Explode(Texto, Separador : String) : TStrings;
136   -var
137   - strItem : String;
138   - ListaAuxUTILS : TStrings;
139   - NumCaracteres,
140   - TamanhoSeparador,
141   - I : Integer;
142   -Begin
143   - ListaAuxUTILS := TStringList.Create;
144   - strItem := '';
145   - NumCaracteres := Length(Texto);
146   - TamanhoSeparador := Length(Separador);
147   - I := 1;
148   - While I <= NumCaracteres Do
149   - Begin
150   - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then
151   - Begin
152   - if (I = NumCaracteres) then strItem := strItem + Texto[I];
153   - ListaAuxUTILS.Add(trim(strItem));
154   - strItem := '';
155   - I := I + (TamanhoSeparador-1);
156   - end
157   - Else
158   - strItem := strItem + Texto[I];
159   -
160   - I := I + 1;
161   - End;
162   - Explode := ListaAuxUTILS;
163   -end;
164   -
165   -
166   -procedure TFormVACON.FormCreate(Sender: TObject);
167   -begin
168   - FormVACON.Visible := true;
169   - FormVACON.Panel1.Caption := GetVersionInfo(ParamStr(0));
170   - Abrir;
171   -end;
172   -
173   -procedure TFormVACON.Abrir;
174   -begin
175   - OpenDialog1 := TOpenDialog.Create(self);
176   - OpenDialog1.InitialDir := GetCurrentDir;
177   - OpenDialog1.Filter := 'Arquivos de Configuração (.DAT)|*.dat';
178   - OpenDialog1.FilterIndex := 2;
179   - if v_CipherKey = '' then
180   - Begin
181   - PegaChave(nil);
182   - End
183   - else if OpenDialog1.Execute then Mostra(OpenDialog1.FileName);
184   -
185   -end;
186   -
187   -procedure TFormVACON.PegaChave(Sender: TObject);
188   -begin
189   - GB_Chave.Visible := true;
190   - Ed_Chave.SetFocus;
191   - chkboxExibeChavesClick(nil);
192   -end;
193   -function TFormVACON.VerFmt(const MS, LS: DWORD): string;
194   - // Format the version number from the given DWORDs containing the info
195   -begin
196   - Result := Format('%d.%d.%d.%d',
197   - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)])
198   -end;
199   -
200   -function TFormVACON.GetVersionInfo(p_File: string):string;
201   -var PJVersionInfo1: TPJVersionInfo;
202   -begin
203   - PJVersionInfo1 := TPJVersionInfo.Create(nil);
204   - PJVersionInfo1.FileName := PChar(p_File);
205   - Result := VerFmt(PJVersionInfo1.FixedFileInfo.dwFileVersionMS, PJVersionInfo1.FixedFileInfo.dwFileVersionLS);
206   - PJVersionInfo1.Free;
207   -end;
208   -
209   -procedure TFormVACON.Bt_SairClick(Sender: TObject);
210   -begin
211   - Application.Terminate;
212   - Close;
213   -end;
214   -
215   -procedure TFormVACON.Mostra(p_DatFileName: string);
216   -var v_tstrCipherOpened: TStrings;
217   - v_DatFile : TextFile;
218   - v_strCipherOpened,
219   - v_strCipherClosed : string;
220   -begin
221   - AssignFile(v_DatFile,p_DatFileName);
222   - {$IOChecks off}
223   - Reset(v_DatFile);
224   - {$IOChecks on}
225   -
226   - Readln(v_DatFile,v_strCipherClosed);
227   - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
228   -
229   - CloseFile(v_DatFile);
230   - v_strCipherOpened:= Decrypt(v_strCipherClosed);
231   -
232   - if (trim(v_strCipherOpened)<>'') then
233   - v_tstrCipherOpened := explode(v_strCipherOpened,trim(Ed_Chave_Separadora.Text));
234   -
235   - if v_tstrCipherOpened.Count mod 2 = 0 then
236   - v_tstrCipherOpened.Add('');
237   -
238   - Label1.Caption := p_DatFileName;
239   - Memo1.Visible := false;
240   - Memo1.Text := '';
241   - Memo1.SetSelTextBuf(PChar(v_tstrCipherOpened.Text));
242   - Memo1.Visible := true;
243   - Bt_Abrir_Outro.Visible := true;
244   -end;
245   -
246   -procedure TFormVACON.Bt_Abrir_OutroClick(Sender: TObject);
247   -begin
248   - Abrir;
249   -end;
250   -
251   -procedure TFormVACON.Bt_OK_ChaveClick(Sender: TObject);
252   -begin
253   - v_CipherKey := trim(Ed_Chave.Text);
254   - if v_CipherKey <> '' then
255   - Bt_Trocar_Chave.Visible := true;
256   -
257   - GB_Chave.Visible := false;
258   - if OpenDialog1.FileName <> '' then Mostra(OpenDialog1.FileName)
259   - else Abrir;
260   -end;
261   -
262   -
263   -procedure TFormVACON.Ed_ChaveKeyPress(Sender: TObject; var Key: Char);
264   -begin
265   - if Key = #13 then Ed_Chave_Separadora.SetFocus;
266   -end;
267   -
268   -procedure TFormVACON.Ed_Chave_SeparadoraKeyPress(Sender: TObject;
269   - var Key: Char);
270   -begin
271   - if Key = #13 then Bt_OK_ChaveClick(nil);
272   -end;
273   -
274   -procedure TFormVACON.chkboxExibeChavesClick(Sender: TObject);
275   -begin
276   - if chkboxExibeChaves.Checked then
277   - Begin
278   - Ed_Chave.PasswordChar := #0;
279   - Ed_Chave_Separadora.PasswordChar := #0;
280   - End
281   - else
282   - Begin
283   - Ed_Chave.PasswordChar := #42;
284   - Ed_Chave_Separadora.PasswordChar := #42;
285   - End;
286   -end;
287   -
288   -end.
vacon/vacon.cfg
View file @df93fc5
... ... @@ -1,38 +0,0 @@
1   --$A8
2   --$B-
3   --$C+
4   --$D+
5   --$E-
6   --$F-
7   --$G+
8   --$H+
9   --$I+
10   --$J-
11   --$K-
12   --$L+
13   --$M-
14   --$N+
15   --$O+
16   --$P+
17   --$Q-
18   --$R-
19   --$S-
20   --$T-
21   --$U-
22   --$V+
23   --$W-
24   --$X+
25   --$YD
26   --$Z1
27   --cg
28   --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29   --H+
30   --W+
31   --M
32   --$M16384,1048576
33   --K$00400000
34   --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
35   --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
36   --w-UNSAFE_TYPE
37   --w-UNSAFE_CODE
38   --w-UNSAFE_CAST
vacon/vacon.dof
View file @df93fc5
... ... @@ -1,136 +0,0 @@
1   -[FileVersion]
2   -Version=7.0
3   -[Compiler]
4   -A=8
5   -B=0
6   -C=1
7   -D=1
8   -E=0
9   -F=0
10   -G=1
11   -H=1
12   -I=1
13   -J=0
14   -K=0
15   -L=1
16   -M=0
17   -N=1
18   -O=1
19   -P=1
20   -Q=0
21   -R=0
22   -S=0
23   -T=0
24   -U=0
25   -V=1
26   -W=0
27   -X=1
28   -Y=1
29   -Z=1
30   -ShowHints=1
31   -ShowWarnings=1
32   -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33   -NamespacePrefix=
34   -SymbolDeprecated=1
35   -SymbolLibrary=1
36   -SymbolPlatform=1
37   -UnitLibrary=1
38   -UnitPlatform=1
39   -UnitDeprecated=1
40   -HResultCompat=1
41   -HidingMember=1
42   -HiddenVirtual=1
43   -Garbage=1
44   -BoundsError=1
45   -ZeroNilCompat=1
46   -StringConstTruncated=1
47   -ForLoopVarVarPar=1
48   -TypedConstVarPar=1
49   -AsgToTypedConst=1
50   -CaseLabelRange=1
51   -ForVariable=1
52   -ConstructingAbstract=1
53   -ComparisonFalse=1
54   -ComparisonTrue=1
55   -ComparingSignedUnsigned=1
56   -CombiningSignedUnsigned=1
57   -UnsupportedConstruct=1
58   -FileOpen=1
59   -FileOpenUnitSrc=1
60   -BadGlobalSymbol=1
61   -DuplicateConstructorDestructor=1
62   -InvalidDirective=1
63   -PackageNoLink=1
64   -PackageThreadVar=1
65   -ImplicitImport=1
66   -HPPEMITIgnored=1
67   -NoRetVal=1
68   -UseBeforeDef=1
69   -ForLoopVarUndef=1
70   -UnitNameMismatch=1
71   -NoCFGFileFound=1
72   -MessageDirective=1
73   -ImplicitVariants=1
74   -UnicodeToLocale=1
75   -LocaleToUnicode=1
76   -ImagebaseMultiple=1
77   -SuspiciousTypecast=1
78   -PrivatePropAccessor=1
79   -UnsafeType=0
80   -UnsafeCode=0
81   -UnsafeCast=0
82   -[Linker]
83   -MapFile=0
84   -OutputObjs=0
85   -ConsoleApp=1
86   -DebugInfo=0
87   -RemoteSymbols=0
88   -MinStackSize=16384
89   -MaxStackSize=1048576
90   -ImageBase=4194304
91   -ExeDescription=
92   -[Directories]
93   -OutputDir=
94   -UnitOutputDir=
95   -PackageDLLOutputDir=
96   -PackageDCPOutputDir=
97   -SearchPath=
98   -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k
99   -Conditionals=
100   -DebugSourceDirs=
101   -UsePackages=0
102   -[Parameters]
103   -RunParams=
104   -HostApplication=
105   -Launcher=
106   -UseLauncher=0
107   -DebugCWD=
108   -[Language]
109   -ActiveLang=
110   -ProjectLang=
111   -RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
112   -[Version Info]
113   -IncludeVerInfo=1
114   -AutoIncBuild=0
115   -MajorVer=2
116   -MinorVer=5
117   -Release=0
118   -Build=371
119   -Debug=0
120   -PreRelease=0
121   -Special=0
122   -Private=0
123   -DLL=0
124   -Locale=1033
125   -CodePage=1252
126   -[Version Info Keys]
127   -CompanyName=
128   -FileDescription=
129   -FileVersion=2.5.0.371
130   -InternalName=
131   -LegalCopyright=
132   -LegalTrademarks=
133   -OriginalFilename=
134   -ProductName=
135   -ProductVersion=2.6
136   -Comments=
vacon/vacon.dpr
View file @df93fc5
... ... @@ -1,13 +0,0 @@
1   -program vacon;
2   -
3   -uses
4   - Forms,
5   - main_VACON in 'main_VACON.pas' {FormVACON};
6   -
7   -{$R *.res}
8   -
9   -begin
10   - Application.Initialize;
11   - Application.CreateForm(TFormVACON, FormVACON);
12   - Application.Run;
13   -end.
vacon/vacon.res
View file @df93fc5
No preview for this file type