www.pudn.com > oicqspysrc.zip > 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.