| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как можно определит ползователья [D5, Win95/98]

Xman ©   (2002-11-12 12:19:00) 

Не можетели подсказат как можно определит имя пользователя?
sUser попробовал в 2000 работает но в 98 не работаеть.
Помогите

---

 Николай Быков   (2002-11-12 13:26:00) [1]

так и быть... забрасывайте в UBPFD...
:))

function WindowsUserName:string;
var //rg:TRegistry;
lpBuffer: array[0..MAX_COMPUTERNAME_LENGTH] of Char;//PChar;
nSize: DWORD;
begin
{
rg:= TRegistry.Create;
with rg
do begin
RootKey:= HKEY_LOCAL_MACHINE;
OpenKey("\System\CurrentControlSet\Control", False);
result:= ReadString("Current User");
CloseKey;
end;
}
nSize:= MAX_PROFILE_LEN + 1;
if GetUserName(lpBuffer, nSize)
then result:= lpBuffer
else result:= "Unknown user";
end;

---

LongIsland   (2002-11-12 13:25:00) [2]

> Николай Быков © (12.11.02 13:17)

Черта с два, Коля!:-)

function GetUserNameSys: string;
var buf:array[0..1027] of char;
K:Cardinal;
begin
K:=1028;
if GetUserName(buf, K) then result:= StrPas(buf);
end;

Проверил, работает и там и там.

---

Николай Быков   (2002-11-12 13:17:00) [3]

Эх вы. Учу!

procedure TForm1.Button3Click(Sender: TObject);
var aaa:string;
S : String ;
Len : Cardinal ;
begin
SetLength ( S , 255 ) ;
Len := Length ( S ) ;
GetUserName ( @S [ 1 ] , Len ) ;
Label1.caption:=S;
end;

---

LongIsland   (2002-11-12 13:02:00) [4]

uses Registry;
..............

procedure TForm1.Button1Click(Sender: TObject);
var
R: TRegistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion", False);
UserName.Caption:=R.readstring("RegisteredOwner");
R.Free;
end;

Это работает в 98, но не пашет в 2000

---

Xman   (2002-11-12 12:35:00) [5]

>GetUserName подойдет?

Я это пробовал он уменя в 98 нечего или непонятного слово дает.
А ест еще какие нибуд функци?

---

Romkin   (2002-11-12 12:24:00) [6]

GetUserName подойдет?

---

Наверх