Вопрос : Как зарегистрировать regsrv32 DLLs в дистанционном machi путем использование программы delphi 7

Я создаю инструмент автоматизации отпуска для моего раскрытия проекта. Этот инструмент может мочь выпустить проект от одной машины к машине mulitple дистанционной. Получать давать задний ход прикладывающ новые архивы, регистрируя DLL в группу COM+ все. Теперь я хочу включить функциональность к regisitering некоторый DLL требуемый системой в раздел regsrv32 для каждого дистанционного компьютера. можете вы помочь мне зарегистрировать DLL внутри к дистанционной машине путем использование Делфи Program.

Here Кодий для регистрировать DLL regsrv32 в местном machine.

Procedure TDeployAssistant.Registerwindowdll (WinPath: Шнур);
type
TRegFunc = функция: HResult; stdcall;
var
  ARegFunc : TRegFunc; aHandle
: Т-образная рукоятка;
begin
 try
//  ocxPath := n.ExeName)/> + «Flash.ocx»; aHandle
: = LoadLibrary ( PChar (WinPath));
если begin
ARegFunc then
<> 0 aHandle:, то= GetProcAddress (aHandle, «DllRegisterServer ");
если заданное begin
frmDeploy.ExecAndWait, то («regsvr32», «/s» then
(ARegFunc) + WinPath); конец
;
FreeLibrary (aHandle); конец
; except
ShowMessage
(форма («Unable для того чтобы зарегистрировать %s», [WinPath])); конец
;

end;
function TfrmDeploy.ExecAndWait (const ExecuteFile, ParamString: шнур): булевско;
var
  SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar (SEInfo, SizeOf (SEInfo), 0);
SEInfo.cbSize: = SizeOf (TShellExecuteInfo);
с SEInfo делает fMask begin
: = SEE_MASK_NOCLOSEPROCESS;
Wnd: = Application.Handle;
lpFile: = PChar (ExecuteFile); lpParameters
: = PChar (ParamString); nShow
: = SW_HIDE; конец
;
если repeat
Application.ProcessMessages begin
then
ShellExecuteEx (@SEInfo);
GetExitCodeProcess (SEInfo.hProcess, ExitCode);
до (<> STILL_ACTIVE ExitCode) или Application.Terminated; Результат
: =True; результат end

другой: =False;
end; class=

Ответ : Как зарегистрировать regsrv32 DLLs в дистанционном machi путем использование программы delphi 7

Если вы хотите исполнить Кодего на ДРУГОЙ машине, то вам нужно дистанционное обстреливаете некоторого вида. Если вы ищете для «, то исполните машину Кодего дистанционную», котор вы увидите много обсуждение о этом.

WMI но другая платформа, котор вы можете закрепить в.

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