Thema
:
Delphi
DLL öffnen, deren Name ich nicht weiß
Einzelnen Beitrag anzeigen
scp
Registriert seit: 31. Okt 2003
1.120 Beiträge
Delphi 7 Personal
#
10
Re: DLL öffnen, deren Name ich nicht weiß
27. Jan 2004, 14:03
Vorher:
markieren
Delphi-Quellcode:
const
dllname = '
irgendeine.dll
';
function
EineFunc(EinParam : Cardinal) : longbool;
stdcall
;
external
dllname;
Nachher:
zusammenfalten
·
markieren
Delphi-Quellcode:
type
TEineFunc =
function
(EinParam : Cardinal) : longbool;
stdcall
;
var
EineFunc : TEineFunc;
var
dllname:
string
;
dllhand: thandle;
nummer: integer;
procedure
LoadDLL;
begin
dllname := '
irgendeine
' + IntToStr(nummer) + '
.dll
';
dllhand := loadlibrary(PChar(dllname));
try
if
dllhand <> 0
then
begin
EineFunc := GetProcAddress(dllhand, '
EineFunc
');
end
;
finally
freelibrary(dllhand);
end
;
end
;
Zitat
scp
Öffentliches Profil ansehen
Mehr Beiträge von scp finden