DLL Zugriff

[brechi]

in die dll:

Delphi-Quellcode:

uses windows, sysutils, <unit für listbox>;

var flist: TListbox = nil;

procedure InitListBox(var l: TlistBox); stdcall;
begin
  flist := l;
end;


procedure hierfueheichwashinzu;
begin
  if flist <> nil then
    flist.add('hallo');
end;

export InitListBox;

in exe:

Delphi-Quellcode:

var initListBox: procedure (var l: TlistBox); stdcall;

  oncreate:
  
h := Loadlibrary('mydll.dll');
@initlistbox := GetProcaddress(h,'InitListBox');
inilistBox(form1.Listbox1);

danach kann halt von der dll etwas eingefügt werden


Edit: meine fresse kann man nicht einfach das stehen lassen was ich schreibe, warum muss für jedes delphi immer ein pre eingesetzt werden wenn ich nen / vergessen habe