GetUserName и Win95

← →
Марина © (2002-05-13 12:08) [0]

Подскажите, пожалуйста, почему вот такая функция
function UserName: Pchar;
var
dwSize : Cardinal;
Buffer: String;
szBuffer : PChar;
begin
dwSize := MAX_PATH + 1;
GetMem(szBuffer, dwSize);
try
if GetUserName(szBuffer, dwSize) then
Buffer := String(szBuffer)
else
Buffer := "Неизвестно";
finally
Result := PChar(Buffer);
FreeMem(szBuffer, dwSize);
end;
end;
при запуске программы на компьютере с Win95 (с Win98 все отлично)пишет "Неизвестно".С чем это может быть связано? Заранее благодарна.

← →
Anatoly Podgoretsky © (2002-05-13 13:49) [1]

Что сообщает GetLastError?

← →
Konorl (2002-05-13 16:50) [2]

Вот что тебе хотят сказать:

var
a: dword;
программа
Buffer := "Неизвестно";
a:=GetLastError;
Чему равно а? Это код ошибки, по нему узнаешь.

← →
Марина © (2002-05-14 10:02) [3]

Большое спасибо.Я изменила код, теперь он выглядит так:
var
cb,a: DWORD;
LoggedUser: string;
begin
cb := 0;
GetUserName(nil, cb);
SetLength(LoggedUser, cb);
Win32Check(GetUserName(PChar(LoggedUser), cb));
Memo1.Lines.Text:=LoggedUser;
a:=GetLastError;
Memo2.Lines.Text:=IntToStr(a);
Как я понимаю, дело оказалось не в операционной системе, а в сети. Я запускала программу еще на одной машине с Win95, имя пользователя я получила, но при этом почему-то код ошибки 120.А на том компьютере, с которого все и началось, получила следующее сообщение:
Win32 Error.Code: 1245. Запрошенная операция не была выполнена, так как пользователь не подключен к сети. Указанная служба не существует.
Как такое может быть, ведь этот пользователь к сети подключен, причем аж к трем серверам? Заранее спасибо.

← →
Konorl (2002-05-14 17:01) [4]

А вот такой, тупой пример будет работать?
Пиши на мыло.

var
usize: Cardinal;
usr: array[0..MAX_PATH] of Char;
begin
usize:=255;
if GetUserName(usr, usize) then Label1.Caption:=StrPas(usr)
else usize:=GetLastError;
end;

GetUserName и Win95 Найти похожие ветки