Hallo Du!
Ich habe follgendes Problem:
Ich habe eine EXE Datei, sowie eine externe DLL Datei.
DLL Code:
library DLLProject1;
uses
SysUtils,
Classes;
var
F1 : TextFile;
{$R *.RES}
procedure Failure(); {Name der Procedure}
begin
Assign (F1, ‚C:\Hallo.txt‘); {Erstellt die Datei C:\Hallo.txt}
Rewrite (F1);
Writeln(F1, ‚Haiiooo!‘);
CloseFile(F1)
end;
end.
sowie eine EXE Datei.
EXE Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
xxxxxxxxxxx{Procedure aufruf aus der DLL Datei (DLLProject1) Wie?}
end;
end.
Nun möchte ich die Procedure Failure aus der DLL Datei bei der Stelle xxxxxxxxxxx Ausführen. Wie sieht der Programmcode aus?
Bersten Dank für Deine Antwort.
Mit Besten Grüssen
Sebastian