development-point - تخطي النظام الوهمي بلدلفي (مع الاكواد والشرح)

*. ارحب بكم اخواني واخواتي

*. اتمنى ان تكونو في تمام الصحة والعافية.*

http://img.dev-point.com/imgcache/2013/09/11042.gif

*. [ .. الموضوع .. ] .*
*. [ ~..تخطي النظام الوهمي بلدلفي http://www.dev-point.com/vb/imagize/smilies/15.gif.. ~ ] .*

اكتشفت الطريقه بمجهودي الشخصي
يوجد اكثر من طريقه للتخطي واعرف 3 طرق
لاكن هذه اسهل طريقه حسب خبرتي المتواضعه

------------------------------------------------------------------------------

كان عندي وقت فراغ وحللت النظام الوهمي وشفت الفرق
ولقيت درايفرات خاصه بلنظام الوهمي يوجد اكثر من درايفر
وهذه اثنان فقط (يوجد اكثر)

كود:

VBoxSF.sys VBoxMouse.sys

راح نستعمل VBoxMouse.sys

http://img.dev-point.com/imgcache/2013/09/11042.gif

اولا نحتاج ان نحضر مسار مجلد الويندوز
كما نعرف كل شخص يثبت الويندوز ببارتشن مختلف
مثلا
C:\
D:\
E:\

نحن فقط نحتاج المجلد لهذا
نستعمل

GetWinDir

كود:

كود:

         function GetWinDir: string; var   dir: array [0..MAX_PATH] of Char; begin   GetWindowsDirectory(dir, MAX_PATH);   Result := StrPas(dir); end;

الان وصلنا لمجلد الويندوز

نحتاج كود يوصلنا الى السستم 32
بحيث يكون هكذا

كود:

كود:

GetWinDir+'\system32\drivers\';

لاكن سوف نعمل فونكشن له
ويصبح الفونكشن هكذا

كود:

كود:

function getsystem32drivers:string; begin result:=GetWinDir+'\system32\drivers\'; end;

الحين كلشي تمام
وصلنا لمجلد الويندوز
وايضا السستم 32
بقى لنا ان نتاكد من الدرايفر اذا موجود او لا
وهذا اسهل جزء بلموضوع راح نستعمل
FileExists

كود:

كود:

          if  FileExists(getsystem32drivers+'VBoxMouse.sys') then  ShowMessage('File Exists')   else  ShowMessage('File Not Found'); end.

اذا وجد الملف راح يكتب File Exists
واذا لم يجد الملف راح يكتب File Not Found

-----------------------------------------------------------------

انا استعملت مشروع كونسل
وهذا الكود بلكامل

كود:

كود:

         program Project2;  {$APPTYPE CONSOLE}  uses     Windows, SysUtils,Dialogs;   function GetWinDir: string; var   dir: array [0..MAX_PATH] of Char; begin   GetWindowsDirectory(dir, MAX_PATH);   Result := StrPas(dir); end;  function getsystem32drivers:string; begin  result:=GetWinDir+'\system32\drivers\'; end;  begin  if  FileExists(getsystem32drivers+'VBoxMouse.sys') then  ShowMessage('File Exists')   else  ShowMessage('File Not Found'); end.

وبحسب خبرتك والي انت تريده
تكتب الكود الي تحتاجه وراح ينفذه لك

http://img.dev-point.com/imgcache/2013/09/11042.gif

*. [ ~ .. في أمان الله .. ~ ] .*