Einzelnen Beitrag anzeigen

Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Ressourcen aus anderen Pe Dateien auslesen

  Alt 18. Sep 2008, 12:47
Also wenn ich das jetzt so mache wie du gesagt hast sieht das oben in der pas Datei so aus:
Delphi-Quellcode:
unit Unit3;

interface



type
  TResourceName = record
    ResType: PChar;
    ResTypeName: string;
  end;

var
  // Mappingliste von Typen zu Namen
  ResourceTypeDefaultNames: array[0..20] of TResourceName =
   (
    (ResType: RT_ACCELERATOR; ResTypeName: 'RT_ACCELERATOR'; ),
    (ResType: RT_ANICURSOR; ResTypeName: 'RT_ANICURSOR'; ),
    (ResType: RT_ANIICON; ResTypeName: 'RT_ANIICON'; ),
    (ResType: RT_BITMAP; ResTypeName: 'RT_BITMAP'; ),
    (ResType: RT_CURSOR; ResTypeName: 'RT_CURSOR'; ),
    (ResType: RT_DIALOG; ResTypeName: 'RT_DIALOG'; ),
    (ResType: RT_DLGINCLUDE; ResTypeName: 'RT_DLGINCLUDE'; ),
    (ResType: RT_FONT; ResTypeName: 'RT_FONT'; ),
    (ResType: RT_FONTDIR; ResTypeName: 'RT_FONTDIR'; ),
    (ResType: RT_GROUP_CURSOR; ResTypeName: 'RT_GROUP_CURSOR'; ),
    (ResType: RT_GROUP_ICON; ResTypeName: 'RT_GROUP_ICON'; ),
    (ResType: RT_HTML; ResTypeName: 'RT_HTML'; ),
    (ResType: RT_ICON; ResTypeName: 'RT_ICON'; ),
    (ResType: RT_MANIFEST; ResTypeName: 'RT_MANIFEST'; ),
    (ResType: RT_MENU; ResTypeName: 'RT_MENU'; ),
    (ResType: RT_MESSAGETABLE; ResTypeName: 'RT_MESSAGETABLE'; ),
    (ResType: RT_PLUGPLAY; ResTypeName: 'RT_PLUGPLAY'; ),
    (ResType: RT_RCDATA; ResTypeName: 'RT_RCDATA'; ),
    (ResType: RT_STRING; ResTypeName: 'RT_STRING'; ),
    (ResType: RT_VERSION; ResTypeName: 'RT_VERSION'; ),
    (ResType: RT_VXD; ResTypeName: 'RT_VXD'; )
   );

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi, StdCtrls, ExtCtrls, Registry, XPMan, ComCtrls, signed, md5,
  DFFileInfo, AppEvnts, DECHash, DECUtil, DECFmt;

type
  TForm3 = class(TForm)
//bla bla bla
 private

  public

  end;

var
  Form3: TForm3;


 
  end;

