Cuestión : Cómo colocar regsrv32 DLLs en machi alejado usando el programa de delphi 7

Estoy creando una herramienta de la automatización del lanzamiento para mi despliegue del proyecto. Esta herramienta puede poder lanzar el proyecto a partir de una máquina a la máquina remota del mulitple. Consiguiendo el respaldo que aplica los nuevos archivos, colocando el DLL en grupo todo de COM+. Ahora quiero incluir la funcionalidad a regisitering algún DLL requerido sistema en la sección regsrv32 para cada computadora alejada. puede usted ayudarme a colocar el DLL adentro a la máquina remota usando Delphi Program.

Here el código para colocar DLL regsrv32 en machine.

Procedure TDeployAssistant.Registerwindowdll (WinPath: Secuencia);
type
TRegFunc = función: HResult; stdcall;
var
  ARegFunc : TRegFunc; aHandle del
: Manilla en forma de T;
begin
 try
//  ocxPath := n.ExeName)/> + “Flash.ocx”; aHandle del
: = LoadLibrary (de PChar (WinPath));
si begin
ARegFunc del then
del <> 0 del aHandle: = GetProcAddress (aHandle, “DllRegisterServer ");
si begin
frmDeploy.ExecAndWait (“regsvr32”, “/s” del then
(de ARegFunc) + WinPath); extremo del
;
FreeLibrary (aHandle); extremo del
; except
ShowMessage (formato (“Unable del
para colocar %s”, [WinPath])); extremo del
;

end;
function TfrmDeploy.ExecAndWait (const ExecuteFile, ParamString: secuencia): boleano;
var
  SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar (SEInfo, SizeOf (SEInfo), 0);
SEInfo.cbSize: = SizeOf (TShellExecuteInfo); el
con SEInfo hace el fMask del begin
: = SEE_MASK_NOCLOSEPROCESS;
Wnd: = Application.Handle;
lpFile: = PChar (ExecuteFile); lpParameters del
: = PChar (ParamString); nShow del
: = SW_HIDE; extremo del
;
si repeat
Application.ProcessMessages del begin
del then
de ShellExecuteEx (@SEInfo);
GetExitCodeProcess (SEInfo.hProcess, ExitCode);
hasta (<> STILL_ACTIVE de ExitCode) o Application.Terminated; Resultado del
: =True; resultado otro del end
del
: =False;
end; class= del

Respuesta : Cómo colocar regsrv32 DLLs en machi alejado usando el programa de delphi 7

Si usted quiere ejecutar código en OTRA máquina usted necesita un alejado descasca de una cierta clase. Si usted busca para “ejecutar la máquina remota del código” que usted verá mucha discusión sobre esto.

WMI es otra más plataforma que usted puede enganchar en.

http://blogs.technet.com/b/heyscriptingguy/archive/2005/07/01/how-can-i-launch-two-applications-wait-until-one-program-ends-and-then-close-the-other.aspx