Вторник, 11.12.2018, 19:54
Приветствую Вас Гость
Меню сайта


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

Онлайн всего: 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('Невозможно определить имя пользователя!');