Pergunta : Como registar regsrv32 DLLs no machi remoto usando o programa de delphi 7

Eu estou criando uma ferramenta da automatização da liberação para minha distribuição do projeto. Esta ferramenta pode poder liberar o projeto de uma máquina à máquina remota do mulitple. Começ o apoio que aplica as limas novas, registando todo o DLL de COM+ no grupo. Agora eu quero incluir a funcionalidade a regisitering algum DLL exigido sistema na seção regsrv32 para cada computador remoto. pode você ajudar-me a registar dentro o DLL à máquina remota usando Delphi Program.

Here o código para registar DLL regsrv32 em machine.

Procedure TDeployAssistant.Registerwindowdll (WinPath: Corda);
type
TRegFunc = função: HResult; stdcall;
var
  ARegFunc : TRegFunc; aHandle do
: THandle;
begin
 try
//  ocxPath := n.ExeName)/> + “Flash.ocx”; aHandle do
: = LoadLibrary ( de PChar (WinPath));
se begin
ARegFunc do then
do <> 0 do aHandle: = GetProcAddress (aHandle, “DllRegisterServer ");
se begin
frmDeploy.ExecAndWait (“regsvr32”, “/s” do then
(de ARegFunc) + WinPath); extremidade do
;
FreeLibrary (aHandle); extremidade do
; except
ShowMessage do
(formato (“Unable para registar %s”, [WinPath])); extremidade do
;

end;
function TfrmDeploy.ExecAndWait (const ExecuteFile, ParamString: corda): bôoleano;
var
  SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar (SEInfo, SizeOf (SEInfo), 0);
SEInfo.cbSize: = SizeOf (TShellExecuteInfo); o
com SEInfo faz o fMask do begin
: = SEE_MASK_NOCLOSEPROCESS;
Wnd: = Application.Handle;
lpFile: = PChar (ExecuteFile); lpParameters do
: = PChar (ParamString); nShow do
: = SW_HIDE; extremidade do
;
se repeat
Application.ProcessMessages do begin
do then
de ShellExecuteEx (@SEInfo);
GetExitCodeProcess (SEInfo.hProcess, ExitCode);
até (<> STILL_ATIVE de ExitCode) ou Application.Terminated; Resultado do
: =True; resultado outro do end
do
: =False;
end; class= do

Resposta : Como registar regsrv32 DLLs no machi remoto usando o programa de delphi 7

Se você quer executar o código em uma OUTRA máquina você precisa um remoto descasca de alguma sorte. Se você procurara por “executar a máquina remota do código” que você verá muita discussão sobre este.

WMI é contudo uma outra plataforma que você pode enganchar em.

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