دخول

ALmuhhnad · 07-01-2013, 01:01 PM

هذا مثال في دلفي. هل استطيع ان اعمل هذا المثال في ملف تنفيذي

كود :
library Pickip;

uses
  Windows;

procedure Pick();
var
  Pickx : Cardinal;
begin
  Pickx := $0044E9B0;
  asm
    MOV ECX,DWORD PTR DS:[81827Ch]
    Call Pickx
  end;
end;

procedure Watek();
begin

  while (True) do
  begin
    pick;
    Sleep(300);
  end;

end;


procedure dllmain(dwReason: integer);
var
  Id : Cardinal;
begin
  case dwreason of
    DLL_PROCESS_ATTACH:
      CreateThread(nil,0,@Watek,nil,0,id);
  end;
end;

begin
  DLLProc := @DLLMain;
  DLLMain(1);
end.

أيضاً إذا كان هناك درس لعمل ملف dll مثل هذا وشرحه خطوة بخطوة لاني قمت بنسخ هذا المثال من منتدى اجنبي

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة