глючит 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;

глючит GetUserName Найти похожие ветки