Суббота, 23.06.2018, 06:59
Приветствую Вас Гость
Меню сайта


Копилка для дальнейшего развития ресурса.
 
Форма входа
Интересное
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Программирование на Delphi.

Программирование

Главная » FAQ » Система

В обработчике (нужного вам события) напишите:

var

   UserName: string;

   Par: Dword;

begin

   Par:=255;

   SetLength(UserName,Par);

   if GetUserName(PChar(UserName),Par) then ShowMessage(Copy(UserName,1,Par-1)) 

   else ShowMessage('Невозможно определить имя пользователя!');