| tvs_spb |
| Отправлено: 07.09.2004, 16:45 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 20
|
Как получить имя текущего пользователя в системе.
Дрюкал GetCurrentUser,да что-то не получается... |
|
| joynter |
| Отправлено: 07.09.2004, 16:50 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 137
|
размести на форме Label и Button
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WORD wVersionRequested;
WSADATA wsaData;
wVersionRequested = MAKEWORD(1, 0);
if(WSAStartup(wVersionRequested, &wsaData) == 0)
{
char hn[1024];
if(gethostname((char *)&hn, 1024))
{
WSAGetLastError();
Beep();
}
Label1->Caption = hn;
}
} |
|
| AVC |
| Отправлено: 07.09.2004, 17:11 |
|
Ветеран
Группа: Модератор
Сообщений: 1583
|
| QUOTE |
Как получить имя текущего пользователя в системе.
Дрюкал GetCurrentUser,да что-то не получается...
|
А что не получается? Так вроде все работает
AnsiString str;
char buf[1024];
unsigned long len = sizeof(buf)-1;
GetComputerName (buf, &len); str = AnsiString(buf);
GetUserName (buf, &len); str += " (" + AnsiString(buf) + ")";
ShowMessage(str);
|
|
| UA_Freeman |
| Отправлено: 07.09.2004, 17:32 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 31
|
Просто нада GetUserName, а не GetCurrentUser |
|
