Stas'M Corp.
Главная | function GetUserName: String; - Форум | Регистрация | Вход
 
Среда, 16.10.2019, 08:38
Приветствую Вас Гость | RSS
| ENG | RUS
Форма входа

Информация о тебе:

IP-адрес: 18.208.159.25
Браузер: Неизвестен
Основные разделы
Мини-чат
Loading Загрузка сообщений...
Наш опрос
Что делаете на нашем сайте?
Всего ответов: 1124
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Administrator, Phantom, b@bskEnízm  
Форум » Хакерский форум » Программирование: Delphi & Pascal » function GetUserName: String; (Получение имени текущего пользователя)
function GetUserName: String;
AdministratorДата: Суббота, 04.06.2011, 18:22 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 90
Награды: 39
Репутация: 50
Статус: Offline
Данная функция позволяет получить имя пользователя, от которого будет запущена программа.
 
function GetUserName: String;
var
  Buffer: Array[0..MAX_PATH] of Char;
  sz: DWord;
begin
  sz:=MAX_PATH-1;
  if Windows.GetUserName(Buffer,sz) then begin
    if sz>0 then dec(sz);
    SetString(Result,Buffer,sz);
  end
  else begin
    Result:='Error '+IntToStr(GetLastError);
  end;
end;


Stas'M
 
Форум » Хакерский форум » Программирование: Delphi & Pascal » function GetUserName: String; (Получение имени текущего пользователя)
  • Страница 1 из 1
  • 1
Поиск:

Веб приложения
Пожертвование / Donate
WMWebMoney transferZ358077191062
WMWebMoney transferE208225402366
WMWebMoney transferP303537803958
WMWebMoney transferB345247247920
WUWestern Union transferuse feedback form
Друзья сайта

Просим вас посещать сайты наших друзей! Они достойны такого же внимания как и мы!

Пользователи

Пользователи онлайн:
Статистика

Copyright © Stas'M Corp. 2019Хостинг от uCoz