Forum: Object-Pascal / Delphi-Language
Delphi
by blackdrake,
23. Aug 2003
Hallo. Ich hab jetzt folgendes:
procedure TForm1.Button1Click(Sender: TObject);
var
Lib: Integer;
begin
Lib := LoadLibraryEx('Ressource.dll', 0, LOAD_LIBRARY_AS_DATAFILE);
if Lib <> 0 then
try
Image1.Picture.Bitmap.LoadFromResourceName(Lib, MakeIntResource(222));
Forum: Object-Pascal / Delphi-Language
Delphi
by blackdrake,
22. Aug 2003
Hallo. Ich hab das jetzt so:
procedure TForm1.Button1Click(Sender: TObject);
var
Lib: Integer;
begin
Lib := LoadLibraryEx('Ressource.dll', 0, LOAD_LIBRARY_AS_DATAFILE);
if Lib <> 0 then
try
Image1.Picture.Bitmap.LoadFromResourceName(Lib, 'TEST.BMP');