Okna modalne

Witam wszystkich !
Jak przesunac, ustawic w danym miejscu ekranu informacje, ktora jest oknem modalnym, np. ShellAbout ?

napisz konkretniej co chcesz zrobić! malować po pulpicie ?

Nie, ShellAbout jest oknem modalnym, chce go tylko przesunac w odpowiednie miejsce ekranu, da sie to jakos zrobic ?

znajdujesz jego uchwyt i w 2 watku go przesuwasz.

<ort>nie stety</ort> jakos to nie chce dzialac

to napisz jak to robisz

..ano tak :

var
ikona : HIcon;
H : Hwnd;
begin
ikona := ExtractIcon(Handle, PChar(Application.ExeName), 0);
H := FindWindow(nil, 'Windows - informacje');
ShellAbout(H, 'ANY STRING', ikona);
MoveWindow(H,1,1,450,400,False);
end;

H := FindWindow(nil, 'Windows - informacje');
ShellAbout(H, 'ANY STRING', ikona);

Jeżeli już to:

ShellAbout(H, 'ANY STRING', ikona);
H := FindWindow(nil, 'Windows - informacje');