selfxsml.dpr

来自「一个delphi下使用的压缩组件 TCompress Component Set」· DPR 代码 · 共 27 行

program selfXsml;

{ TCompress V3.0 "Tiny" self-extracting EXE example -- only comments changed from V2.5
  This program uses the same approach (and doInstal unit) as
  does the SELFEXTR.DPR unit. Hence, refer to the instructions
  at the top of SELFEXTF.PAS for setup instructions.

  Note:
  Because no form is involved, this program will be
  far *smaller* than SELFEXTR.EXE. The downside is that
  it has no user interaction, although you could use Windows
  MessageBox calls to at least display a confirmation message.
}

{$R *.RES}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\system.drawing.dll'}

uses
  doInstal;

const PROG_NAME =   'notepad.exe';
      README_NAME = 'readme.txt';

begin
   DoInstall('',PROG_NAME, README_NAME); { into the CURRENT directory! }
end.