Progress bars. Using them for other things.

http://www.hobbypages.net/snip14.html Here are a few things you can use progress bars for. These are useful in your About Dialog Showing memory load. Showing disk usage. For a Memory Meter:

void TForm1::UpDateMemMeter()
{
     MEMORYSTATUS memory;
     memory.dwLength = sizeof (memory);
     GlobalMemoryStatus (&memory);
     ProgressBar1->Position = (float) memory.dwMemoryLoad;
     Label1->Caption = String ((int) (memory.dwMemoryLoad ))
                                          "% Memory Load";
     Label4->Caption = FloatToStr(memory.dwTotalPhys / 1024)
                                          " Kb Installed RAM";
}    And for the Disk Meter:     void TForm1::UpDateDrvMeter()
{
Label2->Caption = IntToStr
                        (((DiskSize(0) / 1024) - (DiskFree(0) / 1024)) / 1024)
                                  " Mb used space.";
ProgressBar2->Position = (100.0 * (DiskSize(0) - DiskFree(0)) / DiskSize(0));
Label3->Caption = IntToStr((DiskSize(0) / 1024) / 1024)
                                  " Mb on this drive.";
}    Use a timer to load and update the meters:     void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
UpDateMemMeter();
UpDateDrvMeter();
}    

網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/03/31 13:54:46