آموزش دلفی و پاسخ به پرسشهای شما در دلفی

delphiland — Fri, 11 Sep 2009 18:35:16 GMT

با سلام خدمت دوستان عزیز

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

در ضمن اسپمر بلاگفا هم تو این سایت هست

www.rps-hack.blogfa.com

delphiland — Wed, 25 Mar 2009 14:46:55 GMT

با سلام امروز ۵ فروردین ۸۸ و من از خدمت برگشتم تا در خدمت شما دوستان و دشمنان و ... باشم با مطالبی تازه و جدید در هر هفته

جک و داستان های باحال

delphiland — Fri, 09 Jun 2006 05:02:18 GMT

چند تا جک دیگه هم واستون گذاشتم برید تعریف کنید

ضایع بشید باشه

1- تركه به رفيقش ميگه: ميخوام دختر شاه رو بگيرم! رفيقش ميگه: چرت نگو مومن! مگه كشكيه؟! تركه ميگه: بابا من كه راضيم، ننم هم كه راضيه، فقط مونده شاه و دخترش!

2- اصفهانيه داشته تو خيابون ميرفته كه يهو ميبينه اوضاع دل و روده خرابه و به شدت نياز به قضاي حاجت داره! خلاصه يخورده اطراف چرخ ميزنه تا آخر يك توالت عمومي پيدا ميكنه. خوشحال و خندان ميره تو كه يهو دم در يك مردك لندهور جلوشو ميگيره، ميگه: كجا عمو؟! اينجا توالتش ورودي داره، 200 تومن! اصفهانيه شاكي ميشه، ميگه: انصافتو شكر! يك ريدن دويست تومن؟! نميخوام! خلاصه مياد بيرون، يكم ديگه چرخ ميزنه ميبينه نه اوضاع خيلي خرابه، برميگرده، ميگه: درك بيا اينم دويست تومن. يارو ميگه: نـُچ! نرخا بالا رفته، ورودي جديد 500 تومنه! اصفهانيه تا فيهاخالدونش ميسوزه، ميگه: يعني چي؟! مگه سر گردنست؟! آدم به خودش برينه به صرفه‌تره! خلاصه باز شاكي مياد بيرون، يكم راه ميره، ميبينه الانه كه وسط آدم و عالم برينه به خودش، زود بر ميگرده، باحال زار يك پونصدي ميده، ميگه: بيا بابا اينم 500 تومن. باز صاب توالت يك ابرو ميندازه بالا، ميگه: تــُـچ! چون تو مضيقه‌اي وروديت ميشه هزار تومن! اصفهانيه كه ديگه عرق از بناگوشش سرازير شده بوده، ميگه: بابا سگ خور! بيا اينم هزار تومن، بزار برم برينم! خلاصه ميره تو. مردك توالت‌چي(!) ميبينه يك ربع گذشت، نيم ساعت گذشت، يك ساعت گذشت، آقا نيومد بيرون. ميره در توالت رو باز ميكنه، ميبينه اصفهانيه با كمربند خودشو دار زده، يك يادداشت هم گذاشته كه: "كسي كه تو اين گروني فرق گوز و ان رو نميفهمه فقط واسه مردن خوبه"!

3- تركه شاكي ميره ثبت‌احوال، ميگه: آقا اين اسم من خيلي ضايست، بايد حتماٌ عوضش كنم. كارمنده ازش ميپرسه، مگه اسمتون چيه؟ تركه ميگه: اصغرِ ان‌چهره! كارمنده ميگه: آره خوب حق داريد، بايد حتماً عوضش كنيد. حالا چه اسمي ميخوايد بگذاريد؟ تركه ميگه: اكبرِ ان‌چهره!

4- تركه پرتقال خوني ميخوره، ايدز ميگيره!

5- از تركه ميپرسن: ميدوني USA مخفف چيه؟ ميگه: يوم‌الله سيزده آبان!

