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;