DELPHI RES操作

MyRAR RAR Mir200.rar

资源名字 资源类型 文件名字
 
brcc32 test.rc

procedure ResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName);
Res.Free;
end;

procedure TForm8.Button1Click(Sender: TObject);
Var
WinRarStr:string;
I:integer;
begin
MusicResToFile('MyRAR', 'RAR', 'test.rar');
DELAY(100);
WinRarStr := 'x -p123456789 -r -y ' + ExtractFilePath(Application.ExeName)+'test.rar ' + '"'+ExtractFilePath(Application.ExeName)+'"';
i:= ShellExecute(Application.Handle,'open','WINRAR',pchar(WinRarStr),nil,SW_HIDE);
DELAY(100);
//deletefile(ExtractFilePath(Application.ExeName)+'test.rar');
//showmessage(inttostr(i));
end;