HDD Activity σε Delphi

[user9]

Ενδιαφέρομαι να γράψω σε Delphi ένα πρόγραμμα που θα δείχνει "οπτικά" την χρήση του σκληρού δίσκου (ή των σκληρών δίσκων αν είναι περισσότεροι από ένας) του εκάστοτε μηχανήματος.

Επειδή χρησιμοποιώ αρκετά μηχανήματα με Remote Desktop στα οποία δεν έχω φυσική πρόσβαση θα ήθελα να μπορώ να ελέγχω από το desktop την κίνηση στους δίσκους τους.

Γνωρίζει λοιπόν κανείς κάποιο component ή που και πως (κυρίως) να ψάξω για να βρω κώδικα ή/και πληροφορίες που να με βοηθήσουν να φτιάξω το πρόγραμμα?

[dvm]

Κοίτα γενικά δεν έχω ιδέα, αλλά παλιά που ήθελα να γράψω ένα key-logger μια περίπτωση ήταν τα hooks. Αν θυμάμαι καλά είναι κάτι σαν callbacks που τρέχουν όπου τα έχεις βάλει εσύ (στην περίπτωσή μου, όταν πατιόταν κάποιο πλήκτρο). Δες το win32 api & hooks για σχετικά. Αν μπορέσεις να κάνεις register ένα hook για εγγραφή και διάβασμα δεδομένων από τον δίσκο θα είσαι οκ. Πάντως γενικά δεν θα είναι πολύ εύκολο, θα έχει διάβασμα. Από την άλλη, αν μπορούσες να βρεις ποια dll καλεί ο Task Manager θα ήταν μια αρχή. Στα processes άμα πας view-> select columns έχει I/O Read & I/O Write. Λογικά αυτά τα δεδομένα από κάποιο dll θα τα παίρνει.
Ελπίζω να σου έδωσε μερικές ιδέες.

[BlurCode]

http://www.magsys.co.uk/delphi/magwmi.asp

Αν θες και remoting δες το RemObjects Framework, το WMI πάντως έχει από μόνο του.

[user9]

Thanks.

To Magenda WMI το είχα κατεβάσει χθες και προσπαθούσα να δω πως να το χρησιμοποιήσω. Είναι εύκολο να βρεις πληροφορίες από το SMART κυρίως σχετικά με τα serials και την φυσική κατάστασή του. Αλλά δεν έχουν όλοι ενεργοποιημένο το SMART στο σύστημά τους (πολλοί δεν θα το ήθελαν καν).

Τα hooks λίγο που έψαξα απλά είναι μπελάς για τα Vista καθώς έχουν κάνει drop το support των 16bit και οι ρουτίνες που αντικατέστησαν τις προηγούμενες έχουν θεματάκια.

[user9]

Το βρήκα!!!!
Πράγματι χρησιμοποίησα το Magenda WMI και βρήκα ένα property "DiskBytesPerSec" που υπάρχει κάπου στο WMI σύστημα. Αυτό μου δίνει την δυνατότητα να ελέγχω (όποτε θεωρώ σκόπιμο, αλλά σχετικά real-time) την κίνηση στο δίσκο και αντίστοιχα να αναβοσβήνει ένα "λαμπάκι". Thanks για την βοήθεια, θα σας στείλω την πρώτη έκδοση δώρο

[skyliner34]

dvm έχω ασχοληθεί πολύ με delphi. Τώρα είδα το lazarus που κάνει compile και σε windows και linux. Το έχεις χρησιμοποιήσει;