Questione : Come registrare regsrv32 DLLs in machi a distanza usando programma di Delfi 7

Sto generando un attrezzo di automazione del rilascio per il mio schieramento di progetto. Questo attrezzo può potere liberare il progetto da una macchina alla macchina a distanza del mulitple. Ottenendo sostegno che applica le nuove lime, registranti il DLL nel gruppo tutto di COM+. Ora voglio comprendere la funzionalità a regisitering un certo DLL richiesto sistema nella sezione regsrv32 per ogni calcolatore a distanza. potete aiutarli a registrare il DLL dentro alla macchina a distanza utilizzando Delfi Program.

Here il codice per il registro del DLL regsrv32 in machine.

Procedure TDeployAssistant.Registerwindowdll (WinPath: Stringa);
type
TRegFunc = funzione: HResult; stdcall;
var
  ARegFunc : TRegFunc; aHandle del
: Manico a t;
begin
 try
//  ocxPath := n.ExeName)/> + “Flash.ocx„; aHandle del
: = LoadLibrary ( di PChar (WinPath));
se begin
ARegFunc del then
del <> 0 del aHandle: = GetProcAddress (aHandle, “DllRegisterServer ");
se begin
frmDeploy.ExecAndWait (“regsvr32„, “/s„ del then
(di ARegFunc) + WinPath); estremità del
;
FreeLibrary (aHandle); estremità del
; except
ShowMessage (disposizione (“Unable del
per registrare %s„, [WinPath])); estremità del
;

end;
function TfrmDeploy.ExecAndWait (const ExecuteFile, ParamString: stringa): booleano;
var
  SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar (SEInfo, SizeOf (SEInfo), 0);
SEInfo.cbSize: = SizeOf (TShellExecuteInfo); il
con SEInfo fa il fMask del begin
: = SEE_MASK_NOCLOSEPROCESS;
Wnd: = Application.Handle;
lpFile: = PChar (ExecuteFile); lpParameters del
: = PChar (ParamString); nShow del
: = SW_HIDE; estremità del
;
se repeat
Application.ProcessMessages del begin
del then
di ShellExecuteEx (@SEInfo);
GetExitCodeProcess (SEInfo.hProcess, ExitCode);
fino a (<> STILL_ACTIVE di ExitCode) o Application.Terminated; Risultato del
: =True; risultato altro del end
del
: =False;
end; class= del

Risposta : Come registrare regsrv32 DLLs in machi a distanza usando programma di Delfi 7

Se volete eseguire il codice su un'ALTRA macchina avete bisogno di un a distanza sgranate di una certa specie. Se cercate “eseguire la macchina a distanza di codice„ che vederete molta discussione circa questo.

WMI è ancora un altra piattaforma che potete agganciare in.

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