какая функция определяет - была-ли нажата левая кнопка мыши, положение мышки на экране

[Wicing]

какая функция определяет:
1. была-ли нажата левая кнопка мыши;
2. положение мышки на экране;

[Kostia]

1)

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
   key: tkeyboardstate; 
   i: integer; 
begin 
   form1.Caption:=''; 
   GetKeyboardState(key); 
   for i:=0 to 255 do 
     if (key[i]=128)or(key[i]=129) then 
       form1.Caption:=form1.Caption+' '+inttostr(i); 
end;

Интервал таймера = 1
Примечание: Узнает не только состояние клавиатуры, но и мыши.


2)GetCursorPos(pos); // pos: tpoint

[Wicing]

Спасибо!
У меня еще вопрос: какая функция или процедура меняет картинку на рабочем столе? за ранее большое спасибо!!

[Kostia]

procedure tform1.formcreate(sender: tobject);
var
  st : string;
begin
  st := 'c:mywallpaper.bmp';
  systemparametersinfo(spi_setdeskwallpaper,uint(st), nil, spif_sendchange);
end;

[Wicing]

Спасибо большое!!!
извините но у меня возник еще вопрос:
как сделать чтобы при сворачивании моя прога уходила в трей?

[Alex21]

Сообщение от Wicing

как сделать чтобы при сворачивании моя прога уходила в трей?

Поиск по форуму - вы удивитесь количеству таких тем