| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

где находится regsrv?

mixam ©   (2004-07-27 08:07:00) 

Здравствуйте, вопрос такой: как программно узнать путь к виндовой папке где лежит regsrv32.exe? причем код должен находить папку, в зависимости от выбранной операционки.

---

icWasya   (2004-07-27 15:13:00) [1]

нужно то всего две процедуры


procedure RegisterComServer(const DLLName: string);
type
 TRegProc = function: HResult; stdcall;
const
 RegProcName = 'DllRegisterServer'; { Do not localize }
var
 Handle: THandle;
 RegProc: TRegProc;
begin
 Handle := LoadLibrary(PChar(DLLName));
 if Handle <= HINSTANCE_ERROR then Exit;
 try
   RegProc := GetProcAddress(Handle, RegProcName);
   if Assigned(RegProc) then RegProc;
 finally
   FreeLibrary(Handle);
 end;
end;

procedure UnRegisterComServer(const DLLName: string);
type
 TRegProc = function: HResult; stdcall;
const
 RegProcName = 'DllUnregisterServer'; { Do not localize }
var
 Handle: THandle;
 RegProc: TRegProc;
begin
 Handle := LoadLibrary(PChar(DLLName));
 if Handle <= HINSTANCE_ERROR then Exit;
 try
   RegProc := GetProcAddress(Handle, RegProcName);
   if Assigned(RegProc) then RegProc;
 finally
   FreeLibrary(Handle);
 end;
end;

и не нужно знать, где этот самый RegSvr32.exe находится

---

Polevi   (2004-07-27 12:50:00) [2]

я надеюсь ты не собираешься com-servera програмно с его помощью регистрировать

---

Anatoly Podgoretsky   (2004-07-27 10:15:00) [3]

Сказано забудь про путь, значит забудь. Это приговор

---

Sandman25   (2004-07-27 10:09:00) [4]

[11] mixam   (27.07.04 10:07)

Заметьте, что пользователю никто не мешает переместить regsvr в другой каталог, который также включен в path. И все программы будут продолжать работать... кроме Вашей, конечно...

---

mixam   (2004-07-27 10:07:00) [5]

все как гриться просто
спасибо

---

Думкин   (2004-07-27 08:44:00) [6]

еще GetSystemDirectory
на этом все. :(

---

Kerk   (2004-07-27 08:35:00) [7]

> и на том пасибо

ТЕБЕ спасибо, что соизволил принять такой ответ.

---

mixam   (2004-07-27 08:31:00) [8]

и на том пасибо

---

Думкин   (2004-07-27 08:26:00) [9]

А мягче можно? Без умняков - как у тебя будет.

MORE INFORMATION
Regsvr32.exe is included with Microsoft Internet Explorer 3.0 or later, Windows 95 OEM Service Release 2 (OSR2) or later, and Windows NT 4.0 Service Pack 5 (SP5) or later. Regsvr32.exe is installed in the System (Windows Me/98/95) or System32 (Windows NT) folder.

---

mixam   (2004-07-27 08:24:00) [10]

а просто без умняков , что метода нет?

---

Думкин   (2004-07-27 08:21:00) [11]

regsvr32.exe

---

mixam   (2004-07-27 08:20:00) [12]

а если под NT?

---

mixam   (2004-07-27 08:20:00) [13]

да и вообще чтоб наверняка

---

Kerk   (2004-07-27 08:20:00) [14]

> а если под NT?

А какая разница?

---

Думкин   (2004-07-27 08:17:00) [15]

а зачем? Путь к нему в PATH. Запускается и так, без пути.

---

Наверх