registerarchive.dpr

来自「ziptv为delphi控件」· DPR 代码 · 共 26 行

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.