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

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

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

юзернаме [D7, 2003]

юзар © (2007-06-25 15:37:00)
как в лабел вывести имя пользователя?

Сергей М. (2007-06-25 15:48:00) [1]

> clickmaker © (25.06.07 15:45) [4]

Кто, сударь, вас учил говорить Гет ЮзерНаме, в то время как это не иначе как ГэтьУсерНаме ?))

Ega23 (2007-06-25 15:46:00) [2]

> Сергей М. © (25.06.07 15:42) [3]
>
> вар
> стр: cтринг;
> ..
>
> СетЛенгхт(стр, 255);
> Иф GetUserName(ПыЧар(стр), Ленгхт(стр)) тхен
> лабел.цаптион := стр;
>

супер!
Напечатал, на стенку повесил!

clickmaker (2007-06-25 15:45:00) [3]

> [3] Сергей М. © (25.06.07 15:42)

неоптимально

вар
лен: стринг;

лен := 255;
СетЛенгхт(стр, лен);
иф ГетЮзерНаме(ПыЧар(стр), лен) тхен
лабел.цаптион := стр
елсе
РаисеЛастВин32Еггог();

:)

Сергей М. (2007-06-25 15:42:00) [4]
вар
стр: cтринг;
..

СетЛенгхт(стр, 255);
Иф GetUserName(ПыЧар(стр), Ленгхт(стр)) тхен
лабел.цаптион := стр;

clickmaker (2007-06-25 15:41:00) [5]
Вин АПИ - ГетЮзерНаме()

stone (2007-06-25 15:40:00) [6]
лабел.каптион := 'имя пользователя';

Наверх

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