Einzelnen Beitrag anzeigen

DennisHB

Registriert seit: 25. Aug 2003
Ort: Bremen
58 Beiträge
 
Delphi 6 Personal
 
#1

DesktopAddOn (Function für die Mittleremaustaste)

  Alt 14. Feb 2007, 16:11
Hallo,

hier mal ein "kleines" Tool welches, bei einem MittlererMaustaste-Klick auf den Desktop, die Laufwerke anzeigt und per Klick auf eines der Laufwerke, dieses im Explorer öffnet.

Eigentlich nix besonderes aber, da bei mir die Mittleretaste keine Funktion hat, für mich ne nette "Spielerei".

Um die WM_MBUTTONDOWN-Message abzufangen wird ein JournalHook gestartet.
Das Tool verschwindet in der Taskleiste (dank CoolTrayIcon von Troels Jakobsen).
Beenden lässt es sich über eben dieses TrayIcon - wobei auch der Hook wieder entfernt wird.

Was mich stört und wobei ich um Hilfe/Erklärung bitte...
das Programm is ja nun nix "dolles", warum verbraucht es dann soviel RAM? Und wie kann ich das minimieren?
Nach Speicherlücken hab ich nun schon gesucht kann aber selbst nix mehr finden.

mfg
Dennis

/Edit
Kleine Änderung ("Laufwerkensgrößenfeststellung" wird nun nicht mehr bei CDs ausgeführt)
Abfrage ob der Hook "instaliert" werden konnte, verbessert.
Attachment's aktualisiert

/Edit2
Den Speicherfresser hab ich nun gefunden die VCL - bzw TApplication und TForm aus der Unit Forms haben Sage und Schreibe 4,5 MB Ram bedarf... muss ich mir wohl doch mal die nonVCL-Tuts anschauen.

/Edit3
Einige Einstellungen für Linker und Compiler verändert - dadurch sinkt der RAM bedarf von 6-7 auf ~4 MB
Attachment's aktualisiert
Miniaturansicht angehängter Grafiken
deskadd_188.jpg  
Angehängte Dateien
Dateityp: rar desktopaddon_src_168.rar (30,8 KB, 41x aufgerufen)
Dateityp: rar desktopaddon_154.rar (189,1 KB, 51x aufgerufen)
  Mit Zitat antworten Zitat