Скачать: CL | DM;

Как использовать GetUserName   Найти похожие ветки 

← →
Cherrex ©   (2005-09-13 14:59) [0]

var  UserName : array[0..255] of Char;
begin
GetUserName (UserName,254);
end;
Не Получается. [Error] Unit1.pas(30): E2033 Types of actual and formal var parameters must be identical

---

← →
MBo ©   (2005-09-13 15:05) [1]

На второй параметр обрати внимание

---

← →
BiN ©   (2005-09-13 15:05) [2]

Sz:=254;
GetUserName (UserName, Sz);

---

← →
Cherrex ©   (2005-09-13 15:10) [3]

var
i : word;
UserName : array[0..255] of Char;
begin
i := 255;
GetUserName (UserName,i);
Аналогичная ошибка

---

← →
Digitman ©   (2005-09-13 15:17) [4]

> Cherrex ©   (13.09.05 15:10) [3]


Учить Паскаль бегом марш !!

function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;

var
i : Dword;
UserName : array[0..255] of Char;
begin
i := 255;
GetUserName (@UserName,i);

---

← →
begin...end ©   (2005-09-13 15:26) [5]

> Digitman ©   (13.09.05 15:17) [4]
> GetUserName (@UserName,i);


Тип PChar и тип-массив символов с нулевой нижней границей индексов совместимы по присваиванию. Это я к тому, что собачка необязательна.

---

← →
begin...end ©   (2005-09-13 15:29) [6]

> begin...end ©   (13.09.05 15:26) [5]
> совместимы по присваиванию

Только в одну сторону, правда.

---

← →
Cherrex ©   (2005-09-13 15:29) [7]

понял!
а почему в EDIT не выводит
var
i : Dword;
UserName : array[0..255] of Char;
begin
i := 3;
GetUserName (UserName,i);
Edit1.Text := UserName;

---

← →
Игорь Шевченко ©   (2005-09-13 15:29) [8]

> GetUserName (@UserName,i);


@ необязательно

---

← →
begin...end ©   (2005-09-13 15:33) [9]

> Cherrex ©   (13.09.05 15:29) [7]
> а почему в EDIT не выводит

Потому что имя пользователя не умещается в 3 символа.

---

← →
Reindeer Moss Eater ©   (2005-09-13 15:36) [10]

а почему в EDIT не выводит
var
i : Dword;
UserName : array[0..255] of Char;
begin
i := 3;
GetUserName (UserName,i);
Edit1.Text := UserName;

Неправда. "Выводит".
Что получил, то и выводит.

Во первых GetUserName это функция, во вторых есть GetLastError на случай, если она вернет False.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c