Вход пользователя

← →
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

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

Вход пользователя Найти похожие ветки