Как использовать 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;

> GetUserName (@UserName,i);

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

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

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

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

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