سورسهای نمونه در دلفی ...

سلام دوستان ...
این تاپیک رو درست کردم تا هرکی می تونه برنامه های کوچیک و جالب بنویسه و با سورس اینجا بزاره تا همه استفاده کنن ...
برای شروع من یکی می زارم :
سورس یه برنامه که نام دکمه استارت ویندوز رو تغییر می ده : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ( حجم : 168 كيلوبايت )
منتظر نظرات و سورسهاي بقيه دوستان هم هستم ...
موفق باشيد ...

سلام محمود جان
به نظر من توی همون تاپیک تکه برنامه های(اگر اشتباه نکردم)
به این بحث ها ادامه بدیم بهتره.
خلاصه این نظر منه.شما هم نظرتون رو بگید.

منم موافقم. برنامه هايي كه اون بخش توضيح اضافه ميخواد مينويسيم و لينك دانلود ميسازيم.

نقل قول:

---

سلام محمود جان
به نظر من توی همون تاپیک تکه برنامه های(اگر اشتباه نکردم)
به این بحث ها ادامه بدیم بهتره.
خلاصه این نظر منه.شما هم نظرتون رو بگید

---

چشم ...
من هم موافقم ...
پس توي همون تاپيك ادامه مي ديم ...
ولي مي ترسم تعداد صفحات اون تاپيك زياد بشه و كسي حوصله نكنه كه همه رو نگاه كنه ... :sad:
خلاصه من گذاشتن سورسها رو توي همون تاپيك ادامه مي دم ...
ممنون كه نظر داديد ...
موفق باشيد ...

سلام

به نظر من هم اگه نمونه سورس ها ي برنامه هاي حالا كوچيك يا بزرگ رو اينجا بزاريم بهتره

در اون قسمت نكات گفته ميشه و اگه لازم شد بهاينجا راهنمايي بشه

يا حق

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

همين جا ادامه بدين.
ما هم استفاده ميكنيم.
البته اگه برنامه ها كوچيك بود و كمتر از 2 پروسيجر داشت همون جا بنويسيد و لينك نزارين.

ممنون

سلام ...
پس همينجا ادامه مي ديم ...
اينم سورس يه برنامه سخنگو !!! : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
هرچي بنويسيد براتون مي خونه ( البته انگليسي )
متاسفانه دوستان همكاري نمي كنند !!!
موفق باشيد ...

بازم سلام ...
اينم سورس يه برنامه كه شكلكهاي مخفي ياهو رو در موقع چت كردن ارسال مي كنه : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
-------------------------
هيچ كس نظري چيزي نداره اينجا بنويسه ؟ !!!!!
-------------------------
موفق باشيد ... :sad:

ممنون محمود جان.
برنامه اي سراغ داري كه برعكس عمل كنه؟
يعني صدا كني و بنويسه؟

سلام
مرد مباح براي اينكار اول بايد بتوني صدايي كه به كامپيوتر وارد ميشه
از طريق ميكرفن رو تشخيص بدي كه فركانسش چقدر اس.
كه خود اين كار هم خيلي سخته بعد بايد با دستور if
مي توني بگي بهش كه اين يك حرف هست و حروف را يكي
يكي با دستور ايف تشخيص بدي كه اشكالاتش هم خيلي زياد ميشه.

به اين سادگي كه نوشتي نيست.
به خاطر همين هم گفتم كه ببينم كسي اين فايل رو داره يا نه.
اين برنامه خيلي كارهاي پيشرفته اي لازم داره كه من ميخوام توابعي از دلفي كه به اين قضيه مربوط ميشه رو اگه كسي داره بنويسه و در اين بخش بزاره.
ممنون از راهنمايي دوستان.
لطفا اين بحث رو ادامه ندين كه مسير بحث اصلي منحرف نشه.
اگه پيدا كردين لطفا فايل بزارين.

سلام
اگر ساختنش سخته كه مي دونم
پس گير آوردنش هم سخته اما اگر من
پيدا كردم بخيل بازي در نميارم.

سلام ...
من در اين مورد يه برنامه سراغ دارم ولي الان لينكش رو ندارم ، گير آوردم حتما مي زارم ...
در ضمن دوستان اصلا همكاري نمي كنن ، اين تاپيك داشت گم مي شد ...
يه سورس ديگه ( حذف راست كليك از فايلهاي فلش )
توي سورسي كه براتون گذاشتم ، طرز برداشتن راست كليك از فايلهاي فلش رو مي تونيد ياد بگيريد :
لينك دانلود : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
يادتون باشه كه ActiveX فلش رو نصب کنید ...
موفق باشید ...

به نظر من اینجا برنامه ها را بذاریم و در اون تاپیک توضیحات را

دوستان (مرد مباح و سلجر) سازش کنید این برنامه فکر نکنم به این آسونی پیدا بشه وگرنه که
مایکروسافت رو آفیسش با اون قیمت اینا نمی ذاشت

ما با هم مشكلي نداريم كه ميگي سازش كنيد.
ضمنا اين برنامه با Matlab نسبتا راحتتره ولي من اونو نتونستم درست ياد بگيرم.
شايد كتابي كه خوندم خوب نبود.

سلام
آره مردمباح گفت ما جنگ كه نداشتيم مي گي سازش كنيم
من مي دونستم كه كم پيدا ميشه و گفتم !
در ضمن آقا محمود دست شما هم درد نكنه
كه توي اين تالار فعال هستي!
موفق باشيد

