Ver Mensaje Individual
  #15  
Antiguo 04-08-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Te han dado unas respuestas muy buenas, pero parece que nadie quiere explicarte lo que tu preguntas Aun así has tenido mucha paciencia, así que vamos a ver que podemos hacer.

Copiar todas las DLL de un directorio a otro con CopyFile:
Código Delphi [-]
procedure CopiarTodo(Origen, Destino, Ext: string);
var
  SR: TSearchRec;
begin
  if FindFirst(Origen + '*' + Ext, faArchive, SR) = 0 then
    repeat
      CopyFile(PChar(Origen + SR.Name), PChar(Destino + SR.Name), FALSE);
    until FindNext(SR) <> 0;
  FindClose(SR);
end;

// Para usarla
CopiarTodo('C:\SISGV\LIBRERIAS\','C:\WINDOWS\SYSTEM\','.dll');

En cuanto a lo de ejecutar un programa con Winexec:
Código Delphi [-]
  WinExec(PChar('C:\SISGV\MYSQL\setup.exe'),sw_show);
Responder Con Cita