其他

开发平台：

Delphi

CustPack.pas：源码内容

							unit CustPack;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
  TCustPackDlg = class(TForm)
  private
    { Private declarations }
    FBuffer:array [0..4096] of char;
    FBuflen:Integer;
  public
    { Public declarations }
    class procedure Execute;overload;
    class procedure Execute(buf:array of char;buflen:Integer);overload;
  end;
implementation
{$R *.DFM}
{ TCustPackDlg }
class procedure TCustPackDlg.Execute;
begin
with TCustPackDlg.Create(Application) do
    begin
    ShowModal;
    Free;
    end;
end;
class procedure TCustPackDlg.Execute(buf: array of char; buflen: Integer);
begin
with TCustPackDlg.Create(Application) do
    begin
    CopyMemory(@FBuffer,@buf,buflen);
    FBuflen:=buflen;
    ShowModal;
    Free;
    end;
end;
end.

						