Anyone good in pascal/turbo pascal ?
#1
Just need a little help here if there are any gurus.
I need to write a program that compares the size of a directory to the size of a removable disk.
The problem is I can't find a logical way to find the size of the removable disk (usually E: but can't be gaurenteed) Anyone know of a way to do this ?
BTW It is years since I have done any pascal but I have to write this as what im using at the moment is a nasty nasty dbase routine hack
I need to write a program that compares the size of a directory to the size of a removable disk.
The problem is I can't find a logical way to find the size of the removable disk (usually E: but can't be gaurenteed) Anyone know of a way to do this ?
BTW It is years since I have done any pascal but I have to write this as what im using at the moment is a nasty nasty dbase routine hack
#2
Scooby Regular
Join Date: Sep 1999
Location: Bedfordshire
Posts: 4,037
Likes: 0
Received 0 Likes
on
0 Posts
Stuey,
I do alot of delphi dev. work, under windows its pretty easy cos you can just use win32 api functions like gtediskfreespace and getdrivetype to find what you need. Are you restricted to a DOS environment? Under TP you would probably have to use something like TSearchRec to get a file list and work with that.
Gary
I do alot of delphi dev. work, under windows its pretty easy cos you can just use win32 api functions like gtediskfreespace and getdrivetype to find what you need. Are you restricted to a DOS environment? Under TP you would probably have to use something like TSearchRec to get a file list and work with that.
Gary
#3
Scooby Regular
Join Date: Mar 2000
Location: Gloucestershire, home of the lawnmower.
Posts: 4,531
Likes: 0
Received 0 Likes
on
0 Posts
Yep, two minutes work in Delphi under Windows, but for the old TP stuff, take a look at this archive, source examples on finding disk space and disks on the system.
Cheers
Ian
Cheers
Ian
Thread
Thread Starter
Forum
Replies
Last Post
Mattybr5@MB Developments
Full Cars Breaking For Spares
33
29 August 2017 07:18 PM
Scott@ScoobySpares
Full Cars Breaking For Spares
7
14 December 2015 08:16 AM
Mattybr5@MB Developments
Full Cars Breaking For Spares
20
22 October 2015 06:12 AM