6- تركه رفته بوده تماشاي مسابقه دو و ميداني، وسط مسابقه از بغليش ميپرسه: ببخشيد، اينا واسه چي دارن ميدون؟! يارو ميگه: براي اينكه به نفر اول جايزه ميدن. تركه يوخده فكر ميكنه، ميپرسه: پس بقيشون واسه چي دارن ميدون؟!

7- تركه ساعت سه نصفِ شب زنگ ميزنه صدا و سيما، ميگه: ببخشيد آقا به نظرِ شما الان آقاي خامنه‌اي خوابه؟ يارو ميگه: نميدونم ولي احتمالاً بايد خواب باشن. تركه ميگه: معذرت ميخوام؛ ولي آقاي رفسنجاني چي، ايشون هم خوابه؟ يارو ميگه: نميدونم ولي يحتمل ايشون هم خواب باشن. تركه ميگه: ببخشيد ولي آقاي خاتمي چي؟ يارو ميگه: احتمالاً ايشون هم خواب هستن، چطور؟ تركه ميگه: پس دمت گرم حالا كه همه اينا خوابن يه شو هندي بذار حال كنيم!

8- تركه ميميره، اون دنيا در حيني كه داشتن به حساب كتاباش رسيدگي ميكردن ميره پيش جبرئيل، ميگه: من از خدا يك سوال واجب دارم، ميشه برم بپرسم؟ جبرئيل ميگه: باشه، برو طبقه بالا در سمت راست، سوالت رو بپرس، زود برگرد. تركه ميره طبقه بالا، در رو باز ميكنه، ميبينه خدا پشت يك ميز نشسته داره با يكي از فرشته‌ها به حساباي مردم ميرسه. خلاصه سلام ميكنه ميره جلو، ميگه: خداجان، الهي گربان او بزرگيت بشم من، الهي فدات بشم... چرا تو دنيا اين همه ترك آفريدي؟! بري تو آذربايجان همه تركند، بري تهران پر تركه، بري بلوچستان، بري شمال، بري جنوب، غرب، شرق، بازم ترك پيدا ميشه... بري آلمان بازم ترك پيدا ميشه، بري كانادا، بري آمريكا بازم ترك پيدا ميشه... بري كره ماه بازم ترك پيدا ميشه! آخه خداجان، واسه چي اينقدر ترك آفريدي؟! خدا يكم تركه رو نگاه ميكنه، به معاونش ميگه: اصگر... ايلده ببين اين چي ميگه بابا... هي وگت مارو ميگيرند!

9- تركه تصادف ميكنه، ملت علاف ميريزن دورش و شروع ميكنن نظر كارشناسي دادن. بالاخره بعد يك مدت افسر راهنمايي مياد، منتها اونقدر ملت هركدوم واسه خودشون چرت و پرت ميگفتن كه صداي افسره به جايي نميرسيده. تركه شاكي ميشه، داد ميزنه: ساكت.. ساكت... ايلده ديگه اينجا كسي جز جناب سروان حق گه خوردن نداره!

10- تركه ميرسه سر يك صحنه تصادف، از يكي ميپرسه: ببخشيد قربان، اينجا چه خبره؟ يارو هم ميگه: هيچي آقا، اين بدبخت گوزپيچ شده! تركه ميره تو فكر، بعد يك مدت يك بنده خداي ديگه مياد از تركه ميپرسه: ببخشيد اينجا چي شده؟ تركه ميگه: ايلده منم خوب نفهميدم، نميدونم اين بابا پيچيديه گوزيده، گوزيده پيچيده، سر پيچ گوزيده؟!

11- تركه زنگ ميزنه فلسطين، ميبينه اشغاله!

12- از تركه ميپرسن: مساحت ايران چقدره؟ ميگه: 1648192 متر مكعب! ميگن: خنگ خدا، آخه چرا متر مكعب؟! تركه ميگه: آخه بعد انقلاب به ارتفاع يك متر ريده شده توش!

