как определить что пользователь уже вошел в систему?

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

какой из ?

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

сервис

> какой из ?

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

> Palladin

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

?

из сервиса по таймеру

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

RegisterServiceCtrlHandlerEx/HandlerEx - SERVICE_CONTROL_SESSIONCHANGE

> han_malign

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