registerarchive.dpr

ziptv为delphi控件

Program RegisterArchive;

Uses
   Windows,
   Forms,
   SysUtils,
   Unit1 In 'Unit1.pas' {Form1};

{$R *.RES}

Var
   PC: Array[0..$FF] Of Char;

Begin
   If ParamCount <> 0 Then
   Begin
      StrPCopy(PC, ExtractFilename(ParamStr(1)));
      Application.MessageBox(PC, 'Started from TRegArchive demo...', mb_Ok Or
         mb_IconInformation);
   End;

   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
End.