Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

глючит GetUserName 


Mr.Mike   (2002-02-19 19:26) [0]

Всем доброго времени суток! Подскажите, плиз, что за шняга: глючит GetUserName вот в таком контексте.
------------
var
A:Integer;
B:PChar;
C:LPDword;

*
*
*

// Далее по тексту примерно так
A := 50;
C^ := tm;
GetMem(B, 50);
GetUserName(B, C); // Error this...
FreeMem(B);

---------------
Выдает ошибку при компиляции: Types of actual and formal var parameters must be identical.



Набережных С.   (2002-02-19 20:35) [1]

В ТАКОМ "контексте" глючит не GetUserName
Можно как-то так:

var
A:DWord;
B:PChar;
// C:LPDword;

A := 50;
//C^ := tm;
GetMem(B, A);
GetUserName(B, A);
//используй результат
FreeMem(B);


Или так:


var
s:string
n:DWord;

n:=MAX_PATH;
SetLength(s,n);
if GetUserName(PChar(s),n) then
begin
SetLength(s,n);
....
end;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.014 c
1-80917           hm                    2002-04-11 12:35  2002.04.25  
RichEdit


7-81093           VS                    2002-01-31 09:35  2002.04.25  
Как при поиске файла на диске переключиться на следующий диск


3-80807           ser_ker               2002-03-04 15:37  2002.04.25  
Как передать IBStoredProc через параметр типа Blob содержимое файла на диске ?


14-81075          FELLINI               2002-03-21 06:52  2002.04.25  
Как свернуть рабочий стол


14-81065          Ajax                  2002-03-19 19:28  2002.04.25  
Delphi 5 и WinXP