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

میدئنید والا بد جور در گیر امتحانات و درس هایم هستم  و میشه گفت امروز رو فقط وقت کردم حسابی وبگردی و بلاگری کنم . از یه طرف دیگه هم رفتم و دوره های سی شارژ رو تکمیل کردم و دارم با سی شارپ دات نت برنامه های بسیار بسیار پیچیده ای رو می نویسم و دیگه فکر کنم دلفی به کل یادم رفته باشه البته همون طور که از روز اول گفتم اینجا قراره دلفی دات نت کارشه و کم تر رو دلفی وین ۳۲ (Win32) کار شه ولی  خب دیگه یه مسایلی پیش اومدو من هی دلفی وین ۳۲  زدم و.....

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

نکته ی بعد اینکه من آمادگی برای پذیرفتن پروژه های کوچک ئو متوسط و سخت رو دارم . شما با میل من تماس بگیرید پروژه تون رو سفارش بدید با هرامکانی که می خواهید هفته بعد پروژه رو تحویل بگیرید

کار های که فعلا می توانم بپذیرم:

نوع پروژه	پلتفورم
طراحی وب	وب - سرور
طراحی تمامی برنامه های تحت ویندوز ولینوکس	دات نت
طراحی برنامه های تحت ویندوز	وین ۳۲

در ضمن برنامه های تحت وب رو با ای اس ی دات نت + فلش + اچ تی ام ال + طراحی لوگو  را می پذیرم

برنامه  های تحت وین ۳۲ رو با دلفی مینویسم (بدون سورس {البته باسورس بخواهید یکم گرون در میاد})

برنامه های دات نتی رو هم با سی شارپ + همراه با هلپ داینامیک طراحی میکنم که از دیتا بیس تا هک هم می پذیرم {اگه بازهم سورس بخواهید کمی گرون در میاد}

در کل من خیلی منصفم از کار با من ناراضی نخواهید شد . راستی سفارش ها همه از ۲۴ به بعد رسیدگی میشوند  

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

نکته آخر هم اینکه منتظر آموزش من در همین امروز باشید احتمالا نیم ساعت دیگه آموزش هم می گذارم توپ خب دیگه اگه کاری ندارین زیاد مزاحم نمی شم فقط نظر هم یادتون نره

 تا بعد

یا حق

procedure TForm1.Button1Click(Sender: TObject); var   f,t: Double;   Drivename: Char; begin   // Program By S.T.A Group Programming (Saeed System)http://www.delphicode.blogfa.com   // This Program For Get Information From a Partition Disk   Drivename := 'c';   f:= DiskFree(Ord(Drivename) - 64);   t:= DiskSize(Ord(Drivename) - 64);   label1.Caption := Format('فضای خالی: %12.0n', [f]);   Label2.Caption := Format('فضای کل دیسک: %12.0n', [t]);   Label3.Caption := IntToStr(Round((t - f) / t * 100)) +     ' درصد از پارتیشن استفاده شده'; end;

متغیر Drivename را برابر با درایوی که می خواهید فضای آن را بگرید مقدار دهی کنید

نظر هم یادتون نره

یا حق

خب امروز چون روز تولد منه گفتم یه سورس در این رابطه براتون بگذارم کد زیر حاوی یک تابع می باشد که از طریق آن می توان سن افراد را بدست آورد که دارای کد های بسیار ساده و بسیار جالبی می باشد

نکته : به علت استفاده از کلاس TDate محاسبه سن به صورت میلادی می باشد البته من سعی می کنم در ورژن بعدی این مشکل را رفع کنم

function CalculateAge(Birthday, CurrentDate: TDate): Integer;
var
Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
DecodeDate(Birthday, Year, Month, Day);
DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);

if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
begin
Result := 0;
end
else
begin
Result := CurrentYear - Year;
if (Month > CurrentMonth) then
Dec(Result)
else
begin
if Month = CurrentMonth then
if (Day > CurrentDay) then
Dec(Result);
end;
end;
end;

حالا نوبت یه سورس دیگه : برای برنامه های گرافیکی تا به حال در این وبلاگ سورس نداشتیم برای همین براتون یه سورس گرافیکی هم آوردم (اعمال فیلتر Emboss روی تصاویر ) بیشتر از این منتظرتون نمی گذارم :

