Einzelnen Beitrag anzeigen

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