13- تركه سوار آسانسور ميشه، ميبينه نوشته‌: ظرفيت 12 نفر. باخودش ميگه: عجب بدبختيه‌ها! حالا 11 نفر ديگه از كجا بيارم؟!

14- تركه ميميره، باباش رضايت نميده!

15- از تركه ميپرسن: به نظر شما اگه آمريكا افغانستان و عربستان رو بگيره، به كره و چين هم حمله كنه تكليف ايران چي ميشه؟ تركه ميگه: ايلده چي ميشه نداره كه، ايران ميره جام جهاني!

16- لره داشته با تمام وجود وضو ميگرفته و دستاشو محكم ميكشيده رو هم، ازش ميپرسن: چرا اينقدر محكم وضو ميگيري؟ ميگه: چني آرم وضو ميرم كه هيچ گوزي نتنِه باطلش كنه!

17- تركه ميگوزه، دنبال پوكش مي‌گرده!

18- از تركه ميپرسن: چند تا بچه داري؟ 4 تا از انگشتاشو نشون ميده، ميگه: 3 تا! ملت كف ميكنن، ميگن: بابا اينا كه 4تاست؟ تركه انگشت كوچيكشو نشون ميده، ميگه: اين بچه همسايمونه، ولي هميشه خونه ماست!

19- لره داروخونه داشته، يك روز جلو در مغازه بزرگ مينويسه: سوسك كش جديد رسيد! خلاصه بعد يك مدت يك بابايي مياد تو ميگه: ببخشيد، جريان اين سوسك‌كش جديد چيه؟ اين خونه ما رو سوسك سر گرفته. لره ميگه: اين دارو خيلي جديده و بازدهيش هم تضمينيه. شما اين دارو رو ميريزيد تو يك قطره چكون، بعد كشيك ميكشيد تا سوسكها رو بگيريد. هر سوسك رو كه گرفتيد، در روز سه نوبت (صبح و ظهر و شب) تو هر چشمش دو قطره ازين دارو ميچكونيد، بعد از يك مدت سوسكها كور ميشن و خودشون از گشنگي ميميرن! يارو كف ميكنه، ميگه: خوب آخه اگه سوسكها رو بگيريم كه همونجا درجا مي‌كشيمشون! لره ميره تو فكر، بعد يك مدت ميگه: آره خوب، ازون راهم مِشِه!

20- آبادانيه ميخواسته بره خواستگاري، ديرش شده بوده حواسش پرت ميشه شلوارش رو پشت و رو ميپوشه و با عجله ميدوه تو خيابون، يهو يك ماشين مياد ميزنه درازش ميكنه وسط خيابون. رانندهه مياد بالا سرش، ميگه: طوريت كه نشده؟ آبادانيه يك نگاه به سر تا پاش ميكنه، چشمش ميافته به شلوارش، ميگه: چي چيو طوري نشده، ولك زدي حسابي پيچوندي!

نطر در مورد وبلاگ

delphiland — Thu, 08 Jun 2006 12:03:18 GMT

اگر مي خواهيداين روند ادامه داشته باشد

پس لطف کنید نظر بدهید

با تشکر

<<مرد تنها>>

delphiland — Thu, 08 Jun 2006 11:58:00 GMT

کدی برای تست روشن بودن چراغ های سه گانه

public
procedure CheckCapslock;
procedure CheckNumlock;
procedure CheckInslock;
procedure CheckScrlock;
{ public declarations }
end;

procedure TForm1.CheckCapslock;
begin
if Odd (GetKeyState (VK_CAPITAL)) then
StatusBar1.Panels[1].Text := 'Caps'
else
StatusBar1.Panels[1].Text := '';
end;

procedure TForm1.CheckNumlock;
begin
if Odd (GetKeyState (VK_NUMLOCK)) then
StatusBar1.Panels[2].Text := 'Num'
else
StatusBar1.Panels[2].Text := '';
end;

