Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

как можно определит ползователья   Найти похожие ветки 

← →
Xman   (2002-11-12 12:19) [0]

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

---

← →
Romkin   (2002-11-12 12:24) [1]

GetUserName подойдет?

---

← →
Xman   (2002-11-12 12:35) [2]

>GetUserName подойдет?

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

---

← →
LongIsland   (2002-11-12 13:02) [3]

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

---

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

Эх вы. Учу!

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:25) [5]

> Николай Быков © (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:26) [6]

так и быть... забрасывайте в 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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c