🚀 go-pugleaf

For the HD

    #pragma pack(push, 1)
    struct TDiskInfo
    {
        DWORD Serial;
        __int64 dvSize;
        __int64 dvFree;
        __int64 dvUsed;
        char Select[16];
        char Volume[256];
        char System[256];
    };
    #pragma pack(pop)



    TDiskInfo __fastcall GetDiskInfo(AnsiString Value)
    {
        WORD ErrMode;
        DWORD Words, Flags;
        TDiskInfo R = {0};

        ErrMode = (WORD)SetErrorMode(SEM_FAILCRITICALERRORS);  //win32 API

        try
        {
            switch(GetDriveType(Value.c_str()))
            {
                case DRIVE_NO_ROOT_DIR:
                        StrLCopy(R.Select, "Drive Does not exist", 16);
                        break;
                case DRIVE_UNKNOWN:
                        StrLCopy(R.Select, "Drive is unknown", 16);
                        break;
                case DRIVE_FIXED:
                        StrLCopy(R.Select, "Fixed Drive", 16);
                        break;
                case DRIVE_REMOVABLE:
                        StrLCopy(R.Select, "Removable Drive", 16);
                        break;
                case DRIVE_REMOTE:
                        StrLCopy(R.Select, "Remote Drive", 16);
                        break;
                case DRIVE_CDROM:
                        StrLCopy(R.Select, "CDROM Drive", 16);
                        break;
                case DRIVE_RAMDISK:
                        StrLCopy(R.Select, "RAM Disk Drive", 16);
                        break;
            }

            R.dvSize = DiskSize(0);
            R.dvFree = DiskFree(0);
            R.dvUsed = (R.dvSize - R.dvFree);
            GetVolumeInformation(Value.c_str(), R.Volume,
            sizeof(R.Volume), &R.Serial, &Words, &Flags, R.System,
            sizeof(R.System));
        }
        __finally {
            SetErrorMode(ErrMode);
        }

        return R;
    }

//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TDiskInfo D;
    Disks = GetDiskInfo("C:\\");

    ShowMessage(String(D.Volume) + "\n" +
                String(D.System) + "\n" +
                String(D.Select) + "\n" +
                "Serial No  " + String(D.Serial) + "\n" +
                "Disk Size  " + String(D.dvSize) + " MB\n" +
                "Free Space " + String(D.dvFree) + " MB\n" +
                "Used Space " + String(D.dvUsed) + " MB"
                );
}

Rodolfo

"Muzzy" <leyandrew@yahoo.com> wrote in message
news:3fe1f4f1$1@newsgroups.borland.com...
> Hello,
>
> I need to implement sort of subscription service for my app and for that
> purpose i need to generate a unique code (computer ID) sequence for
> particular computer.
>
> I would like to generate the code based on processor ID and probably
> some other hardware id's, just like microsoft does for WinXP registration.
>
> But i don't seem to find any WinAPI(?) functions to retreive that info.
>
> Any ideas would be highly appreciated!
>
> Thank you,
> Andrey
>