Witam wszystkich !
Jak przesunac, ustawic w danym miejscu ekranu informacje, ktora jest oknem modalnym, np. ShellAbout ?
0
0
napisz konkretniej co chcesz zrobić! malować po pulpicie ?
0
Nie, ShellAbout jest oknem modalnym, chce go tylko przesunac w odpowiednie miejsce ekranu, da sie to jakos zrobic ?
0
znajdujesz jego uchwyt i w 2 watku go przesuwasz.
0
<ort>nie stety</ort> jakos to nie chce dzialac
0
to napisz jak to robisz
0
..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;
0
H := FindWindow(nil, 'Windows - informacje');
ShellAbout(H, 'ANY STRING', ikona);
Jeżeli już to:
ShellAbout(H, 'ANY STRING', ikona);
H := FindWindow(nil, 'Windows - informacje');