Auf das mit den Smileys hätte ich selber kommen können!!
nun mein code (lacht mich bitte nicht aus)
ich habe versucht mit einem Timer zu checken ob das Programm minimiert ist:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if [b]IsIconic(Form1.Handle)[/b] then
showmessage('Hallo');
end;
das fettgeschriebene habe ich von oben (Christian Seehase)
[edit=Christian Seehase]Pre-Tags gesetzt. Mfg, Christian Seehase[/edit]