]>
Commit | Line | Data |
---|---|---|
23c9e63c DD |
1 | /* |
2 | * Copyright (c) 2000, Red Hat, Inc. | |
3 | * | |
4 | * This program is free software; you can redistribute it and/or modify | |
5 | * it under the terms of the GNU General Public License as published by | |
6 | * the Free Software Foundation; either version 2 of the License, or | |
7 | * (at your option) any later version. | |
8 | * | |
9 | * A copy of the GNU General Public License can be found at | |
10 | * http://www.gnu.org/ | |
11 | * | |
12 | * Written by DJ Delorie <dj@cygnus.com> | |
13 | * | |
14 | */ | |
15 | ||
16 | /* The purpose of this file is to hide the mess needed just to figure | |
17 | out how full a given disk is. There is an old API that can't | |
18 | handle disks bigger than 2G, and a new API that isn't always | |
19 | available. */ | |
20 | ||
21 | #include "win32.h" | |
22 | ||
23 | #include "diskfull.h" | |
24 | ||
25 | typedef BOOL WINAPI (*GDFS)(LPCTSTR, PULARGE_INTEGER, PULARGE_INTEGER, | |
26 | PULARGE_INTEGER); | |
27 | ||
28 | int | |
29 | diskfull (char *path) | |
30 | { | |
31 | WINAPI GDFS gdfs = 0; | |
32 | ||
33 | HINSTANCE k = LoadLibrary ("KERNEL32.DLL"); | |
34 | if (k) | |
35 | { | |
36 | gdfs = (GDFS) GetProcAddress (k, "GetDiskFreeSpaceExA"); | |
37 | ||
38 | if (gdfs) | |
39 | { | |
40 | ULARGE_INTEGER avail, total, free; | |
41 | if (gdfs (path, &avail, &total, &free)) | |
42 | { | |
43 | int perc = avail.QuadPart * 100 / total.QuadPart; | |
44 | return 100-perc; | |
45 | } | |
46 | } | |
47 | } | |
48 | ||
49 | char root[4]; | |
50 | if (path[1] != ':') | |
51 | return 0; | |
52 | ||
53 | root[0] = path[0]; | |
54 | root[1] = ':'; | |
55 | root[2] = '\\'; | |
56 | root[3] = 0; | |
57 | ||
58 | DWORD junk, free_clusters, total_clusters; | |
59 | ||
60 | if (GetDiskFreeSpace (root, &junk, &junk, &free_clusters, &total_clusters)) | |
61 | { | |
62 | int perc = free_clusters * 100 / total_clusters; | |
63 | return 100-perc; | |
64 | } | |
65 | ||
66 | return 0; | |
67 | } |