Otóż wypociłem coś takiego:
var
a, c:TMessage;
p, b:Tpoint;
THandle:Hwnd;
begin
t:=FindWindow(nil, 'Folder') ;
p.X:= 243;
p.Y:= 308;
a.LParam:=MakeLParam(p.X,p.Y);
b.X:= 254;
b.Y:= 498;
c.LParam:=MakeLparam(b.X,b.Y);
SendMessage(THandle, WM_MouseMove, 0, a.LParam);
SendMessage(THandle, WM_LButtonDown, MK_LBUTTON, a.LParam);
SendMessage(THandle, WM_MOuseMove, MK_LBUTTON , c.LParam);
SendMessage(THandle, WM_LBUTTONUP, 0, c.LParam);
end;
No i w założeniu miał on przerzucać ikony w folderze "Folder", tylko że nie chodzi mi to i nie mam zielonego pojęcia czemu, wiem źe jest cos takiego jak mouse_event ale wolałbym aby nie "blokowała" mi sie myszka podczas działania programu. Dlatego mam prośbe aby ktoś mi powiedział co robię źle lub może podał inny sposób jak bez blokowania myszki symulować jej prace w tle. Może problem jest banalny i śmieszny, ale dopiero się ucze więc prosze o wyrozumiałość.
Pozdrawiam