[Alegun]

Сообщение от 0111

...почему (-1) не перешёл в переменную dwUserNameLen ?

Специфика такая у конструкции PChar При первой SetLength(sUserName, cnMaxUserNameLen) ноль обрубается, а при вызове GetUserName нет, т.к. передаваемые данные в пичарке.