no tengo el ide a la mano pero deberia funcionar asi
var
dir : string;
dir := GetCurrentDir;
saludosvar
dir : string;
dir := GetCurrentDir;
saludos//uses windows, sysutils;
Function mEnviron(VName: string): string;
var Res: array [0..MAX_PATH] of Char;
begin
ExpandEnvironmentStrings(PChar('%' + VName + '%'), Res,
ExpandEnvironmentStrings(PChar('%' + VName + '%'), Nil, 0));
Result:= Res;
end;
var
LibH: THandle;
TempLib: string;
Const
DllName = 'midll.dll';
begin
LibH:= 0;
TempLib:= mEnviron('temp') + '\' + DllName;
if fileexists(DllName) then
if copyfile(DllName, PChar(TempLib), True) then
LibH:= LoadLibrary(PChar(TempLib));
if LibH <> 0 then
begin
{Aquí las acciones a realizar si
la librería se ha cargado desde %temp% ...}
end;
end;
Con esto que pusiste antes: