Есть код:
| Код |
function GetActiveUserTokenF():THandle;
var pArrSessInfo : PJwWTSSessionInfoAArray;
i:integer;
iNumSess : DWORD;
begin
result:=0;
if WTSEnumerateSessions(WTS_CURRENT_SERVER_HANDLE,0,1,PWTS_SESSION_INFO(pArrSessInfo), iNumSess) then
try
for i:=0 to iNumSess-1 do
begin
//pArrSessInfo^[i]. .....
if (pArrSessInfo^[i].State =WTSActive) then
begin
WTSQueryUserToken(pArrSessInfo^[i].SessionId,result);
//break;
end;
end //for i
finally
WTSFreeMemory(pArrSessInfo);
end;
end;
////////////////////
function GetUserAppPath():string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [0..MAX_PATH] of char;
h:tHandle;
hh:THandle;
begin
h:=GetActiveUserTokenF();
//hh:=THANDLE((h^));
if h>0 then
begin
if SUCCEEDED(SHGetFolderPath(0,CSIDL_APPDATA,h,SHGFP_TYPE_CURRENT,@path[0])) then
Result := path+inttostr(h)
else
Result := 'null';
end
else
Result := 'none';
end;
///////////////////
|
который выполняется в системной службе в WINXP. При вызове GetUserAppPath какого то дьяволя возвращает "C:\Documents and Settings\LocalService\Application Data" а не того пользователя, под которым сеанс? 
Еще меня смущает , то что в Дельфийской реализации WTSQueryUserToken второй параметр имеет тип не указатель на Thandle (msdn PHANDLE) а THandle? Причем всюду по форумах в образцах кодов все получив от функции WTSQueryUserToken указатель на токен как это описано в мсдн(PHANDLE) сразу используют его там где нужно подставлять токен(HANDLE)? |
