Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вход пользователя [D7, WinXP]

QAZ © (2010-06-08 13:41:00)
как определить что пользователь уже вошел в систему?

QAZ (2010-06-14 12:49:00) [1]

> han_malign

спасиб ,попробую

han_malign (2010-06-11 17:07:00) [2]
RegisterServiceCtrlHandler Ex/Handler Ex- SERVICE_CONTROL_SESSIONCHANGE

user51 (2010-06-11 17:02:00) [3]
из сервиса по таймеру

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

QAZ (2010-06-08 14:44:00) [4]

> Palladin

гиниально!
зачем тока утруждал себя написав
> [1]

?

Palladin (2010-06-08 14:09:00) [5]
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:01:00) [6]

> а как он тебя запустит до входа?

сервис

> какой из ?

любой не системный

Игорь Шевченко (2010-06-08 13:51:00) [7]
какой из ?

Palladin (2010-06-08 13:44:00) [8]
а как он тебя запустит до входа?

Наверх

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