Registriert seit: 18. Mär 2007
Ort: Borland
556 Beiträge
Delphi 7 Enterprise
|
Re: DLL Form in Main Programm anzeigen?
24. Mai 2007, 22:08
Delphi-Quellcode:
unit Unit1;
interface
uses windows;
type
TSummenFunktion = function(zahl1, zahl2: integer): integer; stdcall;
function addieren(zahl1, zahl2: integer): integer;
implementation
function addieren(zahl1, zahl2: integer): integer;
var SummenFunktion: TSummenFunktion;
Handle: THandle;
begin
Handle:=LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+' rechnen.dll'));
if Handle <> 0 then begin
@SummenFunktion := GetProcAddress( Handle, ' addiere');
if @SummenFunktion <> nil then begin
result:=SummenFunktion(zahl1, zahl2);
end;
FreeLibrary( Handle);
end;
end;
end.
?? Verstehe das nicht. Kann mir bitte einer helfen
Du derefernzierst p2 einmal und weißt die Adresse von i zu. Das heißt p2 (also der Zeiger auf einen Zeiger) zeigt auf den Zeiger p1 welchen du so auf i zeigen lässt.
|