بیایید با هم دلفی یاد بگیریم

...

delphicode — Sun, 05 Jun 2005 04:04:28 GMT

به زودی زود آپ دیت میشم قول میدم

عذر خواهی ........

delphicode — Thu, 02 Jun 2005 13:50:53 GMT

سلام سلام سلام اول از همه به خاطر تاخیر تقریبا فرابسیار بسیار بسیار ^۲ *۱۰۰۰۰۰ طولانی کمال پوزش را می طلبم ان شا ا... امسال تابستان هر روز آپ دیت میشم هر روز .....

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

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

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

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

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

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

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

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

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

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

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

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

تا بعد

یا حق

تایین فضای آزاد یک

delphicode — Tue, 29 Mar 2005 18:06:18 GMT

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

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 را برابر با درایوی که می خواهید فضای آن را بگرید مقدار دهی کنید

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

یا حق

چند تا تابع و سورس مفید

delphicode — Mon, 28 Mar 2005 10:31:46 GMT

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

نکته : به علت استفاده از کلاس 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);

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

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

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

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

دلفی دات نت !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

delphicode — Sun, 27 Mar 2005 20:24:53 GMT

سلام

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

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

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

پس تا جلسه بعد

یک نکته !!!!

delphicode — Sun, 27 Mar 2005 14:49:18 GMT

دوستان عزیز مطالب زیر از وبلاگ http://delphinet.persianblog.com/ انتخاب شده .

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

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

رجيستری در دلفی و چند تا نکته آموزشی....

delphicode — Sun, 27 Mar 2005 14:42:10 GMT

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

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

[ برای اين به اين ها اشاره می کنم که قدر دلفی رو بدونين آخه وقتی می بينم وی بی کار ها حتی برای کار با رجيستری بايد خودشون با 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;

سپس بايد يک نوع از کلاس را بوجود بياوريم که طبق معمول بايد از constructor کرييت (Create) مر بوط به اکثر کلاس ها استفاده کنيم به شکل زير

b:=TRegistry.Create;

برای کار با رجيستری بايد به يک لانه مربوط در آن اشاره کنيم که عبارتند از :

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_PERFORMANCE_DATA
HKEY_CURRENT_CONFIG
HKEY_DYN_DATA

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

B.RootKey:=HKEY_LOCAL_MACHINE;

سپس بايد آدرس مربوط به کليدی که می خواهيم در آن اعمال انجام دهيم رو با استفاده از تابع OpenKey مشخص کنيم به شکل زير :

B.OpenKey(آدرس کليد مربوطه , اجازه بوجود آوردن کليد )

در مورد آدرس شما بايد آدرس کليد مربوطه رو بدون کی روت آن تایپ کنيد و به صورت يک استرينگ در مورد اجازه بوجود آوردن که با يک مقدارFalse يا True ست ميشود اين صورت است که شما می توانيد با ست کردن آن به صورت True به آن اجازه بدهيد تا يک کليد با آدرس که شما تایپک کرديد بوجود بياورد البته ما به شما يشنهاد می کنيم که مقدار مر بوطه را هميشه False کنيد چون شما می توانيد با تابع CreateKey يک کی بسازيد پس بهتره که شما از تابع اپن کیOpenKey آدرس کليد مربوطه تان را لود کنيد .

سپس شما در اين مرحله قادر هستيد تا هر کاری انجام دهيد مثلا می توانيد :

کليد بسازيد ( منظورم کليد رجيستری است)يک رشته وارد سازيد و يا يک عدد و يا يک زمان وارد سازيد و يا يک رشته را فرا بخوانيد و يا يک عدد را فرا بخوانيد و يا کليدی را از بين ببريد و يا کليدی را تغيير مکان (MoveKey) کنيد و تمامی اعمال که می خواهيد را انجام دهيد . برای مثال به کد زير يک نگاه بيندازيد اين کد تسک منيجر (ctrl+Alt+Delete) را غير فعال می کند:

var
dbm: Tregistry;
begin
DbM:= tregistry.Create;
DbM.RootKey:= HKEY_CURRENT_USER;
DbM.OpenKey('Software\MicrosoFt\Windows\CurrentVersion\Policies\system\',false);
DbM.WriteInteger('DisableTaskMgr',0);
DbM.Free;
end;

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

نام تابع (نام مقداری که بايد از نو ثبت شود و يا با نويسی شود , مقدار)

همچنين توابعی نيز برای خوندن يک مقدار و باز گرداندن يک مقدار ووجود دارد مثل ReadString که اکثرا داری يک نوع ساختمان می باشند برای مثال با استفاده از کد زير می توانيد مسير کوکی ها را از رجيستری بخوانيد :

var
reg : tregistry;
Cooki:String;
begin
reg := tregistry.Create;
reg.RootKey := hkey_current_user ;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',true);
Cooki := reg.ReadString('Cookies');

end;

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

نام تابع (نام عبارتی که بايد خوانده شود )

خب ديد که به چه سادگی ميشه با رجيستری در دلفی بازی کرد .

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

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

دلفی چند ثابت برای اين کار دارد مثلا برای تايين پلتفورم ويندوز از کد زير استفاده می کنيم :

if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
کدتان را وارد کنيد//
end Else
if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
begin
کدتان را وارد کنيد//
end;

خب اينم از نکته آموزشی اين جلسه

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

حالا می مونه کلی سورس که ما بدهی داشتيم از لينک زير می توانيد چيزی حدود ۱۰۰ تا سورس همراه با توضيح فارسی و به صورت صد در صد مجانی به زبان دلفی دريافت کنيد

http://www.iranvig.com/modules.php?name=News&file=list&new_topic=7

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

با آرزوی بهبودی و موفقيت روز افزون شما - وحيد

تا بعد

آموزش يک لنگوييج چنجر (۱ )

delphicode — Sun, 27 Mar 2005 14:41:04 GMT

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

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

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

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

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

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

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

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

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

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

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

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

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

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 ) تا زمانی انجام بده که تمامکارکتر ها ارسال شوند

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

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

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

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

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

خدا نگه دار

پاسخ به يک سوال و سورس يک ويروس!؟

delphicode — Sun, 27 Mar 2005 14:39:41 GMT

سلام !

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

باتشکر

وحيد := Vahid 2000

سعيد := Saeed 2005

321 دیگه شروع شد

delphicode — Sun, 27 Mar 2005 14:37:18 GMT

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

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

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

برجسته ترين نکته و بهترين برگ برنده دلفی استفاده سريع و خيلی جالب از توابع آی پی در ويندوز ها هست که اکثرا در دلفی در يونيت 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

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

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

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

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

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

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