Sorry,
das Tutorial sagt mir nichts wirklich neues
und hat auch nichts mit dem Thema zu tun.
Ich binde das
DLL Project2.dll so ein
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,Unit2;
type
TForm1 =
class(TForm)
UpDown1: TUpDown;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
Function GetName:
string;
external '
Project2.dll';
var
Form1: TForm1;
bar:Tscrollbar;
implementation
{$R *.dfm}
//{$R ADCDesign.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
bar := tscrollbar.Create(self);
bar.Parent := self;
// if LoadNewResourceModule(WindowsXP) <> 0 then
// ReinitializeForms;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.show;
caption := Getname;
end;
end]
So sieht die
DLL Aus die ich mit dem XPMan einlinke
Ich glaube sie wird erst geladen wenn man,
eine ihrer Funktionen zum ersten mal benutzt.
Leider erhalte ich dann(an der stelle Getname) eine AccessViolation
Delphi-Quellcode:
library Project2;
uses
SysUtils,
Classes,
XPMan;
{$R *.res}
Function GetName:String;stdcall;
begin
result := 'Project2';
end;
exports
Getname;
begin
end.