procedure TForm1.CheckInslock;
begin
if Odd (GetKeyState (VK_INSERT)) then
StatusBar1.Panels[3].Text := 'Ins'
else
StatusBar1.Panels[3].Text := '';
end;

procedure TForm1.CheckScrlock;
begin
if Odd (GetKeyState (VK_SCROLL)) then
StatusBar1.Panels[4].Text := 'Scr'
else
StatusBar1.Panels[4].Text := '';
end;

procedure TForm1. Timer1Timer(Sender: TObject);
begin
CheckCapslock;
end;

procedure TForm1. Timer2Timer(Sender: TObject);
begin
CheckNumlock;
end;

procedure TForm1. Timer3Timer(Sender: TObject);
begin
CheckInslock;
end;

procedure TForm1. Timer4Timer(Sender: TObject);
begin
CheckScrlock;
end;

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

به شما پاسخ داده شود لطفا نظر یادتون نرود

باتشکر <<مرد تنها>>

delphiland — Thu, 08 Jun 2006 11:57:30 GMT

کدی برای بزرگ کردن حرف اول در ادیت باکس ها

procedure TForm1.DBEdit1Change(Sender: TObject);
var

Cursor : Integer;
begin
if DBEdit1.Text <> '' then
begin
Cursor:=DBEdit1.SelStart;
DBEdit1.Text := UpperCase(Copy(DBEdit1.Text,1,1)) +
LowerCase(Copy(DBEdit1.Text,2,Length(DBEdit1.Text)));
DBEdit1.SelStart := Cursor;
end;
end;

delphiland — Thu, 08 Jun 2006 11:56:56 GMT

کدی برای تشخیص صحت آدرس ایمیل
function IsEMail(EMail: String): Boolean;
var
s: String;
ETpos: Integer;
begin
ETpos:= pos('@', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;

//Utilizzo:
procedure TForm1.Button1Click(Sender: TObject);
begin
if isemail(Edit1.Text) then
begin
ShowMessage('Indirizzo e-mail valido!');
end;
end;

delphiland — Thu, 08 Jun 2006 11:50:18 GMT

کدی برای ارسال ایمیل

uses ShellAPI;

procedure InviaEMail ( const Indirizzo, IndirizziCC, Oggetto, Testo: string);
var
Comando: String;
begin
Comando := 'mailto:' + Indirizzo + '?subject=' + Oggetto + '&cc=' + IndirizziCC + '&body=' + Testo;
if (ShellExecute(0, 'open', PChar(Comando), '', '', SW_SHOWNORMAL) <= 32)
then
ShowMessage('Errore nell''invio della e-mail.');
end;
//////////

procedure TForm1.Button1Click(Sender: TObject);
begin
InviaEMail ( 'ehsasdarun@yahoo.com', 'IndirizziCC@acui.spedire', 'Oggetto della e-mail', 'Testo della e-mail');
end;

delphiland — Thu, 08 Jun 2006 11:50:05 GMT

کدی برای قراردادن کرسر در مختصات دلخواه در ریچ ادیت

procedure SetCursoreXY(tempRichEdit: TRichEdit; Colonna, Riga: Integer);
var
CharRange: TCharRange;
begin
CharRange.cpMin := tempRichEdit.Perform(EM_LINEINDEX, Riga, 0) + Colonna;
CharRange.cpMax := CharRange.cpMin;
tempRichEdit.Perform(EM_EXSETSEL, 0, LPARAM(@CharRange));
tempRichEdit.Perform(EM_SCROLLCARET, 0, 0);
tempRichEdit.SetFocus
end;

delphiland — Thu, 08 Jun 2006 11:49:27 GMT

کدی برای از کار انداختن کلید های ۳ تایی یعنی alte+ctrl+del

procedure AttivaCtrlAltCanc;
var
VecchioValore : LongInt;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(False),@VecchioValore, 0);
end;

procedure ImpedisciCtrlAltCanc;
var
VecchioValore : LongInt;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True),@VecchioValore, 0);
end;