Zippen mit Passwort

[Mauli]

Hallo zusammen

ich würde gerne aus meinen Programm heraus eine Zipfile mit Passwort versehen.

Das mit dem Zipfile müsste ich hin bekommen:

Delphi-Quellcode:

procedure zippen;
var  URL : string;
     Handle : HWND;
begin
try
 URL:=Pfad+'\Sey.zip ';
 URL:= URL+ Pfad+'MeinText.txt  ';
 URL:= URL+ Pfad+'MeineDB.DB  ' ;
 ShellExecute(Handle, 'OPEN','c:\Programme\Winzip\wzzip', PChar(URL),nil, SW_SHOWNORMAL  );
except
 //.......
end;
end;

Hat jemand eine Idee, wie ich dem Ganzen ein Passwort zuweisen kann?

Ich freu mich auf eure Antworten!