Составил mydata.rc файл,содержание:
mydata RCDATA "name.exe"
Скомпелировал через windres.exe, получился mydata.res
Прописал в проекте {$R mydata.res}
Далее делаю так
- Код: Выделить всё
procedure TForm1.Button2Click(Sender: TObject);
var
S: TResourceStream;
F: TFileStream;
begin
S := TResourceStream.Create(HInstance,'mydata','RT_RCDATA');
try
// create a file mydata.dat in the application directory
F := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'name.exe', fmCreate);
try
F.CopyFrom(S, S.Size);
finally
F.Free;
end;
finally
S.Free;
end;
end;
Компилируется успешно, но при выполнении процедуры выдает ошибку
Resource "mydata" not found.
Помогите разобраться.
Добавлено спустя 51 минуту 44 секунды:
Решение найдено
просто в rc файле изменил имена
mydata f1 "name.exe"
затем изменил
- Код: Выделить всё
S := TResourceStream.Create(HInstance,'mydata',pChar('f1'));
Прошу прощения, зря воду баламутил
