-
Notifications
You must be signed in to change notification settings - Fork 1
/
delta2bin.dpr
34 lines (32 loc) · 913 Bytes
/
delta2bin.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program delta2bin;
{$APPTYPE CONSOLE}
{$R *.res}
uses
SysUtils,
Classes,
Delta2binClasses in 'Delta2binClasses.pas',
FileMapping in 'FileMapping.pas';
begin
try
writeln('Delta2bin [version 0.0.1 alpha] Binary files patch applicator');
writeln('(c) Copyright 2002 Vasiliy Khabituyev, [email protected]');
if ParamCount <> 3 then begin
writeln;
writeln('Usage:');
writeln(' delta2bin <source> <target> <patch>');
writeln;
writeln('Where:');
writeln(' <source> - name of older file for which the patch have to be generated');
writeln(' <target> - name of newer file to create using source file');
writeln(' <patch> - name of patch file to use');
halt(1);
end {if};
DoIt;
except on E: Exception do
begin
writeln;
writeln('Bin2delta ERROR: ' + E.Message);
halt(2);
end {except};
end {try};
end.