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

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

IP-адрес: 50.16.79.246
Браузер: Неизвестен
Основные разделы
Мини-чат
Loading Загрузка сообщений...
Наш опрос
Что делаете на нашем сайте?
Всего ответов: 833
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Administrator, Phantom, b@bskEnízm 
Форум » Хакерский форум » Программирование: Delphi & Pascal » function GetUserName: String; (Получение имени текущего пользователя)
function GetUserName: String;
AdministratorДата: Суббота, 04.06.2011, 18:22 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 89
Награды: 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 из 11
Поиск:

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

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

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

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

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