ログインしたユーザ名はAPI一発で取得できる。
とはいえ、サブルーチン化しておくと便利な気がする。
//------------------------------------------------------------------------- // ログインユーザ名を取得するサブルーチン // by Shue //------------------------------------------------------------------------- AnsiString __fastcall subGetLoginUserName() { char cBUF[1000]; DORD UserNameSize = 1000; AnsiString strRET = ""; if (::WNetGetUser(NULL, cBUF, &UserNameSize) == NO_ERROR) { strRET = AnsiString(cBUF); } return strRET; } //---------------------------------------------------------------------------