Make the menus of Delphi applications work.
[wine.git] / programs / expand / expand.c
blob71153781557ead103a6cec8eb25f67c116182b88
1 /*
2 * Copyright 1997 Victor Schneider
3 * Copyright 2002 Alexandre Julliard
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 #include <stdlib.h>
21 #include <stdio.h>
22 #include <string.h>
23 #include <windows.h>
24 #include <lzexpand.h>
26 int main(int argc, char *argv[])
28 OFSTRUCT SourceOpenStruct1, SourceOpenStruct2;
29 LONG ret;
30 HFILE hSourceFile, hDestFile;
32 if (argc < 2)
34 fprintf( stderr, "Usage: %s infile [outfile]\n", argv[0] );
35 return 1;
37 hSourceFile = LZOpenFile(argv[1], &SourceOpenStruct1, OF_READ);
38 if (argv[2])
39 hDestFile = LZOpenFile(argv[2], &SourceOpenStruct2, OF_CREATE | OF_WRITE);
40 else
42 char OriginalName[MAX_PATH];
43 GetExpandedName(argv[1], OriginalName);
44 hDestFile = LZOpenFile(OriginalName, &SourceOpenStruct2, OF_CREATE | OF_WRITE);
46 ret = LZCopy(hSourceFile, hDestFile);
47 LZClose(hSourceFile);
48 LZClose(hDestFile);
49 if (ret <= 0) fprintf(stderr,"LZCopy failed: return is %ld\n",ret);
50 return (ret <= 0);