Скачать: CL | DM;

подскажите как добавлять и извлекать ресурсы из EXE файла?   Найти похожие ветки 

← →
Tayfun   (2003-06-17 16:35) [0]

Подскажите пожалуйста как добавить или удалить ресурсы (text, bmp, icon и тд) из EXE файла?

---

← →
JibSkeart ©   (2003-06-17 16:38) [1]

вот пример как вытяунть
из ресурсной Dll картинки ...
unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hInst : THandle;
Btm1 : TBitmap;
Btm2 : TBitmap;
Btm3 : TBitmap;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hInst := LoadLibrary("MyDll.dll");
Btm1 := TBitmap.Create; Btm1.LoadFromResourceName(hInst, "func0001");
Btm2 := TBitmap.Create; Btm2.LoadFromResourceName(hInst, "func0002");
Btm3 := TBitmap.Create; Btm3.LoadFromResourceName(hInst, "func0003");
FreeLibrary(hInst);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.CopyRect(Rect(0,0,250,50), Btm1.Canvas, Rect(0,0,250,50));
Canvas.CopyRect(Rect(0,60,250,110), Btm2.Canvas, Rect(0,0,250,50));
Canvas.CopyRect(Rect(0,120,250,170), Btm3.Canvas, Rect(0,0,250,50));
end;

end.

---

← →
Anatoly Podgoretsky ©   (2003-06-17 16:42) [2]

UpdateResource

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c