юзернаме

← →
юзар (2007-06-25 15:37) [0]

как в лабел вывести имя пользователя?

← →
stone © (2007-06-25 15:40) [1]

лабел.каптион := "имя пользователя";

← →
clickmaker © (2007-06-25 15:41) [2]

Вин АПИ - ГетЮзерНаме()

← →
Сергей М. © (2007-06-25 15:42) [3]

вар
стр: cтринг;
..

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

← →
clickmaker © (2007-06-25 15:45) [4]

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

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

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

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

:)

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

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

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

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

юзернаме Найти похожие ветки