軟體 - UnZaR：讓我們在FTPRush中自由解壓

[psac]

UnZaR：讓我們在FTPRush中自由解壓


如果經常使用FTPRush下載，一定會遇到很多zip或rar文件，筆者經常下載完就解開壓縮包裝，雖說FTPRush中可以通過視窗檔案總管表菜單呼叫WinRAR或WinZIP來進行解壓，但多一步操作，顯得很不方便，能不能將解壓功能整合在FTPRush中並利用快捷鍵操作呢？經過一番摸索，筆者終於將此功能實現。

FTPRush最強大的功能就是腳本功能，利用FTPRush的腳本設計器，我們可以輕易實現解壓rar或zip文件，考慮到這兩種文件最常見，我們只做解壓rar或zip文件。下面筆者說一說思路和具體實現方法：

具體思路就是在FTPRush中呼叫命令行程式實現解壓功能。FTPRush中自帶一個免費的解壓軟件unrar.exe，我們可以利用它來解壓rar玩，除此之外，我們還需要一個解壓zip文件的命令行小工具unzip.exe，可以從http://ftp.info-zip.org/pub/infozip/...��目錄下。

我們還要考慮到需要能夠自動識別rar或zip文件而呼叫不同的程式來完成解壓，還應該在FTPRush本機視窗的滑鼠右鍵表菜單裡新增一個命令，考慮到鍵盤操作更加快捷，還要加上快捷鍵操作，這裡筆者選用大家都熟悉的Total Commander的解壓快捷鍵Alt+F9。設計完成後，我們只要在FTPRush本機視窗中選中一個rar或zip文件，然後按一下Alt+F9，文件就會被解壓出來，是不是很cool？當然你也可以用右鍵表菜單來完成這個功能。

1、首先打開FTPRush的腳本設計視窗，預定會載入FtpRush.pac這個文件，我們要做的就是在這裡面新增上我們的代碼。
FtpRush.pac裡面已經內含一些函數，我們找到procedure RefreshAndFXPManyTimes(Sender)這個函數，在它的結尾，即這段代碼緊跟著的兩個end後面就是我們要新增代碼的地方。另起一行，代碼如下：

代碼:
procedure UnZaR(Sender); //unpack zip or rar archive
begin
RushApp.UI.Selection.Prepare;
if RushApp.UI.Selection.IsLocalSide and (RushApp.UI.Selection.Count=1) then begin
FileFullPath := RushApp.UI.Selection.Items[0].FullPath;
FileName := RushApp.UI.Selection.Items[0].name;
FileLocalPath := RushApp.UI.Selection.LocalPath;
FileName_noEXT := copy(FileName,1,length(FileName)-4);
EXT:= copy(FileName,length(FileName)-2,length(FileName));
if strlower(EXT) = 'rar' then
ShellExecuteCommand('unrar.exe','unrar x -ad '+'"'+FileFullPath+'"',FileLocalPath,'');
else
if strlower(EXT) = 'zip' then
ShellExecuteCommand('unzip.exe','-d "'+FileName_noEXT +'" ' +'"'+FileFullPath+'"',FileLocalPath,'');
end else
ShowMessage('Please select one zip or rar file on LocalSide!');
end;


、上面這段函數就是實現自動識別zip或rar文件並呼叫解壓程式的功能，等於是執行能力已經具有，下面我們還要考慮呼叫，即將此功能整合FTPRush本機視窗的右鍵表菜單中，並配上酷酷的快捷鍵。向下繼續查找procedure OnSwitchlayout(Sender)函數，在第一個begin後面另起一行，新增上我們的代碼:

RushApp.UI.Menu.Local.Add('','UnZaR',5,'Alt+F9').OnClick :='UnZaR';//add menu


3、至此，代碼已經寫好，下面將會將代碼編譯並將其載入到FTPRush中。
打開表菜單 「文件」、「儲存」將我們的代碼儲存後，打開「除錯」、「編譯」，如果代碼輸入沒錯，會在腳本設計視窗下面的訊息欄裡提示「編譯成功」，若有錯的話，一定是代碼某些地方輸入錯誤了。編譯成功後，再次打開「文件」、「載入FtpRush.pac」，至此，我們大功告成。