Текущий архив: 2002.04.25;
Скачать: CL | DM;
Вниз
глючит 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;
Страницы: 1 вся ветка
Текущий архив: 2002.04.25;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.009 c
