Delphi 1

Имя пользователя Paradox

Вы можете выполнить эту задачу, непосредственно обращаясь к BDE. Включите следующие модули в сецию Uses вашего модуля: DBIPROCS, DBIERRS, DBITYPES

Ниже приведена функция с именем ID, возвращающая сетевое имя входа:

function ID: String ;
var

rslt: DBIResult ;

szErrMsg: DBIMSG ;

pszUserName: PChar ;

begin

try

Result := '' ;

pszUserName := nil ;

GetMem(pszUserName, SizeOf(Char) * DBIMAXXBUSERNAMELEN) ;

rslt := DbiGetNetUserName(pszUserName);

if rslt = DBIERR_NONE then

Result := StrPas(pszUserName)

else

begin

DbiGetErrorString(rslt, szErrMsg);

raise Exception.Create(StrPas(szErrMsg));

end ;

FreeMem(pszUserName, SizeOf(Char) * DBIMAXXBUSERNAMELEN) ;

pszUserName := nil ;

except

on E: EOutOfMemory do ShowMessage('Ошибка. ' + E.Message);

on E: Exception do ShowMessage(E.Message);

end ;

if pszUserName <> nil then FreeMem(pszUserName, SizeOf(Char) * DBIMAXXBUSERNAMELEN) ;

end ;

[000420]