Handle auf Vista unter XP nicht gefunden

[erich.wanker]

in deiner Unit steht ja:

Code:

type
  TForm1 = class(TForm)
...

var
  Form1: TForm1;

...ich würde da reinschreiben:

Code:

type
  TMein_Programm = class(TForm)
...

var
  Mein_Programm : TMein_Programm ;

und finden kannst dann das Fenster mit:

Code:

FindWindow('TMein_Programm ', nil)