Форум: "WinAPI";
Текущий архив: 2016.03.13;
Скачать: [xml.tar.bz2];
ВнизВход пользователя Найти похожие ветки
← →
QAZ (2010-06-08 13:41) [0]как определить что пользователь уже вошел в систему?
← →
Palladin © (2010-06-08 13:44) [1]а как он тебя запустит до входа?
← →
Игорь Шевченко © (2010-06-08 13:51) [2]какой из ?
← →
QAZ (2010-06-08 14:01) [3]
> а как он тебя запустит до входа?
сервис
> какой из ?
любой не системный
← →
Palladin © (2010-06-08 14:09) [4]http://www.google.ru/search?hl=ru&newwindow=1&q=%D0%BA%D0%B0%D0%BA+%D0%BE%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B8%D1%82%D1%8C+%D1%87%D1%82%D0%BE+%D0%BF%D0%BE%D0%BB%D1%8C%D0%B7%D0%BE%D0%B2%D0%B0%D1%82%D0%B5%D0%BB%D1%8C+%D1%83%D0%B6%D0%B5+%D0%B2%D0%BE%D1%88%D0%B5%D0%BB+%D0%B2+%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D1%83&lr=&aq=f&aqi=&aql=&oq=&gs_rfai=
← →
QAZ (2010-06-08 14:44) [5]
> Palladin
гиниально!
зачем тока утруждал себя написав
> [1]
?
← →
user51 (2010-06-11 17:02) [6]из сервиса по таймеру
function TFid.get_user_key_new:string;
label loop1;
var
reg : TRegistry;
ts : TStrings;
i,i1 : integer;
ff:string;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_users;
reg.OpenKey("",false);
get_user_key_new:="";
if reg.HasSubKeys then
begin
ts := TStringList.Create;
reg.GetKeyNames(ts);
reg.CloseKey;
for i := 0 to ts.Count -1 do
begin
ff:=AnsiUpperCase(ff);
i1:=pos("S-1-5-21-",ts[i]);
if i1 >0 then
begin
// save_logtxt(bd," USERKEY "+ ts[i]);
get_user_key_new:=ts[i];
goto loop1;
end;
end;
RxRichEdit11.Lines.Add("О Ш И Б К А ключ пользователя "S-1-5-21-" не найден ");
save_logtxt("О Ш И Б К А ключ пользователя "S-1-5-21-" не найден ");
get_user_key_new:="none";
loop1:
reg.CloseKey;
end
else reg.CloseKey;
ts.Free;
reg.free;
end;
когда пользователь войдет значение будет не none
← →
han_malign (2010-06-11 17:07) [7]RegisterServiceCtrlHandlerEx/HandlerEx - SERVICE_CONTROL_SESSIONCHANGE
← →
QAZ (2010-06-14 12:49) [8]
> han_malign
спасиб ,попробую
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2016.03.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.002 c