AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

minifmod.dll in resource?

Ein Thema von quakergod · begonnen am 15. Okt 2004 · letzter Beitrag vom 22. Okt 2004
 
quakergod

Registriert seit: 20. Mär 2003
Ort: NRW
129 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: minifmod.dll in resource?

  Alt 22. Okt 2004, 01:40
ich kriegs absolut net hin

hab jetzt ne neue unit "ResLoad" angelegt, in der "FMOD.pas" verlinkt und das drin gespeichert:

Delphi-Quellcode:
unit ResLoad;

interface

implementation

function putbinresto(binresname: string; path: string): boolean;
var
  ResSize, HG, HI, SizeWritten, hFileWrite: Cardinal;
begin
  result := false;
  //find resource
  HI := FindResource(hInstance, @binresname[1], 'BINRES');
  //if legal handle, go on
  if HI <> 0 then
  begin
    //load resource and check the handle
    HG := LoadResource(hInstance, HI);
    if HG <> 0 then
    begin
      //check resource size (needed to copy a block of data)
      ResSize := SizeOfResource(hInstance, HI);
      //create the file
      hFileWrite := CreateFile(@path[1], GENERIC_READ or GENERIC_WRITE,
        FILE_SHARE_READ or FILE_SHARE_WRITE, nil, CREATE_ALWAYS,
        FILE_ATTRIBUTE_ARCHIVE, 0);
      //if succeeded ...
      if hFileWrite <> INVALID_HANDLE_VALUE then
      try
        //write to it
        result := (WriteFile(hFileWrite, LockResource(HG)^, ResSize,
          SizeWritten, nil) and (SizeWritten = ResSize));
      finally
        //close file
        CloseHandle(hFileWrite);
      end;
    end;
  end;
end;

end.


bekomme aber ganz viele fehlermeldungen:

Code:
[Fehler] ResLoad.pas(13): Undefinierter Bezeichner: 'FindResource'
[Fehler] ResLoad.pas(18): Undefinierter Bezeichner: 'LoadResource'
[Fehler] ResLoad.pas(22): Undefinierter Bezeichner: 'SizeOfResource'
[Fehler] ResLoad.pas(24): Undefinierter Bezeichner: 'CreateFile'
[Fehler] ResLoad.pas(24): Undefinierter Bezeichner: 'GENERIC_READ'
[Fehler] ResLoad.pas(24): Undefinierter Bezeichner: 'GENERIC_WRITE'
[Warnung] ResLoad.pas(24): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert
[Fehler] ResLoad.pas(25): Undefinierter Bezeichner: 'FILE_SHARE_READ'
[Fehler] ResLoad.pas(25): Undefinierter Bezeichner: 'FILE_SHARE_WRITE'
[Warnung] ResLoad.pas(25): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert
[Fehler] ResLoad.pas(26): Undefinierter Bezeichner: 'FILE_ATTRIBUTE_ARCHIVE'
[Fehler] ResLoad.pas(28): Undefinierter Bezeichner: 'INVALID_HANDLE_VALUE'
[Warnung] ResLoad.pas(28): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert
[Fehler] ResLoad.pas(31): Undefinierter Bezeichner: 'WriteFile'
[Fehler] ResLoad.pas(31): Undefinierter Bezeichner: 'LockResource'
[Fehler] ResLoad.pas(31): Zeigertyp erwartet
[Fehler] ResLoad.pas(32): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] ResLoad.pas(35): Undefinierter Bezeichner: 'CloseHandle'
[Fataler Fehler] FMOD.pas(11): Verwendete Unit 'ResLoad.pas' kann nicht compiliert werden

ich komm da echt nicht weiter, könnt ihr mir helfen?
I love Delphi-Praxis !
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz