Имя текущего пользователя

← →
Pekar (2007-04-28 06:43) [0]

Почему функция getusername(a:array[0..255]of char, c:cardinal=255) не работает a=""? может я делаю что то неправильно?

← →
a (2007-04-28 07:51) [1]

var
a: array[0..255] of Char;
nSize: Cardinal;
begin
nSize := SizeOf(a);
GetUserName(a,nSize);

← →
Правильный Вася (2007-04-28 11:36) [2]

несовпадение типов
учить матчасть

← →
icWasya © (2007-04-28 11:45) [3]

GetUserName(@a,nSize);

← →
begin...end © (2007-04-28 11:53) [4]

> Pekar (28.04.07 06:43)

Что возвращает GetLastError?

> Правильный Вася (28.04.07 11:36) [2]

Где здесь несовпадение типов?

> icWasya © (28.04.07 11:45) [3]

Собачка здесь необязательна.

← →
Правильный Вася (2007-04-28 12:19) [5]

> Где здесь несовпадение типов?

массиву нельзя присвоить строку таки способом
> не работает a=""?

← →
begin...end © (2007-04-28 12:35) [6]

> Правильный Вася (28.04.07 12:19) [5]

Данному массиву МОЖНО присвоить строку ТАКИМ способом: a := "". Но где в исходном вопросе Вы увидели оператор присваивания? Насколько я понял автора, он утверждает, что после вызова GetUserName у него a = "", т.е. содержимое массива представляет собой пустую строку.

← →
Правильный Вася (2007-04-28 13:39) [7]

> Данному массиву МОЖНО присвоить строку ТАКИМ способом: a := ""

фигасе, когда-то давно пробовал, не работало

> он утверждает, что после вызова GetUserName у него a = ""

казнить нельзя помиловать
пунктуацией он нас не балует

> Правильный Вася (28.04.07 13:39) [7]

> фигасе, когда-то давно пробовал, не работало

Бороться, искать, найти и перепрятать.
[эсеровский слоган]

--
Regards, LVT.

Вот как можно узнать имя текушего пользователя если Pekar это тебе необходимо: для этого просто необходимо добавить компонент Edit на форму, и в свойстве OnShow формы написать следующий код
procedure TForm1.FormShow(Sender: TObject); var UserName : string; UserNameLen : Dword; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Edit1.Text:= Copy(UserName,1,UserNameLen - 1); end;

> Правильный Вася (28.04.07 13:39) [7]
>
>
> > Данному массиву МОЖНО присвоить строку ТАКИМ способом:
> a := ""
>
> фигасе, когда-то давно пробовал, не работало
>

Наверно тогда ещё не было в Паскале понятия zero-based character arrays :)

Имя текущего пользователя Найти похожие ветки