Simular Mouse Click sem utilizar o mouse - Delphi 7

Abaixo uma function bem simples, que simula o pressionamento do botão esquerdo do mouse em certa posição da tela sem utilizar o mouse, ou seja o mouse fica livre para ser utilizado enquanto a aplicação executa a função.

Procedure SendMouseClick(x,y:Integer);

begin

h := FindWindow(nil, 'Janela que vai clicar');

SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(x,y));

SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, MAKELPARAM(x,y));

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

SendMouseClick(764,366);

end;

Legenda:

Azul: Coordenadas que vai executar o click.

Vermelho: Janela que vai clicar.

Sistema de Usuarios - Delphi 7

Eai galera, estou postando o código fonte de um Sistema que cadastra, pesquisa e edita usuarios que fiz no delphi 7, depois eu melhoro ele mas é bom para estudar já.

Download Source: http://www.speedyshare.com/2yA2a/Controle-Source.rar

Download Executavel: http://www.speedyshare.com/eBKeT/Executavel.rar

Achando as coordenadas x e y no Delphi 7

Boa tarde galera, fiz mais uma video aula ensinando a achar as coordenadas x e y do mouse na tela, façam bom proveito.

Timer 1

var 

p: Tpoint; 

s: string;

begin

GetCursorPos(p);

s:= inttostr(p.x);

Label3.Caption := s;

end;

Timer 2

var 

p: Tpoint; 

s: string;

begin

GetCursorPos(p);

s:= inttostr(p.y);

Label4.Caption := s;

end;

Adress Tibia 9.60

Peguei esses adress lá no www.blackdtools.com, façam bom proveito.

Adresses

tibiaModuleRegionSize=&H2EF000
MemLoginServer1=&H7B06D0
MemLoginServer2=&H7B0740
MemLoginServer3=&H7B07B0
MemLoginServer4=&H7B0820
MemLoginServer5=&H7B0890
MemLoginServer6=&H7B0900
MemLoginServer7=&H7B0970
MemLoginServer8=&H7B09E0
MemLoginServer9=&H7B0A50
MemLoginServer10=&H7B0AC0
MemPortLoginServer1=&H7B0734
MemPortLoginServer2=&H7B07A4
MemPortLoginServer3=&H7B0814
MemPortLoginServer4=&H7B0884
MemPortLoginServer5=&H7B08F4
MemPortLoginServer6=&H7B0964
MemPortLoginServer7=&H7B09D4
MemPortLoginServer8=&H7B0A44
MemPortLoginServer9=&H7B0AB4
MemPortLoginServer10=&H7B0B24
adrMulticlient=&H52B215
PLAYER_Z=&H97CEB0
LEVELSPY_NOP=&H4EF360
LEVELSPY_ABOVE=&H4EF35C
LEVELSPY_BELOW=&H4EF364
LIGHT_NOP=&H50ED39
LIGHT_AMOUNT=&H50ED3E
MAP_POINTER_ADDR=&H9D1CF4
OFFSET_POINTER_ADDR=&H9D1D10
adrConnectionKey=&H7A5BD0
adrXOR=&H7B0054
adrMyHP=&H945000
adrMyMaxHP=&H97CE9C
adrMyMana=&H7B00A8
adrMyMaxMana=&H7B0058
adrMySoul=&H7B0094
adrNameStart=&H945008
adrNChar=&H945008
adrNum=&H97CEA4
adrXPos=&H97CEA8
adrYPos=&H97CEAC
adrZPos=&H97CEB0
adrConnected=&H7B9EA8
RedSquare=&H7B00A4
adrLastPacket=&H7B6F52
adrCharListPtr=&H7B9E74
adrSelectedCharIndex=&H7B9EF4
adrXgo=&H97CEA0
adrYgo=&H97CE98
adrZgo=&H945004
LAST_BATTLELISTPOS=1299
CharDist=&HB0
adrGo=&H945058
adrPointerToInternalFPSminusH5D=&H98EFF0
adrNumberOfAttackClick=&H9CBC5C

Criar sistema de login sem database no delphi 7

Este é mais um tutorial que fiz há algum tempo e estou postando aqui para vocês.

1º Passo:

Quote

Adicione: 2 Label;

2 EditBox;

1 Button.

2º Passo:

Quote

Clique na EditBox cuja está escrito Edit1, no object inspector procure por Text e apague o text.

Faça o mesmo na Edit2.

3º Passo:

Quote

Altere a caption das labels 1 e 2 respectivamente para: Login, Senha.

4º Passo:

Quote

Altere a caption do Button1 a seu gosto, como por exemplo: "Ok", "Entrar", "Acessar".

5º Passo:

Quote

De dois cliques no Button e adicione entre begin e end:

if Edit1.text = 'admin' then

begin if Edit2.text = '1234' then

begin

MessageBoxA(handle, 'Login Realizado com Sucesso!', 'LOGIN', 0);

end

else begin

MessageBoxA(handle, 'Login correto e senha incorreta!', 'LOGIN', 0);

end

end

else

begin

MessageBoxA(handle, 'Informações incorretas!', 'LOGIN', 0);

end;

6º Passo:

Quote

Compreendendo o código:

Vermelho: Login para acessar;

Laranja: Senha para acessar;

7º Passo:

Quote

Agora é só salvar e clicar f9 para testar.

Simulando mouse click com Delphi 7

Boa Noite galera, esta video aula eu fiz para ensinar a fazer um mouse click, espero que façam bom proveito.

Códigos Utilizados:

Timer:

SetCursorPos(X, Y); // Posições x e y do mouse na tela

Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 ); // Clica o botão esquerdo do mouse

Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ); // Solta o botão esquerdo do mouse

Button1.Caption := 'Desligar'; // Transforma o caption do botão 1 em 'Desligar'

Button1:

Timer1.Enabled := true; // Ativa o Timer

Button2:

MessageBoxA(handle, 'Funcionou!', 'Funcionou!', 0); // Exibe mensagem que funcionou

Download do Source: http://speedy.sh/jXt6M/TUTORIAL-TK.rar