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

[seyed_farid]

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

[دلفــي]

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

https://barnamenevis.org/showthread.php?190417-%D9%85%D8%B1%D8%AC%D8%B9-%D8%AA%D9%88%D8%A7%D8%A8%D8%B9-%D8%AF%D9%84%D9%81%DB%8C&p=2480228#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;