Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-05-2008
afxe afxe is offline
Miembro
 
Registrado: jul 2004
Ubicación: Malaga-España
Posts: 276
Poder: 21
afxe Va por buen camino
ignorar la carga de una libreria en windows 98

Hola. Quizás no haya insistido suficiente en la localización de una respuesta para lo siguiente, a ver si me pueden ayudar: Tengo declarada una llamada a una función externa de la liberia netapi32.dll.
Código Delphi [-]

function NetShareAdd(ServerName: PWideChar; Level: Cardinal; buf: PByte; parm_err: PDWORD): Cardinal; stdcall; external 'netapi32.dll';

El programa funciona correctamente, pero cuando se corre en un ordenador con windows 98 falla, pues esa librería no existe. ¿Hay alguna manera de que ignore la declaración de la función en tiempo de ejecución?

Gracias por su atención.
Responder Con Cita
  #2  
Antiguo 14-05-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 21
cHackAll Va por buen camino
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 hModule: Cardinal;
 NetShareAdd: function(ServerName: PWideChar; Level: Cardinal; buf: PByte; parm_err: PDWORD): Cardinal; stdcall;
begin
 hModule := LoadLibrary('netapi32.dll');
 if LongBool(hModule) then
  begin
   @NetShareAdd := GetProcAddress(hModule, 'NetShareAdd');
   NetShareAdd(nil, ...
  end;
end;
Responder Con Cita
  #3  
Antiguo 15-05-2008
afxe afxe is offline
Miembro
 
Registrado: jul 2004
Ubicación: Malaga-España
Posts: 276
Poder: 21
afxe Va por buen camino
jo! y yo buscando api's extraterrestres...

Gracias, me había ofuscado en buscar alguna directiva de compilación, o alguna función de chequeo de versión de S.O. en la cláusula INITIALIZATE y había dejado de lado lo más obvio... Menos mal que todavía hay algunos conservan la cabeza sobre el cuello.

Saludos.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
No carga librería SSL MaMu Internet 6 28-04-2008 17:14:43
Carga del servidor CoCaInE SQL 3 29-11-2007 14:17:40
carga dinámica de una libreria en linux Robert01 Lazarus, FreePascal, Kylix, etc. 2 06-10-2007 20:43:15
Ignorar las tildes en access ElDioni SQL 0 23-03-2007 15:13:35
Carga de Delphi jmselesan Varios 1 29-07-2003 01:30:58


La franja horaria es GMT +2. Ahora son las 19:51:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi