TESTESTさん、こんにちは。

LHAの場合かつPB11
(11未満は alias for の;Ansiを除く)

外部関数宣言

function integer Unlha(integer hWnd,String szCmdLine,ref String szOutput,integer dwSize) 
library \"UNLHA32.dll\" alias for \"Unlha;Ansi\"

圧縮ボタン（cb_compress)を作成したとして、その中のスクリプト

String StCmd,WkBuff
Long Ret

stCmd = \"a 圧縮先ファイル名.LZH -gb圧縮したいファイル\"
// ※StCmd内の内容はLhaのコマンドパラメタを参照してください。
WkBuf = SPACE(255)
//ボタンに組み込んだとして、Handle(parent)を使用
Ret = Unlha(Handle(parent), stCmd,WkBuf,255)
IF Ret <> 0 THEN
　MessageBox(\"ERROR\",\"圧縮失敗\")
END IF

こんな感じかな？

＞こんにちは。
＞
＞PB初心者で申し訳ありませんが、ご教授願います。
＞
＞やりたいことなのですが、題名通りの、
＞「SAVEASで出力したファイルを圧縮したい」という事なのですが、
＞DOS窓を使用せずにやり方を知っていらっしゃる方、もし教えていただけると嬉しいです。
＞
＞
＞宜しくお願いします。
＞