| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

GetUserName или мои кривые руки? :-)

Pat ©   (2003-12-10 17:51:00) 

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

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 говорит: "Запрошенная операция не была выполнена, так как пользователь не подключен к сети. Указанная служба не существует"

---

BiN   (2003-12-10 17:59:00) [1]

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

---

stone   (2003-12-10 17:58:00) [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;

---

stone   (2003-12-10 17:57:00) [3]

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;

---

Наверх