Problema com meu script

[Kali]

Olha eu novamente, rss :) .

Então, desenvolvi o seguinte script em Delphi porém não está funcionando á intenção dele é : Verificar se á minha Thread está suspença ou foi finalizada, utilizando á API CreateThread.

Code:

******* Criação de um procedimento com meu nome

Procedure MyName(Nome : String);
begin
  Nome := 'David';
end;


******* Criação da minha Thread

var 
  hThread : THandle;
  hThdID  : Cardinal;
hThread := CreateThread(nil, 0, @MyName, nil, 0, hThdID);

******* Verificação das Threads

if SuspendThread(hThread) > 0 then
ShowMessage('Minha Thread foi suspença');
if TerminateThread(hThread, 0) then
ShowMessage('Minha Thread foi finalizada.');

** FIM.

Então este meu script não funciona, fiz com base em um artigo,onde sera que estou errando? rss tranks.

[Jhonas]

vce deve ler o artigo com calma ou não vai entender como fazer...

exemplo

Defina uma classe que descenda de TThread:

type TPingThread = Class(TThread)
      procedure   Execute; override;
      constructor Create;
end;

Defina uma variável p/ a Thread:

var PT:TPingThread;

No onCreate do Form você instancia:

PT := TPingThread.Create;

Depois implemente os dois métodos:

constructor TPingThread.Create;
begin
 inherited Create(true); // cria suspensa
 FreeOnTerminate := false; // deixa vc liberar o objeto
end;

procedure TPingThread.Execute;
begin
 While not Terminated do
 begin
// Aqui vc coloca o código do evento timer
// Não deixe sair deste While, executando Suspend após sua tabela chegar ao fim
end;
end;

No onTimer você ativa:

PT.Resume;

No onDestroy você libera:

PT.Free;

Antes de dar o Resume, teste se ela está suspensa:

if PT.Suspended then
 PT.Resume;

OK.... Se ainda não entendeu, leia o artigo desse link ( com calma ... rs )

http://www.forum-invaders.com.br/vb/showthread.php/13989-Tutorial-Delphi-Threads

abraço

[Kali]

Muito obrigado novamente jhonas , rs.

O problema é que, á classe TThread entrou para deprecated, estou tentando utilizar á API do Windows (CreateThread) .

Eu consigo fazer o seguinte.

Crio á minha Thread.

Consigo suspende-lá.

Consigo resumi-lá.

com as funções (SuspendThread, ResumeThread) porém meu problema está sendo na checagem, rss .

Você poderia me explicar como faço está checagem atráves da API CreateThread ? eu procuro na internet so acho para á classe TThread. .

[Jhonas]

veja se esse artigo te ajuda

http://www.cs.rpi.edu/courses/netprog/WindowsThreads.html

abraço

[Kali]

Olhei o script e não consegui achar o que eu queria :/ .

[Jhonas]

estou tentando utilizar á API do Windows (CreateThread)

pesquise nesse link

https://www.google.com.br/?gfe_rd=cr&ei=eu3HVPP2EtDAqAX42IDADQ&gws_rd=ssl#q=createthread+api+windows

abraço

[Kali]

Sem sucesso também jhonas, preciso resolver somente um problema no meu script que é este:

if SuspendThread(hThread) > 0 then
ShowMessage('Minha Thread foi suspença');
if TerminateThread(hThread, 0) then
ShowMessage('Minha Thread foi finalizada.');

O meu sistema de checagens das threads, eu verifiquei o mesmo suspende á minha thread é depois exibe o resultado (Thread foi suspença) Queria apenas impedir que terçeiros pausa-sem ás. Sabe como posso fazer isto ?

Abraços.

[Jhonas]

se voce usar o delphi seria isso:

Antes de dar o Resume, teste se ela está suspensa:

if PT.Suspended then
PT.Resume;

OBS: Não utilizo API do Windows (CreateThread)

abraço

[Kali]

Jhonas, no seu ponto de vista qual o metodo mais correto de se utilizar uma Thread para um anti-cheat de um jogo online?

Pela classe TThread ou pelas APIs do Windows ?

[Jhonas]

acredito que usando APIs do windows

mas se quer saber mais sobre o assunto veja:

http://www.webcheats.com.br/forum/visual-basic/1640577-tutorial-como-criar-um-anti-cheat.html

outros links

https://www.google.com.br/?gfe_rd=cr&ei=pCPIVPW0B9LCqAWPzoHACQ&gws_rd=ssl#q=anticheat+delphi&spell=1

abraço

[Kali]

Jonathan, aproveitando aqui o assunto..

Você sabe utilizar á função Recv do Winsock ? poderia me da um exemplo se o meu aplicativo receber um determinado packet ele me retorne uma mensagem ? rss .

Se não for pedir de mais ..

[Jhonas]

voce já viu o seu proprio post sobre isso ? não resolveu ?

https://www.scriptbrasil.com.br/forum/topic/176162-api-recv-winsock-delphi/

abraço