Postagens

Mostrando postagens com o rótulo delphi

Postagem em destaque

Huguinho e Zezinho surfando com granizo

Imagem
Certa vez, em outubro de 2023, Huguinho e seu amigo Zezinho foram surfar no final da tarde. O vento estava forte e a chuva, constante. Quando chegaram perto da praia, mal conseguiam segurar suas pranchas. O mar estava bem mexido, e ainda tiveram que andar cerca de 1 km até o pico. Quando estavam se aproximando, começou a cair granizo! Dava para ouvir claramente o barulho das pedras contra as pranchas. Eles se abrigaram embaixo do posto avançado dos salva-vidas, mas não adiantou muito. Ficaram olhando o mar — que estava bem agitado e quebrando bem longe — e perceberam que estava difícil passar a arrebentação. Como o granizo não parava, decidiram entrar assim mesmo. Logo que entraram no mar, o granizo cessou, mas aí começou o verdadeiro desafio: passar a arrebentação. Depois de levar várias séries na cabeça e quase sem forças, finalmente conseguiram. E começaram os raios! Quando estavam quase decidindo sair por causa deles, os raios pararam. Ufa! É algo estranho: você está lá, só você (c...

Como enviar um clique para outra aplicação, em Delphi

Vou mostrar aqui como enviar um clique do mouse para uma outra aplicação. Precisei disso para automatizar um processo, já o aplicativo em questão não tinha uma opção de linha de comando para já iniciar no item que eu desejava. Além disso, ele também não aceita o controle via teclado, apenas mouse. program sendClick; uses Windows, SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Messages, Dialogs; var WindowHandle : HWND; pt: TPoint; begin if (paramstr(4) > '') then begin WindowHandle := FindWindow(nil, pchar(paramstr(4))); if WindowHandle = 0 then begin ShowMessage('Program not found.'); halt;; end; end else WindowHandle := GetActiveWindow; pt.x := Round(strtoint(paramstr(2)) * (65535 / Screen.Width)); pt.y := Round(strtoint(paramstr(3)) * (65535 / Screen.Height)); Sleep(StrtoInt(paramstr(1)) * 1000); SetForegroundWindow(WindowHandle); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, pt.x, pt.y, 0, 0); ...