[Delphi] zasoby i OnMouseOver

MrSquell

2002-12-15 15:15

MrSquell2002-12-15 15:15

Rejestracja:ponad 22 lata
Ostatnio:10 miesięcy

Jak odczytywać z zasobów...chcę zrobić instalatora i potrzebuję takiej funkcji...

I jeszcze jedno jak zrobić aby po najechaniu na obrazek zmienił się on na inny, a po zjechaniu z obraska powrócił do poprzedniego - oczywiście pliki graficzne będą w zasobach i najlepiej w oddzielnym dll-ku...

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)

RW11

2009-12-28 18:36

RW112009-12-28 18:36

Rejestracja:ponad 21 lat
Ostatnio:około 6 lat
Postów:65

Odczyt z zasobów :

Kopiuj

var
plik:file;
res:integer;
c:integer;
begin

if not fileexists(extractfilepath(application.ExeName)+'sqlite3.dll') then
begin
assignfile(plik,extractfilepath(application.ExeName)+'sqlite3.dll');
rewrite(plik,1);
res:=FindResource(hInstance, 'SQLITE', RT_RCDATA);
BlockWrite(plik, LockResource(LoadResource(hInstance, res))^, SizeofResource(hinstance, res));
closefile(plik);
end;

olesio

2009-12-28 18:43

olesio2009-12-28 18:43

Rejestracja:około 17 lat
Ostatnio:około 3 lata
Lokalizacja:Szczecin
Postów:4191

A nie prościej tak:

Kopiuj

var
  ResStream : TResourceStream;
begin
  ResStream := TResourceStream.Create(Hinstance, 'nazwa_zasobu', RT_RCDATA);
  ResStream.SaveToFile('nazwa_pliku');
  ResStream.Free;
end;