Dann kommen folgende Fehler:
[DCC Fehler] Unit3.pas(16): E2003 Undefinierter Bezeichner: 'RT_ACCELERATOR'
[DCC Fehler] Unit3.pas(16): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(17): E2003 Undefinierter Bezeichner: 'RT_ANICURSOR'
[DCC Fehler] Unit3.pas(17): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(18): E2003 Undefinierter Bezeichner: 'RT_ANIICON'
[DCC Fehler] Unit3.pas(19): E2003 Undefinierter Bezeichner: 'RT_BITMAP'
[DCC Fehler] Unit3.pas(20): E2003 Undefinierter Bezeichner: 'RT_CURSOR'
[DCC Fehler] Unit3.pas(21): E2003 Undefinierter Bezeichner: 'RT_DIALOG'
[DCC Fehler] Unit3.pas(22): E2003 Undefinierter Bezeichner: 'RT_DLGINCLUDE'
[DCC Fehler] Unit3.pas(22): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(23): E2003 Undefinierter Bezeichner: 'RT_FONT'
[DCC Fehler] Unit3.pas(24): E2003 Undefinierter Bezeichner: 'RT_FONTDIR'
[DCC Fehler] Unit3.pas(25): E2003 Undefinierter Bezeichner: 'RT_GROUP_CURSOR'
[DCC Fehler] Unit3.pas(25): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(26): E2003 Undefinierter Bezeichner: 'RT_GROUP_ICON'
[DCC Fehler] Unit3.pas(26): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(27): E2003 Undefinierter Bezeichner: 'RT_HTML'
[DCC Fehler] Unit3.pas(28): E2003 Undefinierter Bezeichner: 'RT_ICON'
[DCC Fehler] Unit3.pas(29): E2003 Undefinierter Bezeichner: 'RT_MANIFEST'
[DCC Fehler] Unit3.pas(29): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(30): E2003 Undefinierter Bezeichner: 'RT_MENU'
[DCC Fehler] Unit3.pas(31): E2003 Undefinierter Bezeichner: 'RT_MESSAGETABLE'
[DCC Fehler] Unit3.pas(31): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(32): E2003 Undefinierter Bezeichner: 'RT_PLUGPLAY'
[DCC Fehler] Unit3.pas(32): E2026 Konstantenausdruck erwartet
[DCC Fehler] Unit3.pas(33): E2003 Undefinierter Bezeichner: 'RT_RCDATA'
[DCC Fehler] Unit3.pas(34): E2003 Undefinierter Bezeichner: 'RT_STRING'
[DCC Fehler] Unit3.pas(35): E2003 Undefinierter Bezeichner: 'RT_VERSION'
[DCC Fehler] Unit3.pas(36): E2003 Undefinierter Bezeichner: 'RT_VXD'
[DCC Fehler] Unit3.pas(39): E2029 Deklaration erwartet, aber 'USES' gefunden
[DCC Fehler] Unit3.pas(45): E2003 Undefinierter Bezeichner: 'TForm'
[DCC Fehler] Unit3.pas(46): E2003 Undefinierter Bezeichner: 'TEdit'
[DCC Fehler] Unit3.pas(47): E2003 Undefinierter Bezeichner: 'TButton'
[DCC Fehler] Unit3.pas(48): E2003 Undefinierter Bezeichner: 'TXPManifest'
[DCC Fehler] Unit3.pas(49): E2003 Undefinierter Bezeichner: 'TOpenDialog'
[DCC Fehler] Unit3.pas(50): E2003 Undefinierter Bezeichner: 'TDFFileInfo'
[DCC Fehler] Unit3.pas(51): E2003 Undefinierter Bezeichner: 'TTimer'
[DCC Fehler] Unit3.pas(52): E2003 Undefinierter Bezeichner: 'TApplicationEvents'
[DCC Fehler] Unit3.pas(53): E2003 Undefinierter Bezeichner: 'TLabel'
[DCC Fehler] Unit3.pas(55): E2003 Undefinierter Bezeichner: 'TPageControl'
[DCC Fehler] Unit3.pas(56): E2003 Undefinierter Bezeichner: 'TTabSheet'
[DCC Fehler] Unit3.pas(57): E2003 Undefinierter Bezeichner: 'TImage'
[DCC Fehler] Unit3.pas(90): E2003 Undefinierter Bezeichner: 'TDateTimePicker'
[DCC Fehler] Unit3.pas(94): E2003 Undefinierter Bezeichner: 'TCheckBox'
[DCC Fehler] Unit3.pas(97): E2003 Undefinierter Bezeichner: 'TMemo'
[DCC Fehler] Unit3.pas(139): E2003 Undefinierter Bezeichner: 'Exception'
[DCC Fehler] Unit3.pas(141): E2003 Undefinierter Bezeichner: 'TCloseAction'
[DCC Fehler] Unit3.pas(147): E2003 Undefinierter Bezeichner: 'TWMDropFiles'
[DCC Fehler] Unit3.pas(147): E2003 Undefinierter Bezeichner: 'WM_DROPFILES'
[DCC Fehler] Unit3.pas(147): E2139 Ungültiger Botschaftsmethoden-Index
[DCC Fehler] Unit3.pas(163): E2003 Undefinierter Bezeichner: 'TMemoryStream'
[DCC Fehler] Unit3.pas(169): E2004 Bezeichner redefiniert: 'TResourceName'
[DCC Fehler] Unit1.pas(241): E2003 Undefinierter Bezeichner: 'Close'
[DCC Fehler] Unit3.pas(178): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat