NFOHump.com :: View topic - Application or Desktop Gadget that can do this?

Page 1 of 1

Ronhrin
Banned

Posts: 6428
Location: Paradigms are changeable, reality is absolute.

Posted: Thu, 5th Nov 2009 20:40 Post subject: Application or Desktop Gadget that can do this?	Quick Quote Quote

Ok, I have a whole a lot of HDDs, I recently shed all my <1tb HDDs and I have currently within my Rig 3x1.5TB and 2x2TB HDDs, I have 4 more HDDs mounted within External cases and connected via USB. I'm a leech whore, I literally filled more than 2 TB in a little over 3 weeks. I have that windows desktop gadget that constantly shows real time info of the amount of free space on each of my disks. But I would like some app or gadget that would show me my TOTAL free and used space on all my disks combined. Is there such a thing? He who sacrifices freedom for security deserves neither - Benjamin Franklin - 1759

_SiN_
Megatron

Posts: 12108
Location: Cybertron

Posted: Fri, 6th Nov 2009 08:24 Post subject:	Quick Quote Quote

I'm sure you could achieve this with Samurize.. www.samurize.com/ Watercooled 5950X \| AORUS Master X570 \| Asus RTX 3090 TUF Gaming OC \| 64Gb RAM \| 1Tb 970 Evo Plus + 2Tb 660p \| etc etc

sabin1981
Mostly Cursed

Posts: 87805

Posted: Fri, 6th Nov 2009 09:09 Post subject:

Quote:

Service Unavailable

That.... doesn't bode well Razz

Profile
PM

_SiN_
Megatron

Posts: 12108
Location: Cybertron

Posted: Fri, 6th Nov 2009 09:13 Post subject:	Quick Quote Quote

Great Watercooled 5950X \| AORUS Master X570 \| Asus RTX 3090 TUF Gaming OC \| 64Gb RAM \| 1Tb 970 Evo Plus + 2Tb 660p \| etc etc

PumpAction
[Schmadmin]

Posts: 26759

Posted: Fri, 6th Nov 2009 14:23 Post subject:	Quick Quote Quote

http://rapidshare.com/files/303178243/Diskhumper.rar Give this one a try It works for me under windows 7 and I tried it with xp compatibility mode. If you want anything else just tell me.. I was thinking about adding some features like that the free space turns red if ANY harddisks free space falls under ~3%... At the moment it just turns red if the total free space falls below 8 percent.. Have fun Oh press on rescan drives if you plugin or remove a removable drive because I was to lazy to build in some handler which checks for that stuff And one last note: If the display of the free space and speed is not correct just tell me. The german thousand seperator is "." whereas the american is "," so there might pop up a problem.. Again I was to lazy to change the region settings on my computer so... try for yourself => NFOrce GIF plugin <= - Ryzen 3800X, 16GB DDR4-3200, Sapphire 5700XT Pulse

Profile
PM

Ronhrin
Banned

Posts: 6428
Location: Paradigms are changeable, reality is absolute.

Posted: Fri, 6th Nov 2009 15:11 Post subject:

PumpAction wrote:

http://rapidshare.com/files/303178243/Diskhumper.rar

Give this one a try Smile

It works for me under windows 7 and I tried it with xp compatibility mode. If you want anything else just tell me.. I was thinking about adding some features like that the free space turns red if ANY harddisks free space falls under ~3%... At the moment it just turns red if the total free space falls below 8 percent..

Have fun Smile

Oh press on rescan drives if you plugin or remove a removable drive because I was to lazy to build in some handler which checks for that stuff Laughing

And one last note: If the display of the free space and speed is not correct just tell me. The german thousand seperator is "." whereas the american is "," so there might pop up a problem.. Again I was to lazy to change the region settings on my computer so... try for yourself Laughing

Did you code it?

He who sacrifices freedom for security deserves neither
- Benjamin Franklin - 1759

PumpAction
[Schmadmin]

Posts: 26759

Posted: Fri, 6th Nov 2009 15:12 Post subject:	Quick Quote Quote

yeah => NFOrce GIF plugin <= - Ryzen 3800X, 16GB DDR4-3200, Sapphire 5700XT Pulse

Profile
PM

Ronhrin
Banned

Posts: 6428
Location: Paradigms are changeable, reality is absolute.

Posted: Fri, 6th Nov 2009 15:14 Post subject:

PumpAction wrote:

yeah

Not that I'm not thankful, but it is firewall blocked Wink

He who sacrifices freedom for security deserves neither
- Benjamin Franklin - 1759

PumpAction
[Schmadmin]

Posts: 26759

Posted: Fri, 6th Nov 2009 15:20 Post subject:	Quick Quote Quote

ehmm? yeah block it , it has no net features... actually i can send you the project file if you don't trust me => NFOrce GIF plugin <= - Ryzen 3800X, 16GB DDR4-3200, Sapphire 5700XT Pulse

Profile
PM

Ronhrin
Banned

Posts: 6428
Location: Paradigms are changeable, reality is absolute.

Posted: Fri, 6th Nov 2009 15:21 Post subject:

PumpAction wrote:

ehmm? yeah block it , it has no net features... actually i can send you the project file if you don't trust me Wink

Don't take it the wrong way, it's a great gadget. just the thing I needed, I'm just obsessed with security Smile

He who sacrifices freedom for security deserves neither
- Benjamin Franklin - 1759

PumpAction
[Schmadmin]

Posts: 26759

Posted: Fri, 6th Nov 2009 15:39 Post subject:

Try this one I removed some unused units
http://rapidshare.com/files/303203703/Diskhumper.exe

Spoiler:

Code:

unit humpmon;

interface

uses
SysUtils, Forms, StdCtrls, ComCtrls, ExtCtrls;

type
TForm4 = class(TForm)
ProgressBar1: TProgressBar;
freespace: TLabel;
speed: TLabel;
Label3: TLabel;
Label4: TLabel;
CheckBox1: TCheckBox;
Label5: TLabel;
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure checkfordrives();
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;
drive: array[0..255] of byte;
units:array[0..5] of String;
frees:int64;
maxdrives: integer;

function inttosizestr(size:int64):string;

implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
units[0]:='B';
units[1]:='KB';
units[2]:='MB';
units[3]:='GB';
units[4]:='TB';
units[5]:='PB';
checkfordrives();
timer1.Enabled:=true;
Timer1Timer(sender);
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
timer1.Enabled:=false;
checkfordrives();
timer1.Enabled:=true;
end;

procedure tform4.checkfordrives();
var
I: Integer;
begin
maxdrives:=0;
frees:=0;
for I := 1 to 32 do
if DiskSize(i)>-1 then
begin
frees:=frees+diskfree(i);
drive[maxdrives]:=i;
inc(maxdrives);
end;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
var
i:integer;
totalfreespace:int64;
totalspace:int64;
begin
totalspace:=0;
totalfreespace:=0;
for I := 0 to maxdrives - 1 do
begin
totalfreespace:=totalfreespace+diskfree(drive[i]);
totalspace:=totalspace+DiskSize(drive[i]);
end;
progressbar1.Position:=round((totalfreespace/totalspace)*100);
if (progressbar1.Position<14) AND (progressbar1.Position>8) then
progressbar1.State:=pbspaused;
if progressbar1.Position<8 then
progressbar1.State:=pbserror;
if progressbar1.Position>=14 then
progressbar1.State:=pbsnormal;
progressbar1.hint:='Total space:'+inttosizestr(totalspace);
freespace.Caption:=inttosizestr(totalfreespace);
speed.Caption:=inttosizestr(frees-totalfreespace)+'/s';
frees:=totalfreespace;
if (checkbox1.Checked) and (FormStyle=fsnormal) then
FormStyle:=fsstayontop;
if (not checkbox1.Checked) and (formstyle=fsstayontop) then
formstyle:=fsnormal;
end;

function inttosizestr(size:int64):string;
var
sizeunit:integer;
resultsize:real;
begin
sizeunit:=0;
resultsize:=size;
while abs(resultsize)>1024 do
begin
resultsize:=resultsize/1024;
inc(sizeunit);
end;
Result:=formatfloat('#,##0.0',resultsize)+' '+units[sizeunit];
end;

end.

yeah pretty shitty coded but I did it in less than an hour Smile

=> NFOrce GIF plugin <= - Ryzen 3800X, 16GB DDR4-3200, Sapphire 5700XT Pulse