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,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,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,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,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,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,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