void
TkGetServerInfo(interp, tkwin)
    Tcl_Interp *interp;         /* The server information is returned 
+in
                 * this interpreter's result. */
    Tk_Window tkwin;            /* Token for window;  this selects a
                 * particular display and server. */
{
    char buffer[60];
    OSVERSIONINFO os;

    os.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
    GetVersionEx(&os);
    sprintf(buffer, "Windows %d.%d %d %s", os.dwMajorVersion,
        os.dwMinorVersion, os.dwBuildNumber,
#ifdef _WIN64
        "Win64"
#else
        "Win32"
#endif
    );
[download]