لاگ آف و لاگین به ویندوز

[seyed_farid]

با سلام
آیا در دلفی میشه دستوری نوشت که بهنگام لازم بشود ویندوز را لاگ آف و لاگین کرد؟
آیا باید این برنامه حتما بصورت سرور ساخته شود یا برنامه معمولی هم این امکان و قابلیت را دارد؟

[دلفــي]

با سلام
آیا در دلفی میشه دستوری نوشت که بهنگام لازم بشود ویندوز را لاگ آف و لاگین کرد؟
آیا باید این برنامه حتما بصورت سرور ساخته شود یا برنامه معمولی هم این امکان و قابلیت را دارد؟

https://barnamenevis.org/showthread....28#post2480228

[seyed_farid]

سلام.
ممنونم

حالا که لاگ آف شدیم، چطور میشه دوباره به ویندوز با دستور در برنامه، لاگین کرد؟

[دلفــي]

سلام.
ممنونم

حالا که لاگ آف شدیم، چطور میشه دوباره به ویندوز با دستور در برنامه، لاگین کرد؟

function Logon(const Username, Password: string): Boolean;

var

  hToken       : THandle;

begin

  Result := LogonUser(PChar(Username), nil, PChar(Password),

  LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, hToken);

  if Result then

  begin

    Result := ImpersonateLoggedOnUser(hToken);

    RevertToSelf;

  end

  else

  RaiseLastOSError;

end;