Question : Comment enregistrer regsrv32 DLLs dans le machi à distance en employant le programme de Delphes 7

Je crée un outil d'automation de dégagement pour mon déploiement de projet. Cet outil peut pouvoir libérer le projet d'une machine à la machine distante de mulitple. Obtenant le support appliquant les nouveaux dossiers, enregistrant tout le DLL dans de COM+ le groupe. Maintenant je veux inclure la fonctionnalité à regisitering un certain DLL prié par système dans la section regsrv32 pour chaque ordinateur à distance. pouvez vous m'aider à enregistrer le DLL dedans à la machine distante en employant Delphes Program.

Here le code pour enregistrer DLL regsrv32 dans machine.

Procedure TDeployAssistant.Registerwindowdll (WinPath : Corde) ;
type
TRegFunc = fonction : HResult ; stdcall ;
var
  ARegFunc : TRegFunc ; aHandle du
: Poignée en T ;
begin
 try
//  ocxPath := n.ExeName)/> + « Flash.ocx » ; aHandle du
: = LoadLibrary (de PChar (WinPath)) ;
si begin
ARegFunc du then
du <> 0 d'aHandle : = GetProcAddress (aHandle, « DllRegisterServer ") ;
si begin
(d'ARegFunc)/> frmDeploy.ExecAndWait (« regsvr32 », « /s » + WinPath) ; extrémité du
;
FreeLibrary (aHandle) ; extrémité du
; except
ShowMessage (format (« Unable du
pour enregistrer %s », [WinPath])); extrémité du
;

end ;
function TfrmDeploy.ExecAndWait (const ExecuteFile, ParamString : corde) : booléen ;
var
  SEInfo: TShellExecuteInfo ;
ExitCode : DWORD ;
begin
FillChar (SEInfo, SizeOf (SEInfo), 0) ;
SEInfo.cbSize : = SizeOf (TShellExecuteInfo) ; le
avec SEInfo font le fMask du begin
: = SEE_MASK_NOCLOSEPROCESS ;
Wnd : = Application.Handle ;
lpFile : = PChar (ExecuteFile) ; lpParameters du
: = PChar (ParamString) ; nShow du
: = SW_HIDE ; extrémité du
;
si repeat
Application.ProcessMessages du begin
du then
de ShellExecuteEx (@SEInfo) ;
GetExitCodeProcess (SEInfo.hProcess, ExitCode) ;
jusqu'à (<> STILL_ACTIVE d'ExitCode) ou Application.Terminated ; Résultat du
: =True ; résultat d'autre de l'end
du
: =False ;
end ; class= de

Réponse : Comment enregistrer regsrv32 DLLs dans le machi à distance en employant le programme de Delphes 7

Si vous voulez exécuter le code sur une AUTRE machine vous avez besoin d'un à distance écossez d'une certaine sorte. Si vous recherchez « exécuter la machine distante de code » que vous verrez beaucoup de discussion à ce sujet.

WMI est encore une autre plate-forme que vous pouvez s'accrocher dans.

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