اين همه گفتگو ، دريغ از يه سورس ناقابل ... !!!

دوستان من سعي ميكنم چند تا سورس جالب بزارم....

ببخشيد اين پست تكرار شده اگه ممكنه يكي به من بگه چطوري حذف كنم . ؟؟

دوستان اينم سورس يك برنامه است كه اگه بازش كنيد صفحه همينطور ميلرزه براي توقف لرزشش بايد B رو بزنید برای خارج شدن از برنامه هم X .

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشید .
البته بازم هست.....

سلام
از فعاليت شما متشكريم!
در ضمن براي پاك كردن پست بايد مدير اينجا بياد و ببيندش و پاكش كنه!
ممنون و موفق باشي

سلام

نقل قول:

---

دوستان اينم سورس يك برنامه است كه اگه بازش كنيد صفحه همينطور ميلرزه براي توقف لرزشش بايد B رو بزنید برای خارج شدن از برنامه هم X .

دانلود سورس
موفق باشید .
البته بازم هست.....

---

دستت درد نكنه
منتظر بقيه دوستان هم هستم
انگار كسي ...

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

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این یکی هم سورس یک برنامه است که مشخصات CPU رو میده !!!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون كه فعالي
بازم اين كارو بكن.
راستي توي بخش بازي سازي كه توي صفحه هست لطفا تخصصهاي خودتو بنويس
البته اگه علاقه اي به اين موضوع داري.
ممنون

ممنون ولي من تازه شروع كردم هنوز كامل دلفي بلد نيستم اما اگه بتونم حتماَ كمك ميكنم .

سلام
ميشه بپرسم اين كمپننتها رو از كجا گير مياري؟

اينم سورس يك برنامه اي كه اعداد باينري رو به دسيمال تبديل ميكنه .


[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب من بیشترشو از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] در میارم این سایت کلی سورس برای دلفی و بقیه زبان های برنامه نویسی داره. :cool:

تشخیص اینکه آیا رایانه دارای Writer می باشد؟

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

با کد زیر این کار را می توانید به راحتی انجام دهید:



uses ComObj,registry;

function HasCDRecorder: Boolean;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
// set the the Mainkey, bestimmt den Hauptschlüssel
reg.RootKey := HKEY_CURRENT_USER;
// Open a key, den Schlüssel ?ffnen
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Explorer\CD Burning', False);
// Check if the Key exists, Uberprüfen ob die Zeichenfolge existiert
Result := reg.ValueExists('CD Recorder Drive');
// Close the key, Schlüssel schliessen
reg.CloseKey;
finally
// and free the TRegistry Object, das TRegistry Objekt freigeben
reg.Free;
end;
end;

یک دکمه بر روی فرم خود قرار دهید و با کد زیرآن را آزمایش کنید:

procedure TForm1.Button1Click(Sender: TObject);
begin
if HasCDRecorder then
ShowMessage('CD-Recorder available.')
else
ShowMessage('CD-Recorder NOT available.');
end;

فهمیدن زمان آپ تایم ویندوز

قطعا تا کنون با این مورد در برنامه های زیادی روبرو شدید.توسط این کد می توانید تشخیص دهید که ویندوز چه مدت است که در حال اجراست.

یک لیبل به فرمتون اضافه کنید :


function UpTime: string;
const
ticksperday: Integer = 1000 * 60 * 60 * 24;
ticksperhour: Integer = 1000 * 60 * 60;
ticksperminute: Integer = 1000 * 60;
tickspersecond: Integer = 1000;
var
t: Longword;
d, h, m, s: Integer;
begin
t := GetTickCount;

d := t div ticksperday;
Dec(t, d * ticksperday);

h := t div ticksperhour;
Dec(t, h * ticksperhour);

m := t div ticksperminute;
Dec(t, m * ticksperminute);

s := t div tickspersecond;

Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) +
' Minutes ' + IntToStr(s) + ' Seconds';
end;

یک دکمه بر روی فرم خود قرار دهید و با کد زیرآن را آزمایش کنید:


procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := UpTime;
end;

ایجاد یک پسورد به صورت خدکار(Random String)[B]

برای اینکار یک لیبل و یک دکمه بر روی فرم خود قرار دهید :

function RandomPassword(PLen: Integer): string;
var
str: string;
begin
Randomize;//gamelife.blogfa.com
//string with all possible chars
str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ';
Result := '';
repeat//gamelife.blogfa.com
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin//gamelife.blogfa.com
//generate a password with 10 chars
label1.Caption := RandomPassword(10);
end;

دوستان اين سورس ها چون كوتاه بودن همينجا گزاشتم البته ببخشيد كه صفحه شلوغ شد .

سلام
اينها رو بايد توي تاپيك نكته هاي ريز در دلفي مي نوشتي!
در ضمن توي كد بزارشون! موفق باشي

دوستان من سورس يك برنامه اي رو ميخوام كه هر وقت به اينترنت وصل بشيم خود به خود زمان رو حساب كنه و هر وقت هم از اينترنت خارج شديم زمان رو نگه داره لطفاَ كمـــك كنيد !!

بابا يكي نيست جواب منو بده ؟؟

سلام
اون چيزي كه مي خواهي رو من توي يكي از تاپيكا نوشتم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]