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

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

Путь к исполняемому файлу сервиса [D5]

Донской ©   (2002-09-22 15:21:00) 

Как самому сервису узнать, откуда он был запущен, полный путь?
В обычных прогах все просто - Application.exename. У сервиса я такого не нашел...

---

Донской   (2002-09-22 17:12:00) [1]

На строку

Argv := PWCharArr(CommandLineToArgvW(Config.lpBinaryPathName,Argc));
ругается Incobatible Tipes Char and WideChar

Но остальное работает, Спасибо!

---

ZZ   (2002-09-22 16:53:00) [2]

Например, вот так -
uses ShellApi;

type
PWCharArr = ^WCharArr;
WCharArr = array [0..100] of PWideChar;
procedure TForm1.Button1Click(Sender: TObject);
var
hSCM,hSrv : THandle;
dwConfig,dwNeed : Cardinal;
Config : PQueryServiceConfigW;
Argc : Integer;
Argv : PWCharArr;
begin
hSCM:= OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
hSrv:= OpenService(hSCM,"Apache",SERVICE_ALL_ACCESS);

dwConfig := 4096;
GetMem(Config,dwConfig);

if not QueryServiceConfigW(hSrv,Config,dwConfig,dwNeed)
then ShowMessage(SysErrorMessage(GetLastError()));
ShowMessage(Config.lpBinaryPathName);

Argv := PWCharArr(CommandLineToArgvW(Config.lpBinaryPathName,Argc));
ShowMessage(Argv[0]);
GlobalFree(Cardinal(Argv));
end;

---

Донской   (2002-09-22 16:52:00) [3]


h_manager := OpenSCManager(PChar(""), Nil,
SC_MANAGER_CONNECT);


h_svc := OpenService(h_manager, PChar("SLFT_v1"),SERVICE_QUERY_CONFIG);
//getmem(svc_status,200000);
QueryServiceConfig(h_svc,svc_status,sizeof(svc_status),size);
s:=svc_status.lpBinaryPathName;
raise exception.create(syserrormessage(getlasterror));

На этот код появляется сообщение в Журнале событий (его я использую для отладки :))), что область, переданная системе по вызову слишком мала. Видимо, я неправильно определяю область памяти для структуры...

---

Донской   (2002-09-22 16:39:00) [4]

Param[0] содержит только имя сервиса - проверил.
QueryServiceConfig - секундочку.. щас тоже посмотрю...

Я делаю так, но что-то явно не то - появляется ошибка.

VAR
h_manager,h_svc: SC_Handle;
svc_status: PQUERYSERVICECONFIGA;
size:dword;
BEGIN
h_manager := OpenSCManager(PChar(""), Nil, SC_MANAGER_CONNECT);

h_svc := OpenService(h_manager, PChar("SLFT_v1"), SERVICE_START or SERVICE_QUERY_STATUS);
getmem(svc_status,sizeof(svc_status));
QueryServiceConfig(h_svc,svc_status,sizeof(svc_status),size);
s:=svc_status.lpBinaryPathName;

Типа S - это нужный мне путь.

---

ZZ   (2002-09-22 16:16:00) [5]

Ну если только в конфиге сервиса посмотреть...
QueryServiceConfig

В обычных прогах все просто - Application.exename
А еще ParamStr(0)

---

Донской   (2002-09-22 15:58:00) [6]

Нет. Не возвращает - проверено.
Пишет C:\WinNt\....
А как тогда?

---

Донской   (2002-09-22 15:50:00) [7]

Вернет ли функция getcurrentdir ВСЕГДА путь к директории запуска?

---

Наверх