/
harryd61
/
cub
Обзор
Документация
Войти
/
harryd61
/
cub
Код
Запросы
0
Задачи
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
CheckID.pas
58 строк
1 KB
harryd61
first_commit
06 авг 2024, 13:09
06 авг 2024, 13:09
6a14989
Код
Авторство
О чём код?
unit CheckID; interface type TIDcheck = class id : Integer; nameLogUser: string; company: string; function UserLogin(id:Integer; pass:string):Boolean; function GetLogginUserName:string; function GetCompName:string; function GetUserFromWindows(): string; constructor create(); end; var Login : TIDcheck; implementation uses Data,Windows,SysUtils; constructor TIDcheck.create(); begin Self.nameLogUser:=''; id :=0; company:=''; end; function TIDcheck.UserLogin(id:Integer; pass:string):Boolean; begin Result:=False; Self.id:=id; if DataModule1.CheckLogin(id,pass,Self.nameLogUser,Self.Company) then Result :=True; end; function TIDcheck.GetLogginUserName:string; begin Result:=nameLogUser; end; Function TIDcheck.GetUserFromWindows: string; Var UserName : string; UserNameLen : Dword; Begin UserNameLen := 255; SetLength(userName, UserNameLen); If GetUserName(PChar(UserName), UserNameLen) Then Result := Copy(UserName,1,UserNameLen - 1) Else Result := 'Unknown'; End; function TIDcheck.GetCompName:string; var buf:array [0..MAX_COMPUTERNAME_LENGTH+1] of Char; Size:cardinal; begin size:=MAX_COMPUTERNAME_LENGTH+1; Windows.GetComputerName(@buf,Size); Result:=StrPas(buf); end; end.