Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Pekar © (2007-04-28 06:43:00)
Почему функция getusername(a:array[0..255]of char, c:cardinal=255) не работает a=''? может я делаю что то неправильно?

Германн (2007-04-30 01:50:00) [1]

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

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

kingsoft (2007-04-29 23:51:00) [2]
Вот как можно узнать имя текушего пользователя если 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;

Leonid Troyanovsky (2007-04-29 21:38:00) [3]

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

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

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

--
Regards, LVT.

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

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

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

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

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

begin...end (2007-04-28 12:35:00) [5]
> Правильный Вася (28.04.07 12:19) [5]

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

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

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

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

begin...end (2007-04-28 11:53:00) [7]
> Pekar (28.04.07 06:43)

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

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

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

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

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

icWasya (2007-04-28 11:45:00) [8]
GetUserName( @a,nSize);

Правильный Вася (2007-04-28 11:36:00) [9]
несовпадение типов
учить матчасть

a (2007-04-28 07:51:00) [10]
var
a: array[0..255] of Char;
nSize: Cardinal;
begin
nSize := SizeOf(a);
GetUserName(a,nSize);

Наверх

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