robie wlasnie sobie programik - taki ala instalator
zrobilem sobie zasob - README RCDATA "Readme.txt" jest w pliku files.rc przerobilem go na files res i dodalem do kodu zrodlowego
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
RichEdit: TRichEdit;
SaveDialog: TSaveDialog;
Button1: TButton;
procedure laduj;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R FILES.RES}
{ TForm1 }
procedure TForm1.laduj;
var
Res : TResourceStream;
begin
if SaveDialog.Execute then
begin
Res := TResourceStream.Create(hInstance, 'README' , 'RCDATA');
try
Res.SaveToFile(SaveDialog.FileName);
finally
res.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
laduj;
end;
end.
i nie wiem dlaczego ale jak klikne na buttona i dam na zapisz to wyskakuje bląd "Resource README not found"
Macie jakies pomysly??
a moze jakis inny sposob ladowania zasobow bo <ort>w ogóle</ort> to chce z zasobow zaladowac plik Readme.txt do rich edit albo memo - ma byc to licencja programu wyswietlana w instalatorze.
z gory dzieki za odpowiedzi @~~