TAbMakeSelfExe

type TAbMakeSelfExe = class(TAbBaseComponent)

protected

  FStubExe: string;

  FZipFile: string;

  FSelfExe: string;

  FStubStream: TFileStream;

  FZipStream: TFileStream;

  FSelfStream: TFileStream;

  FOnGetStubExe: TAbGetFileEvent;

  FOnGetZipFile: TAbGetFileEvent;

  procedure DoGetStubExe();

  procedure DoGetZipFile();

public

  function Execute;

published

  property SelfExe: string; [rw]

  property StubExe: string; [rw]

  property ZipFile: string; [rw]

  property OnGetStubExe: TAbGetFileEvent; [rw]

  property OnGetZipFile: TAbGetFileEvent; [rw]

end;

TAbMakeSelfExe

TAbBaseComponent

TObject