Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: 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 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.055 c
9-1120128029
D!m@N
2005-06-30 14:40
2005.11.13
Звук


2-1129411172
X-Fi
2005-10-16 01:19
2005.11.13
Как вывести текст на Canvas в столбик с выравниванием по ширине ?


11-1110981835
Vladimyr
2005-03-16 17:03
2005.11.13
QueryEndSession - как чуток подождать?..


14-1130188437
Piter
2005-10-25 01:13
2005.11.13
Как удалить сервис?


2-1130080255
TStas
2005-10-23 19:10
2005.11.13
Почему эдин программно неправильно выделятся?