Auf Wunsch hier ein Beispiel Programm.
Grundlage ist der Code von Uwe weiter oben
Ich verwende Delphi 10 Seattle und Windows 10
Danke
Zum reinschauen ist es schon mal gut und ja ich weiß das es unter Windows 7 nicht funktioniert.
Was ich damit sagen will hab kein W10 und auch kein Seattle
gruss