Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как использовать GetUserName [D7, WinXP]

Cherrex © (2005-09-13 14:59:00)
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

Reindeer Moss Eater (2005-09-13 15:36:00) [1]
а почему в EDIT не выводит
var
i : Dword;
UserName : array[0..255] of Char;
begin
i := 3;
GetUserName (UserName,i);
Edit1.Text := UserName;

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

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

begin...end (2005-09-13 15:33:00) [2]

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

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

begin...end (2005-09-13 15:29:00) [3]

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

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

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

Игорь Шевченко (2005-09-13 15:29:00) [5]

> GetUserName (@UserName,i);

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

begin...end (2005-09-13 15:26:00) [6]

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

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

Digitman (2005-09-13 15:17:00) [7]

> 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);

Cherrex (2005-09-13 15:10:00) [8]
var i : word; UserName : array[0..255] of Char; begin i := 255; GetUserName (UserName,i);
Аналогичная ошибка

MBo (2005-09-13 15:05:00) [9]
На второй параметр обрати внимание

BiN (2005-09-13 15:05:00) [10]
Sz:=254;
GetUserName (UserName, Sz);

Наверх

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