douglaspr

Releia minha postagem.

Contas logados no computador e não computadores na rede.

Não retornou nada.

Boa noite, gostaria de saber como listar todos os usuários logados no computador, achei uma chave no regedit em ProfileList a RefCount, que tem seu valor 1 nos usuários logados, porem queria saber se existe outro método. Grato.

já tentei com TThread, timer e SetTimer e ocorre a mesmo coisa.

Se você testou você viu que da crash na aplicação, o seu código :)

Seu codigo não permanece em execução, tem que ficar clicando no botão -.-'

é esse ai, só faltou o procedure Heuristico; encima do var.

Teste assim: var Idx : DWord; begin //if not detectado then begin Application.ProcessMessages; for Idx := 0 to ListaHeur.Count-1 do begin //Delay(10); FecharJanela(ListaHeur.Strings[Idx]); //Delay(10); end; //end; end; function PSDRun3(Inicialize: Pointer):Dword;stdcall; Label GoToLabel; begin //if not detectado then begin GoToLabel : { Heuristico } Heuristico; //Result := 0; GoTo GoToLabel; //end; end; CreateThread(nil, 0, @PSDRun3, Pointer(nil), NORMAL_PRIORITY_CLASS, ThreadId3)

Não está na thread pois tenho mais 2 threads que chamam outras funções e funciona normalmente. Teste você mesmo, com a thread que coloquei acima e verá.

Essa função também causa crash na aplicação se usada a thread com delay baixo.

Não apenas isso, se você observar o código inteiro verá que ele pega todos textos da tela, e fecha através da Pos verificando com minha lista. e não apenas um PostMessage(FindWindow(nil, Caption), WM_Close, 0, 0);

Se eu uso o código do heuristico em sí direto na thread entre os "labels" também ocorre o crash. já usei synchonize e também acontece a mesma coisa.

Sem sleep a aplicação causa crash instantaneamente após iniciar ... segue minha thread: procedure PSDRun2(Inicialize: Pointer); Label GoToLabel; begin if not detectado then begin GoToLabel : { Heuristico } Heuristico; GoTo GoToLabel; end; end; e CreateThread(nil, 0, @PSDRun2, Pointer(nil), 0, ThreadId2);

O erro que acontece é "Access Violation" em function SysGetMem(Size: NativeInt): Pointer; {Set the block header} mov [eax - 4], edx Compilador: Delphi XE3

Boa tarde, estou com um problema ... tenho uma procedure que faz uma verificação heuristica, no caso ela pega todo texto que existe na tela e aplicações e verifica com um listbox pesquisando pela existencia de algum através da função "Pos". Acontece que essa procedure está sendo chamada por uma Thread (CreateThread e GotoLabel) e quando uso um delay (Sleep) baixo ela causa crash na aplicação. Já tentei ao maximo resolver porém sem resultados positivos até agora, se alguém souber como me ajudar agradeço. Segue a procedure: procedure Heuristico; var Idx : Word; X : Word; Caption : Array[0..255] of Char; begin for Idx := 0 to ListaHeur.Count-1 do begin Application.ProcessMessages; for X:=1 to 10000 do begin Application.ProcessMessages; if (GetWindowText(x,Caption,255) <> 0) then begin Application.ProcessMessages; if Caption <> '' then begin Application.ProcessMessages; if (Pos(AnsiLowerCase(ListaHeur.Strings[Idx]), AnsiLowerCase(Caption)) > 0) then begin detectado := true; PostMessage(FindWindow(nil, Caption), WM_Close, 0, 0); CriaLog('null','null', Caption); break; end; Application.ProcessMessages; end; Application.ProcessMessages; end; Application.ProcessMessages; end; Application.ProcessMessages; end; Application.ProcessMessages; end; Grato a todos :)

Bom dia galera, to procurando professional para um serviço, o objetivo é desenvolver um jogo de buraco multiplayer, toda programação em php, xml e design será feita por nós, ficando assim apenas a parte de flash e action script para o professional. Pagamento de R$ 500 podendo ser ajustado para mais. Att, Douglas Pontes Ruiz.

Pelo que olhei não é como falei. teria que apareçer o nome do site.

Boa tarde galera, preciso de uma ajudinha de vocês, preciso formatar um link, no caso eu vou por http://www.google.com.br[Google] e terá que ficar <a href='http://www.google.com.br'>Google</a>. Tenho a seguinte função que formata porem não coloca o nome "Google". function autolink($str, $attributes=array()) { $attrs = ''; foreach ($attributes as $attribute => $value) { $attrs .= " {$attribute}=\"{$value}\""; } $str = ' ' . $str; $str = preg_replace('`([^"=\'>])((http|https|ftp)://[^\s<]+[^\s<\.)])`i','$1<a href="$2"'.$attrs.'>Nome</a>',$str); //$str = substr($str, 1); return $str; } echo autolink("Teste 1 http://www.uol.com.br[Uol] e Teste 2 http://www.google.com.br[Google]", array("target" => "_blank")); alguém saberia como posso fazer para funcionar? Grato.

Obrigado colega, funcionou certinho, apenas corrigindo uma coisa: <tr style='cursor:pointer;' onclick=\"window.open('$cliente','$key');\"> <td width='32'><img src='images/traco.png'></td> <td width='1077'>$key</td> </tr>

Boa tarde, tenho o codigo: $clientes = array ( "Mu" => "www.mu.com.br", "Mu2" => "www.mu2.com.br" ); Quero saber como recuperar o o Mu e saber que o site dele é www.mu.com.br, e assim por diante: Mu2 site www.mu2.com.br. pois pretendo usar um loop para exibir: <tr style="cursor: pointer;" onclick="window.open('www.mu.com.br','Mu');"> <td width="32"><img src="images/traco.png"></td> <td width="1077">Mu</td> </tr> <tr style="cursor: pointer;" onclick="window.open('www.mu2.com.br','Mu2');"> <td width="32"><img src="images/traco.png"></td> <td width="1077">Mu2</td> </tr> grato.

Simples amigo, eu tenho um executavel, um main de um jogo (MuOnline), tenho uma função que percorre ate x bits e escreve encima o novo serial de 16 caracteres, porem da muito erro. queria trocar esse serial em run time, estava vendo por manipulação de memoria mas não sei como faz.

Boa noite, queria saber como posso fazer para conseguir editar um processo. tipo alterar uma coisa na memoria dele, por exemplo no exe dele tem uma string de 16 caracteres, queria saber como alterar essa string em tempo de execução. grato.

Boa tarde, queria saber como faço para listar todos os arquivos de uma pasta e subpastas. Grato.

Boa noite, Oque eu preciso é o seguinte :( tenho 3 inputs em um form, no primeiro ele guarda um valor x, por exemplo: "3000". nos outros você que define o valor, e conforme você vai digitano ele vai subtraino do primeiro. e no restante dos inputs também. gostaria de saber como fazer isso. Grato.