procedure TForm1.ExtractResourse(const AResName, ANewName: string); var rsDrivers: TResourceStream; begin rsDrivers:= TResourceStream.Create(HInstance, AResName, RT_RCData); rsDrivers.SaveToFile(ANewName); rsDrivers.Free; end;
procedure TForm1.bbOklClick(Sender: TObject); begin ExtractResourse('TestResource', 'C:\TestFile.exe'); end; end;
Категория: Delphi |
Просмотров: 422 |
Добавил: SeM |
Дата: 24.03.2011
|
|