Quellcode aus einer exe auslesen

[Luckie]

Warum willst du denn das machen?

[Flips]

Also ich sag mal so...
Das ist ein Teil des Original-Codes:

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmMain = class(TForm)
    pnlEins: TPanel;
    pnlZwei: TPanel;
    pnlDrei: TPanel;
    lblWin: TLabel;
    lblLost: TLabel;
    lblTie: TLabel;
    btnStart: TButton;
    btnStop: TButton;
    procedure btnStartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Das ist der Reproduzierte:

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmMain=class(TForm)
    pnlEins: TPanel;
    pnlZwei: TPanel;
    pnlDrei: TPanel;
    lblWin: TLabel;
    lblLost: TLabel;
    lblTie: TLabel;
    btnStart: TButton;
    btnStop: TButton;
    OFFS_0240: N.A.;
    procedure btnStartClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure btnStopClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmMain: TfrmMain;

Also ich find das Programm sehr geil, es baut auch die DFM exakt nach.
Aber du hast schon recht, das meiste bringt dir nichts :-), ich finde es aber trotzdem sehr interessant.

@Luckie: Das ist eine berechtigte Frage.

[Luckie]

Das Formular liegt als Ressource in der Exe, da braucht man nichts "nachzubauen".

[Flips]

Ok das wusste ich nicht, sry :oops:

[Assertor]

Naja, das

Zitat:

Zitat von Flips

Also ich find das Programm sehr geil, es baut auch die DFM exakt nach.

Ist das so schwer, die seh ich doch schon mit dem ResHacker so.

Und mit verwendeten Units würst Du bei meinen Programmen nichts, da ist keine PackageInfo mehr als Resource an der Exe.

[offtopic]Zusätzlich kann man auch DCVAL weglassen, muß dann aber die RTL und einmal eine DB Unit patchen. Da gibt es doch ein schönes Tutorial von Asserbad dazu.

Wer übrigens denkt, die DCVAL enthält seinen Compiler: Nur sehr grob richtig. Mein DCVAL Code ist exakt der gleiche wie bei Delphi 3 Enterprise oder so. Da ist nichts mit weiteren Infos.[/offtopic]

Zitat:

Zitat von Flips

[*]Das Formular verändern (!) kann (nur die Speicherung der EXE ist noch nicht implementiert)

Wie gesagt, den guten alten ResHacker mal auf eine Delphi Exe angewandt. Da geht das Speichern geänderter DFM Resourcen. Und wenn ResHacker meckert, die Datei ist ge-upx-ed oder ähnliches, einfach entpacken oder dumpen...

Gruß Assertor

[Mist, Luckie: roter Kasten ;)]