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
35
36
37
38
39
40
41
|
program ggdxgettext;
(**************************************************************)
(* *)
(* (C) Copyright by Lars B. Dybdahl *)
(* E-mail: Lars@dybdahl.dk, phone +45 70201241 *)
(* You may distribute and modify this file as you wish *)
(* for free *)
(* *)
(* See http://dybdahl.dk/dxgettext/ for more information *)
(* *)
(**************************************************************)
uses
Forms,
Dialogs,
uconfig in 'uconfig.pas' {FormConfig},
xgettexttools in 'xgettexttools.pas',
appconsts in 'appconsts.pas',
poparser in 'poparser.pas',
xgettext in 'xgettext.pas',
gnugettext in '..\gnugettext.pas',
ExeImage in 'ExeImage.pas',
rxtypes in 'rxtypes.pas',
uWork in 'uWork.pas' {FormWork},
runxgettext in 'runxgettext.pas',
ConsoleAppHandler in 'ConsoleAppHandler.pas',
ignoredetector in 'ignoredetector.pas';
{$R *.res}
begin
AddDomainForResourceString('delphi');
textdomain('dxgettext');
if paramcount<>1 then begin
ShowMessage (_('This program needs one parameter, which must be a directory path or a file name.'));
exit;
end;
Application.Initialize;
Application.CreateForm(TFormWork, FormWork);
Application.Run;
end.
|
