请问怎样在程序中调用winzip?

Question

我用的是Delphi 6，我想在程序中调用winzip来压缩一个文本文件，请问怎样调用？winzip的命令行格式该怎样写？

Answer 1

你去下载一个zip的控件，然后自己做压缩就可以了

Answer 2

去下个ZIP控件呀，此控件很好用的，我在DELPHI都是用它来压缩文件的

Answer 3

WINRAR的就找到了，你用createprocess调用可能省一点，如果用shellexecute可能还要用postmessage，太麻烦了
压缩文件的一般命令行语法为:WINRAR  A  [-参数]  <压缩包>  [文件]  [@文件列表] 例如，如果你希望添加文件 LETTER.TXT 到压缩包 LETTERS.RAR，输入:WINRAR  A  LETTERS.RAR  LETTER.TXT如果未指定压缩包扩展名，WinRAR 就使用在 压缩配置 中选定的默认格式。但是你可以指定 .RAR 或 .ZIP 扩展名来取代默认值。

Answer 4

手头没有delphi给你一个BCB的例子，假设你的生成应用程序的文件夹里面有test.rar的文件,现在把所有pas文件加进去。
 PROCESS_INFORMATION pi;
    STARTUPINFO si;
    ZeroMemory(&si, sizeof(si));
    si.cb = sizeof(STARTUPINFO);
    if(CreateProcess("C:\\Program Files\\WinRAR\\WinRAR.exe","WinRAR a test *.pas",
        NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi))
    {
        WaitForSingleObject(pi.hProcess, INFINITE);
        CloseHandle(pi.hThread);
        CloseHandle(pi.hProcess);
    }
    else
    {
        MessageBox(Handle, "无法启动进程!", "Error", MB_OK);
    }