procedure Emboss(ABitmap : TBitmap; AMount : Integer);
var
x, y, i : integer;
p1, p2: PByteArray;
begin
for i := 0 to AMount do
begin
for y := 0 to ABitmap.Height-2 do
begin
p1 := ABitmap.ScanLine[y];
p2 := ABitmap.ScanLine[y+1];
for x := 0 to ABitmap.Width do
begin
p1[x*3] := (p1[x*3]+(p2[(x+3)*3] xor $FF)) shr 1;
p1[x*3+1] := (p1[x*3+1]+(p2[(x+3)*3+1] xor $FF)) shr 1;
p1[x*3+2] := (p1[x*3+1]+(p2[(x+3)*3+1] xor $FF)) shr 1;
end;
end;
end;
end;

حالا نوبت میرسه به یه سورس توپ دیگه :

برای عوض کردن متن دکمه استارت در ویندوز اکس پی می توانید از تابع زیر استفاده کنید که من نوشتم :

Procedure SetStart(S:String);
Var
y:LongInt;
start,btnst:Hwnd;
Begin
Y:=GetSystemMetrics(SM_CYSCREEN);
Start:=Findwindow('Shell_TrayWnd',nil);
BtnSt:=FindWindowEx(Start,0,'Button',nil);
SetWindowText(BtnSt,PChar(S));
SetCursorPos (10, y - 15 )
End;

برای فشرده سازی فالی ها با فرمت Zlip از تا بع زیر می توانید استفاده کنید :

Uses ZLib;

function CompressStream (aSource, aTarget: TStream): Single;
var
comprStream: TCompressionStream;
begin
comprStream := TCompressionStream.Create(
clFastest, aTarget);
try
comprStream.CopyFrom(aSource, aSource.Size);
Result := comprStream.CompressionRate;
finally
comprStream.Free;
end;
end;

برای خروج از حالت فشرده سازی یا دیکمپرس کردن فایل های Zlip می توانید از تابع یر استفاده کنید :

procedure DecompressStream (aSource, aTarget: TStream) ;
var
decompStream: TDecompressionStream;
nRead: Integer;
Buffer: array [0..1023] of Char;
begin
decompStream := TDecompressionStream.Create(aSource);
try
repeat
nRead := decompStream.Read(Buffer, 1024);
aTarget.Write (Buffer, nRead);
until nRead = 0;
finally
decompStream.Free;
end;
end;

نکته: استفاده از عبارت Uses ZLib فراموش نشود

برای غیر فعال کردن رجیستری ادیتور می توانید از کد زیر استفاده کنید

var
Reg: TRegistry;

Reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('software\microsoft\windows\currentversion\policies\system\',False);
reg.WriteInteger('disableregistrytools',1);

خب امر.ز به مناسبت تولدم براتون چند تا از مفید ترین برنامه هایی که نوشته بودم رو گذاشتم امیدوارم بدردتون بخوره .

در ضمن نظر یاد تون نره که نظرات برای وبلاگ نویس از نون شب واجب تره

در ضمن من حاضر به هر گونه تبادل لینک با شما کاربر عزیز هستم پس منتظر همکاری شما هستیم.

تا بعد خدا نگه دار

دوستان عزیز امروز می خواهم براتون از دات نت بگم !!!!!!! البته اشتباه نکنید  وبلاگ رو درست اومدید ولی دلفی ارتباط بسیار بسیار بسیار بسی بسیار بسیار ^۲ قوی با دات نت داره که میشه گفت دلفی رو برای دات نت ساختن . روال کار با دلفی خیلی شبیه به روال کار با دات نت می باشد .

من خودم قبلنا سی شارپ دات نت C#.NET کار می کردم و میشه گفت تا حد زیادی از اون را ضی بودم . ولی خوب صفاتی که سی شارپ از سی ++ به ارث برده بود منو عذاب می داد . برای همین زدم تو خط پاسکال و دلفی ولی بعدا که از وجود ورژن دات نت دلفی یا همون (دلفی دات نت) با خبرشدم دوباره فکر باز گشت به دات نت افتاد تو سرم. و تا به امروز تتلاش می کنم تا دلفی دات نت یاد بگیرم اما متاسفالنه هیچ مرجع و کتاب کاردرستی در این باره پیدا نکردم !!!!!!!!

برای همین از این جلسه به بعد هر دو سه روز یه بار یه آموزش دات نت می نویسم. حال شما اگه با این کار موافق هستید و دوست دارید با هم دلفی و دلفی دات نت رو یاد بگیریم در نظراتتون اعلام کنید تا  از جلسه بعد کار رو شروع کنیم

پس تا جلسه بعد

البته من نویسنده همان وبلاگ هستم همان طور که در آنجا اشاره شد تمامی مطالب آموزشی از این س در این وبلاگ آموزش داده میشود و وبلاگ http://delphinet.persianblog.com/ در اصل به این جا انتقال یافته است .

در ضمن سال نو را به همه شما تبریک می گویم

نوبتی هم که باشه نوبت به  يه آموزش با حال و توپ ميرسه که با هاش بريد شب عيد حال کنيد  اما امروز براتون يه آموزش در باره رجيستری در نظر دارم که شامل کار با توابع و کلاس ها ی آن می باشد + يه سری چيز های فرامهم برای برنامه نويسی با دلفی  +کلی سورس + سالاد و نوشابه ( شوخی بود ها )

دلفی برای همه چيز و برای همه نوع کا تابع و يونيت و کلا و کامپونت داره همه جوره جدا کار دلفی از اين لحاظ فرا درست ( منظورم بسيار درست) می باشد . آخه حتی برای پروسس منيجر هم تابع داره برای هلپ ويندوز و برای موتور تبديل و برای حتی موتور طراحی وب هم يونيت و تابع و کلاس داره !!!!!!

[ برای اين به اين ها اشاره می کنم که قدر دلفی رو بدونين آخه وقتی می بينم وی بی کار ها حتی برای کار با رجيستری بايد خودشون با Create Object و اين چرت و پرت ها کلاس بسازند دلم براشون ميسوزه وقتی می بينم اون ها هيچ مقداری برای هندل ها و هندل ديوايس ها و پروسس ها ندارند دلم براشون خون ميشه آخه زبان برنامه نويسی اين قدر عقب افتاده !!!!!!!!!(توجه وی بی کار ها اصلا بهشون بر نخوره ولی حقيقت تلخه ديگه بپذيريد که وی بی خودشو بکشه به گرد  دلفی نمی رسه ) ]

يه توضيح کوچولو:يه عده به اشتباه فکر می کنند که برای کار باشبکه بايد از وين ساک WinSock استفاده کنند اين فکر به شدت اشتباه است و بسيار خنده دار دلفی برای کار با شبکه از سيستم پيشرفته Indy استفاده می کند که ساز گار با TCP/IP و تمام پروتکل های موجود برای شبکه ها است , ميباشد پس از اين به بعد به اين فکر احمقانه ( استفاده از وين ساک) نيافتيد اگه خواستيد در مورد ايندی (Indy)بعدا بيشتر براتون توضيح می دهم

وحالا رجيستری

رجيستر رو در زبان عاميانه قلب ويندوز ان تی می دانند . رجيستری يک مر کز بسيار مهم در ويندوز می باشد که در انجا تمامی برنامه ها و مقدار ها و فرمت ها و تنظيمات ثبت ميشوند در رجيستری می توان به تنظيمات ويندوز دست پيدا کرد و با استفاده از آن بدون استفاده از کنترل پنل تنظيمات ويندوز رو عوض کرد .

شما برای کار با رجيستری در دلفی نياز به تعريف و نوشتن هيچ کلاس و متد و آبجکت نداريد  شرکت جيگر طلای من ( بورلند ) برای کار با رجيستر يه يونيت با همين نام Registry  ارائه داده که تمام نياز های ملت رو برای کار با رجيستر تامين می کنه که شامل کلاس TRegistry می باشد که دارای روال ها و تابع های خاصی مثل

CreateKey يا WriteString يا DeleteKey يا MoveKey يا ReadFloat و....ميباشد. نحو اصلی کار با رجيستری و ثبت کردن مقدار ايجاد يک کليد و....  به اين صورت می باشد که :

ابتدا يونيت رجيستری رو به ليست Uses يونيتمون اضافه می کنيم به شکل زير :

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs,Registry;

خب حالا يه متغير بايد از نوع کلاس TRegistry تعريف کنيم تا بتوانيم از توابع آن ها استفاده کنيم. به شکل زير

Var
B:TRegistry;

با سلام دوباره !

آيا تا به حال در حال تایپ مطلبی ويا در حال چت کردن در اين حالت قرار گرفته ايد که :

کلی مطلب را تایپ کرديد و تازه وقتی سرتان را بالا مياوريد متوجه ميشويد که تمام حروف و جملات به زبان انگيسی تایپ شدهو يا جملات انگليسی را اشتباهی فارسی تایپ کرديد

اين بزرگترين مشکل هر تایپيست هست اما راه حل چيست ؟

خب من هم در همين فکر بودم که نا گهان يه فکر توپ به سرم رسيد : نوشتن يه نرم افزار که فينگليش را به فارسی و فارسی را به فينگليش تبديل کنه

البته نوشتن چنين برنامه ای نياز به فکر کردن برای افراد متخصص نداره هيچ فکری  من در دو مبحث نوشتن اين برنامه را آموزش می دهم

۱= يه قسمت که ارسال متن به نرم افزار های ديگه را به عهده داره ( به طور مثال ياهو مسنجر) که الان آموزش ميدهم

۲= قسمت بعدی که تبديل حروف انجام ميشه که خيلی خيلی ساده هست و از طريق آرايه ها کار می کنيم ( فردا يا در مبحث بعدی آموزش می دهم)

خب حالا شروع می کنيم 

ابتدا برای ارسال يه متن به يه نرم افزار نياز به چند تا تابع آی پی آی داريم

• فايند ويندوز ( برای پيدا کردن پنجره برنامه )
• فايند ويندوز ای اکس ( برای پيدا کردن کادر متن در پنجره)
• سند مسيج ( برای ارسال متن به برنامه )
• پست مسيج ( برای ارسال کليد های کيبرد مثل اسپيس و اينتر در برنامه )

خب حالا می توانيد کار را با اين داده ها شروع کنيم :

دلفی رو باز کنيد و بر روی فرم تان يه ممو  و يا يک اديت قرار دهيد و هم چنين يک دگمه ( باتن) حالا ما به فرض می خواهيم متن مورد نظرمون به ياهو مسنجر ( کسی که با اون چت می کنيم و يا در حال چت هستيم ) ارسال کنيم . روی باتن دو بار کليک کنيد و سپس در روال باتن کد زير را وارد کنيد

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  i: Integer;
  s: string;
begin
  wnd := FindWindow('IMClass', nil);
  if wnd <> 0 then
  begin
    wnd := FindWindowEx(wnd, 0, 'RichEdit20A', nil);
    s := Memo۱.Text;
    for i := 1 to Length(s) do
      SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
     PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
  end;

end ;

خب حالا کد با لا را مورد بررسی قرار ميدهيم

قسمت اول که سه تا متغير تعريف کرديم که  wnd و s و i نام دارند . در روال پروسيجر ابتدا  متغير دبيلو ان دی را برابر با کلاس  IMClass قرار داديم . اين کلاس مربوط به پنجره چت می باشد که با استفاده از تابع فايند ويندوز وجود اين کلاس را ( باز بودن پنجره چت کردن ) را چک ميکنيم سپس تعريف می کنيم که اگر اين پنجره باز بود دنبال کلاس    RichEdit20A  در پنجره مذکور بگردد . ( اين کلاس معادل همون تکست باکسی استکه جملات را برای فرستادن پی ام يا چت در آن تایپ ميکنيم)

بعد هم متغير اس را برابر با متن موجود در ممو ۱ مقدار دهی می کنيم . بعد هم می گوييم که در يک دستور حلقه ای فر ( For ) تا زمانی انجام بده که تمامکارکتر ها ارسال شوند

حالا در داخل دستور فر با استغاده از تابع سند مسيج يکی يکی کار کتر ها رو به تکسکت باکس ياهو مسنجر ارسال می کنيم . بعد هم با تابع پست مسيج فشردن کليد اينتر و فشردن کليد و فشردن کليد اسپيس را شبيه سازی می کنيم .

خب ديد که چه قدر راحت ميشه يه متن را ارسال کرد و يا فشردن کليد های کيبورد رو شبيه سازی کرد  

فقط کافيه که کلاس برنامه ای را که می خواهيم به آن متن ارسال کنيم بدانيم .

در ضمن اگه شما همين ارسال متن رو در برنام های ديگه به جز ياهو مسنجر می خواهيد بفهيمد يا بهتر بگم کلاس مربوط به برنامه را برای پارامتر دهی های تابع فايند ويندوز ياد بگيريد در قسمت نظر سنجی ها مطرح کنيد تا در پست بعدی نرم افزار ها و کلاس های مربوط به تکست و پنجره آنها را برايتان شرح دهم.

خب اين سخت ترين بخش کار برای نرم افزار لنگوييج چنجر ما بود بخش بعدی تغيير زبان بسيار ساده تر می باشد  پس تا پست بعدی

خدا نگه دار

سلام !

خب اول از همه خيلی خيلی معذرت می خواهم که نتونستمم اين چند وقته اينجا رو آپ  ديت کنم به جاش براتون سورس يه ويروس که خودم نوشتم با دلفی رو بهتون ميدم و بعد هم به تنها سوال جلسه قبل جواب ميدم پس با اجازه

آقا علی شايعی پرسيده بودند که :

من هر كاري كردم نتونستم از تابع setparent كه يه تابع اي پي ايه استفاده كنم چون دقيقا يه تابع با همين نام به شكل زير وجود داره : setparent(sth : twincontrol) و هر وقت كه من اين تابع را تايپ مي كنم دلفي مي ره سراغ تابع خودش نه اون تابع اي پي آي.

خب جواب اين دوست عزيز مون اينه که :

شما حتما می دونيد که آی دی ای دلفی( محيط ويرايش دلفی) نهايت قدرت و هوشمندی هست از اين رو متد ها و تابع هارو بسته به مقداری که بايد برگردانند نمايش ميده . تابع ست پرنت مربوط به دلفی يک پروسيجر می باشد که هيچ مقداری باز نمی گرداند پس اگه اونو در جايی که نياز به مقدار بازگشتی ( Result ) نباشه بياوريم دلفی سراغ تابع خودش ميره اما اگه اون تابع رو در جايی به کار ببريم که  معادل يک مقدار بازگشتی ((مربوط به خود تابع )) باشه به کار ببريم دلفی سراغ تابع آی پی آی که می خواهيد ميره اما اگه دوستا داشتيد می توانيد با يه روش ديگه نيز اين کار رو انجام بدهيد مانند زير ايتدا يه تابع که پارامتر های تابع مورد نظر( ست پرنت)  رو داشته باشه تعريف می کنيم با مقدار بازگشتی ست پرنت و با هرنام ديگه سپس مقدار بازگشتی اونو برابر با تابع ست پرنت آی پی آی می نويسيم.

حال تابعی رو که نوشتيم می توانيم به جای تابع آی پی آی استفاده کنيد مثال رو ببنيد

 Function stpr (Child,New:HWND):HWND;
 begin
 Result:= SetParent(Child,New);
    end;

شما به اين شکل می توانيد از تابعی که تعريف کرديم به جای تابع مورد نظر استفاده کنيد و ديگه چنين مشکلی نداشته باشيد

=======================================

خب حالا اون هايی که سورس ويروس می خواهند بشتابند اين ويروس کار و ماموريت اصلی اش اينه که نگذاره کاربر هيچ پنجره ای رو باز کنه و االبته تا حدودی هم موفق بوده  اين ويروس ابتدا چک ميکنه اگه پلتفورم ويندوز شما ان تی بود ميره و خودش رو در رجيستری به صورت استارت آپ ثبت ميکنه  و يه سری از فعاليت های کليدی و اامنيتی رجيستری رو غير فعال ميکنه و اگه ويندوز کاربر ورژن های پايين تر بود ميره و خودشو در پوشه استارت آپ ثبت ميکنه  و اونجا خراب کاری هايش رو شروع می کنه در ضمن اين ويروس ماوس و کی بورد را نيز فقل ميکنه و همچنين آنتی ويروس و بخش آنتی ويروس مکافی رو پاک ميکنه و استارت آپ رجيستری رو نيز پاک ميکنه و فقط خودشو می گذاره در پوشه استارت آپ

 در حقيقت با اين کار يه جورايی ويندوز تون رو فلج می کنه و از پا ميندازه. راستی اين ويروس به يک ويندوز که راضی نميشه خودشو تو همه ويندوز های نصب بر روی هارد شما کپی ميکنه  

اميدوارم هيچ وقت اين ويورس ها رو کامپيوتر شما اتراق نکنن   البته اين سورس کامل اون هست و فايل اجرايی  رو نگذاشتم پس نگران نباشيد  

راستی يادم رفت نام اين ويروس VFD  می باشد که از سری ويروس های V?D می باشد و نکات آموزشی فراوانی داره اميدوارم بدردتون بخوره 

از اين جا سورس را دانلود کنيد

خب آقا اين هم پست بعدی ما و ويروسی که قول داده بوديم شما هم نظر يادتون نره و در ضمن لينک دادن هم يادتون نره  

آخه مگه يه لينک ساده دادن سخته نام وبلاگ هم دلفی دات نت هست تيتر هم که ميبينيد 

منتظر نظرات وانتقادات شما هستيم

باتشکر 

وحيد := Vahid 2000

و

سعيد := Saeed 2005

دوستان عزيز من فعاليت های سايت از امروز به بعد ديگه شروع شده

راستی در قسمت نظرات قبلی يکی از مهندسان و برنامه نويسان و کد نويسان  کار درست پاسکال مارو قابل دونستن و به ما سر زدن بايد از ايشون تشکر کنم و يه نکته ديگه من تمام هدفم از مقاله قبلی ايجاد يه درک درست برای تازه کاران  که می خواهن دلفی ياد بگيرن بود برای اينکه بگم دلفی در کد نويسی شيبه به چه زبان برنامه نويسی هست اگه گفتم بورلند مبتکر دلفی بوده منظورم اين بود که اولين شرکتی بود که به اين زبان بها داد و اونو از گم نامی  در آورد  

اما امروز من می خواهم کارم رو با نکات بسيار خوب وبرجسته در کد نويسی دلفی شروع کنم و در کل ريز نکته هايی که اکثر کتاب های آموزشی کمتر به آن اشره ميشه  پس بسم ا...

برجسته ترين نکته و بهترين برگ برنده دلفی استفاده سريع و خيلی جالب از توابع آی پی  در  ويندوز ها هست که اکثرا در دلفی در يونيت Windows تعريف  شدند  و شما  فقط بايد آنهارا مانند ديگر توابع معمولی از آنها استفاده کنيد

يکی ديگه از نکات برجسته در دلفی کار با بانک های اطلاعاتی يا بهتر بگم دلفی با هر نوع بانک اطلاعاتی بهترين ساز گار ری را دارد از اکسسAccess  ماکروسافت تا مای اس کيو ال My SQL

حالا نوبت ميرسه به فايل های اجرايی دلفی که بدن هيچ فايل و يا کتابخانه اضافی در تمامی محيط ها و در تمامی ورژن ويندوز  اجرا ميشه

حالا نوبت ميرسه به قدرت اعجاب انگيز دلفی در ار تباط با سيستم عامل شما. دلفی هم برای رجيستری يونيت و توابع داره هم برای فايل ها قديمی INI و ...

 دلفی از نظر انعطاف پذيزی حرف اول رو ميزنه برای اين که به حرف من برسيد خودتون و وژدان تون و دلفی رو باهم تنها می گذارم.

 اين ها همه  امتيازات برجسته دلفی فقط در ويندوز بود حالا ديگه اگه بخواهم سی ال ايکس و لينوکس رو بيارم وسط بايد بهاندازه کل سورس ويندوز فايده بنويسم. تازه پای آ اس پی دات نت و وب سرور  ها و سوکت ها رو وسط نکشيدم وگرنه ببين چقدر ميشد 

راستی شما ياد بدنينی که دلفی در هک و تروژان و ويروس نويسی ديگه لنگه نداره نمونه بارز ش رو می تونم به مجيک پی اس اشاره کنم

 واما کد نويسی ......

خب حالا من می خواهم اولين نکته  آموزشی اين سايت رو که تقريبا در کمتر کتاب آموزشی به آن اشره می کنند آموزش بدهم امروز با هم ميريم سراغ اولين عيب کوچولو در دلفی که همی آی پی آی هار رو ساپورت نمی کنه مثلا بلوک اينپوت BlockInput  که کاربر خود بايد عمليات لود رو انجام بده برای اين کار شما بايد يه function در قسمت implementation  يونيت که دارين با هاش کار می کنين بنويسيد.

طرز تعريف يه تابع رو بايد به اين شکل می باشد.

 Function Your API(Parameters): Result value  stdcall external  Library 

برای مثال من در زير تابع  BlockInput  رو به اين شکل لود می کنم .

Function BlockInput(fblock:longint): longint; stdcall external user32

خب ديد که دلفی چقدر قدرتمند و انعطاف پذيره  

فکر کنم برای امروز کافی باشه و منظور کلی ام رو براتون باز گو کردم و هم چنين يه نکته آموزشی کو چولو هم  گفتم که برای دلفی کار ها چيز خوبيه .

خب حالا می تونيد نظر بدهيد و سوالاتتون رو بپرسيد و پيشنهاداتتون رو بگوييد.

راستی يه نکته شما ها اگه لطف کنيد لينک اين وبلاگ رو درسايت يا وب لاگتون قرار بدهيد واقعا ممنون ميشم   البته ماهم لينک می گذاريم ...

راستی  دفعه بعد که ميايم براتون سورس يه ويروس  جالب که خودم نوشتم براتون خواهم گذاشت  اميدوارم موفق باشيد

با تشکر وحيد و سعيد