|
|
 | |  |
| Главная » 2011 » Март » 24
|
var
hLib: Handle;
rsDrivers: TResourceStream;
begin
hLib:= LoadLibrary('MyDll.dll');
rsDrivers:= TResourceStream.Create(hLib, 'testResource', RT_RCData);
rsDrivers.SaveToFile('C:\Test.txt');
rsDrivers.Free;
FreeLibrary(hLib);
end;
Категория:
Delphi
|
Просмотров:
587
|
Добавил:
SeM
|
Дата:
24.03.2011
|
|
|
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
|
Просмотров:
466
|
Добавил:
SeM
|
Дата:
24.03.2011
|
| |
| |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
