Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.13;
Скачать: CL | DM;

Вниз

GetUserName или мои кривые руки? :-)   Найти похожие ветки 

 
Pat ©   (2003-12-10 17:51) [0]

Имеем процедуру:

procedure TForm1.Button1Click(Sender: TObject);
var UName: array [0..Max_path] of char;
d:dword;
begin
d:=sizeof(UName);
if not GetUserName(UName,d)
then
showmessage(SysErrorMessage(GetLastError))
else caption:=UName;
end;


GetLastError говорит: "Запрошенная операция не была выполнена, так как пользователь не подключен к сети. Указанная служба не существует"


 
stone ©   (2003-12-10 17:57) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
UName: string;
d: dword;
begin
d := 255;
SetLength(UName, d);
if not GetUserName(UName,d)
then
showmessage(SysErrorMessage(GetLastError))
else caption:=UName;
end;

function GetWinUserName: 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;


 
stone ©   (2003-12-10 17:58) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
UName: string;
d: dword;
begin
d := 255;
SetLength(UName, d);
if not GetUserName(pchar(UName),d)
then
showmessage(SysErrorMessage(GetLastError))
else caption:=UName;
end;

function GetWinUserName: 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;


 
BiN ©   (2003-12-10 17:59) [3]

если ты в 9х сидишь, то может у тебя и пользователя-то нет
глянь - пуск - завершение сеанса <кого?>



Страницы: 1 вся ветка

Текущий архив: 2004.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-38699
Nikolai_S
2004-01-22 15:38
2004.02.13
Как через OLE DB приконнектиться к SQL Server по IP и порту?


1-38926
Настенька
2004-02-04 12:10
2004.02.13
проследить нажатие кнопки


1-38941
Марат
2004-02-04 08:11
2004.02.13
MainMenu


14-39050
DeMoN-777
2004-01-21 23:00
2004.02.13
Доки по азам MySQL


14-39018
DeMoN-777
2004-01-25 23:58
2004.02.13
Программа для создания схемы данных