|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.01.2008, 10:38 | #1 |
Регистрация: 14.01.2008
Сообщений: 9
|
function NetUserGetInfo, не правильно отображает данные
{$EXTERNALSYM USER_INFO_0}
type USER_INFO_0 = record usri0_name:PWChar; end; {$EXTERNALSYM PUSER_INFO_0} type PUSER_INFO_0 = ^USER_INFO_0; function NetUserGetInfo(servername,username: LPCWSTR;level:DWORD;u:PByte):DWORD; stdcall; external 'netapi32.dll'; {$EXTERNALSYM NetUserGetInfo} var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); const NERR_UserNotFound = 2221; var us: USER_INFO_0; str: widestring; wid: string; mem: dword; begin str := Form1.Edit1.Text; mem := NetUserGetInfo(nil,PWCHAR(str),0,@u s); str:= us.usri0_name; wid:= str; if(wid = NULL) then NetApiBufferFree(Pbyte(wid)); if(mem = NULL) then NetApiBufferFree(Pbyte(mem)); if mem = NERR_UserNotFound then ShowMessage('Òàêîãî ïîëüçîâàòåëÿ íåò!') else Memo1.Lines.Add(IntToStr(mem)); Memo1.Lines.Add(wid); end; При нажатии на Button2 в Memo1 появляется ???ray, что сделать чтобы имя появлялось без закарлючек перед ним?! Помогите кто может |
15.01.2008, 20:43 | #2 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
в твоём случае должно быть так:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Броузер не отображает картинки <img... Почему? | Stilet | Perl | 8 | 14.04.2008 09:56 |
InttoiHex function | GAGARIN-NEW | Компоненты Delphi | 4 | 27.03.2008 20:21 |
Mozilla FireFox не корректно отображает XUL файл | Mitron | HTML и CSS | 10 | 07.01.2008 23:52 |
Почему отображает ошыбку в FieldByName | Alex_7_4_1 | БД в Delphi | 4 | 20.12.2007 11:06 |