Beyler acil yardım lazım...

[Lord_Ares]

Ortada ne kodun var nede projen hakkında bilgi. Siz resmen kahin arıyorsunuz. Biraz daha açık olursanız eminim ki fikirlerini söylecek çok kişi çıkar.
Saygılarımla

[mrmarman]

ilk gözüme çarpan iki hata
(1) parantez kapatmamışsın.
(2) PHandle tanımlamamışsın.

Kodlarını [CODE.] tagına almazsan da okunur olmuyor. Programcılık forumlarında bu kural genel kuraldır.

Kod: Tümünü seç

var
  NomeJanela  : Thandle;
  PHandle     : THandle;
  PID, TID    : DWORD;

Procedure PefarHandle(Titulo:String);
Begin
  NomeJanela:=Findwindow(nil, pChar (Titulo));
  If NomeJanela <= 0
  then Showmessage('mesajını buraya yaz ')
  else TId := GetWindowThreadProcessId(NomeJanela, @PID);
  PHandle := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);
end;

Procedure ler(Endereco:dword);
var
  ler:dword;
  valor:integer;
begin
  valor:= 0;
  ReadProcessMemory(PHandle,pointer(endereco) ,addr(valor),4,Ler);
end;

Procedure escreve(Endereco:dword ; valor: integer);
var
  w:dword;
begin
  writeprocessmemory(PHandle,pointer(endereco),addr( valor) ,4,w);
end;

[mrmarman]

Hocam hangi dilden anlıyorsunuz, size gördüklerimi Türkçe ifade ettim.

Verdiğim kod zaten düzenleme yaptığım hali, üç beş satır kodu dahi denemek veya gözle karşılaştırmak zahmetine girmiyorsanız Programcılık kavramını yeniden düşünmeniz anlamına geliyor.

Ha ben sadece işim görülsün programcı olmak istemiyorum dersen vaktimi bir dahaki sefere bu mesleği öğrenmek isteyen başkalırına ayırmak isterim.

Başarılar.

[cinarbil]

sizin kodunuz

Kod: Tümünü seç

writeprocessmemory(PHandle,pointer(endereco),addr( valor) ,4,w;

sayın mrmarman kodu

Kod: Tümünü seç

writeprocessmemory(PHandle,pointer(endereco),addr( valor) ,4,w);

Ben şunu anladım uykulu ve telefondan kod karşılaştırmamak gerekiyor