Как получить путь к папке appdata из службы?

[kleric]

Друзья, подскажите как получить путь и доступ к папке appdata из системной службы для пользователя который сейчас вошёл и работает в системе.
Путь получаю след. образом

function GetSpecialFolderPath(folder : integer) : string;
const
  SHGFP_TYPE_CURRENT = 0;
var
   path: array [0..MAX_PATH] of char;
   h : Thandle;
begin
  try
    h := doGetCurrentToken();
    OpenProcessToken( GetCurrentProcess, TOKEN_QUERY, h );

    if SUCCEEDED(SHGetFolderPath(0,folder,h,SHGFP_TYPE_CURRENT,@path[0])) then
      Result := path
    else
     Result := '';
  finally
   CloseHandle( h );
  end;
end;

Вот что возвращает
C:\Windows\system32\config\systempr ofile\AppData\Roaming

[NetSpace]

ну, путь ты получил. а вот права доступа - это уже, наверное, через реестр, нет?
или попробуй снять с этой папки все атрибуты, чтоб была полная вседозволенность

[kleric]

Сообщение от NetSpace

ну, путь ты получил. а вот права доступа - это уже, наверное, через реестр, нет?
или попробуй снять с этой папки все атрибуты, чтоб была полная вседозволенность

Мне вот такой путь нужен
C:\Users\admin\AppData\Roaming

а не этот
C:\Windows\system32\config\systempr ofile\AppData\Roaming

[p51x]

Зачем? Просто так нельзя, т.к. сервисы загружаются в отдельной сессии и еще до логина пользователей/загрузки их профилей. Если вам нужно хранить настройки, то храните их в нейтральном месте, использую CommonAppDataFolder для этого, например.
Можно, конечно, поперебирать C:\Users\admin\AppData\Roaming C - по всем дискам, admin - по залогененным пользователям. Правда и это не даст гарантию.

[min@y™]

Мне вот такой путь нужен
C:\Users\admin\AppData\Roaming

[kleric]

Сообщение от p51x

Зачем? Просто так нельзя, т.к. сервисы загружаются в отдельной сессии и еще до логина пользователей/загрузки их профилей. Если вам нужно хранить настройки, то храните их в нейтральном месте, использую CommonAppDataFolder для этого, например.
Можно, конечно, поперебирать C:\Users\admin\AppData\Roaming C - по всем дискам, admin - по залогененным пользователям. Правда и это не даст гарантию.

Да. Мне нужно хранить профиль с настройками моей проги индивидуально ля каждого юзера. Из службы))
Пока сделал вариант такой - служба мониторит софтину которая в свою очередь и пишет в appdata. И если софтина вырубилась, то запускает её снова.
зы. софтина запускается под текущим юзером

procedure RunApp(FilePath:string);
var
  hToken:THandle;
  si:STARTUPINFO;
  pi:PROCESS_INFORMATION;
begin
  if WTSQueryUserToken(WtsGetActiveConsoleSessionID,@hToken) then
    begin
      ZeroMemory(@si,SizeOf(si));
      si.cb:=SizeOf(si);
      si.lpDesktop:=nil;
      CreateProcessAsUser(hToken,nil,PChar(FilePath),nil,nil,False,0,nil,nil,si,pi);
      CloseHandle(hToken);
    end;
end;

[kleric]

Друзья, подскажите как узнать что пользователь выполнил логон? Из службы

[kleric]

Сообщение от p51x

Зачем? Просто так нельзя, т.к. сервисы загружаются в отдельной сессии и еще до логина пользователей/загрузки их профилей.

А из сессии службы вообще можно получить appdata текущего юзера который влипает в монитор?

[p51x]

1. Перебором как я написал или через грязные хаки, которые не факт, что не сломаются с следующим обновлением.
2. Вообще-то, Винда многопользовательская система и который из 5 залогененных будет текущим для вашей службы?
3. Мне, кажется, у вас архитектура неправильная. Зачем вам служба? Добавьте в автозапуск прогу и все. Служба понадобиться если надо повышать привилегии, как, например, в Хроме и других.

[kleric]

Сообщение от p51x

1. Перебором как я написал или через грязные хаки, которые не факт, что не сломаются с следующим обновлением.
2. Вообще-то, Винда многопользовательская система и который из 5 залогененных будет текущим для вашей службы?
3. Мне, кажется, у вас архитектура неправильная. Зачем вам служба? Добавьте в автозапуск прогу и все. Служба понадобиться если надо повышать привилегии, как, например, в Хроме и других.

1. Согласен
2. Текущего юзера беру через

function WTSQueryUserToken(SessionId: DWORD; phToken : pHandle) : bool; stdcall; external 'wtsapi32.dll';

3. Служба нужна для обновления софтины. аля Мозилла. Там отдельная служба для обновления, чтобы УАК не пугался. Ведь файлы софтины лежат в program files

Архитектура такая: служба системная запускает софтину вышеуказанным способом (для обновления, для контроля...) Странно но софтина запущенная таким образом так же не видит appdata текущего юзера.
А видит C:\Windows\system32\config\systempr ofile\AppData\Roaming
Если софтину запустить руками, то appdata будет человеческий
C:\Users\admin\AppData\Roaming