|
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
|
Просмотров:
442
|
Добавил:
SeM
|
Дата:
24.03.2011
|
|
