PDA

نسخه کامل مشاهده نسخه کامل : سورسهای نمونه در دلفی ...


Mahmood_N
31-07-2006, 07:13
سلام دوستان ...
این تاپیک رو درست کردم تا هرکی می تونه برنامه های کوچیک و جالب بنویسه و با سورس اینجا بزاره تا همه استفاده کنن ...
برای شروع من یکی می زارم :
سورس یه برنامه که نام دکمه استارت ویندوز رو تغییر می ده : دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]) ( حجم : 168 كيلوبايت )
منتظر نظرات و سورسهاي بقيه دوستان هم هستم ...
موفق باشيد ...
soldier
31-07-2006, 08:33
سلام محمود جان
به نظر من توی همون تاپیک تکه برنامه های(اگر اشتباه نکردم)
به این بحث ها ادامه بدیم بهتره.
خلاصه این نظر منه.شما هم نظرتون رو بگید.
مرد مباح
31-07-2006, 10:28
منم موافقم. برنامه هايي كه اون بخش توضيح اضافه ميخواد مينويسيم و لينك دانلود ميسازيم.
Mahmood_N
31-07-2006, 11:27
سلام محمود جان
به نظر من توی همون تاپیک تکه برنامه های(اگر اشتباه نکردم)
به این بحث ها ادامه بدیم بهتره.
خلاصه این نظر منه.شما هم نظرتون رو بگید
چشم ...
من هم موافقم ...
پس توي همون تاپيك ادامه مي ديم ...
ولي مي ترسم تعداد صفحات اون تاپيك زياد بشه و كسي حوصله نكنه كه همه رو نگاه كنه ... :sad:
خلاصه من گذاشتن سورسها رو توي همون تاپيك ادامه مي دم ...
ممنون كه نظر داديد ...
موفق باشيد ...
hp1361
31-07-2006, 18:15
سلام

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

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

يا حق
Mahmood_N
01-08-2006, 04:20
سلام ...
لطفا مشخص کنید که چی کار کنیم .... !!
اونجا یا اینجا ...
ولی من می گم که همینجا بهتره ( آخه اونجا شلوغ مي شه ) ...
منتظر نظرات شما هستم ( سولجر جان و مرد مباح عزيز ) ...
موفق باشيد ...
مرد مباح
01-08-2006, 08:07
همين جا ادامه بدين.
ما هم استفاده ميكنيم.
البته اگه برنامه ها كوچيك بود و كمتر از 2 پروسيجر داشت همون جا بنويسيد و لينك نزارين.

ممنون
Mahmood_N
03-08-2006, 06:09
سلام ...
پس همينجا ادامه مي ديم ...
اينم سورس يه برنامه سخنگو !!! : دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
هرچي بنويسيد براتون مي خونه ( البته انگليسي )
متاسفانه دوستان همكاري نمي كنند !!!
موفق باشيد ...
Mahmood_N
03-08-2006, 06:24
بازم سلام ...
اينم سورس يه برنامه كه شكلكهاي مخفي ياهو رو در موقع چت كردن ارسال مي كنه : دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
-------------------------
هيچ كس نظري چيزي نداره اينجا بنويسه ؟ !!!!!
-------------------------
موفق باشيد ... :sad:
مرد مباح
03-08-2006, 10:39
ممنون محمود جان.
برنامه اي سراغ داري كه برعكس عمل كنه؟
يعني صدا كني و بنويسه؟
soldier
03-08-2006, 13:01
سلام
مرد مباح براي اينكار اول بايد بتوني صدايي كه به كامپيوتر وارد ميشه
از طريق ميكرفن رو تشخيص بدي كه فركانسش چقدر اس.
كه خود اين كار هم خيلي سخته بعد بايد با دستور if
مي توني بگي بهش كه اين يك حرف هست و حروف را يكي
يكي با دستور ايف تشخيص بدي كه اشكالاتش هم خيلي زياد ميشه.
مرد مباح
03-08-2006, 18:31
به اين سادگي كه نوشتي نيست.
به خاطر همين هم گفتم كه ببينم كسي اين فايل رو داره يا نه.
اين برنامه خيلي كارهاي پيشرفته اي لازم داره كه من ميخوام توابعي از دلفي كه به اين قضيه مربوط ميشه رو اگه كسي داره بنويسه و در اين بخش بزاره.
ممنون از راهنمايي دوستان.
لطفا اين بحث رو ادامه ندين كه مسير بحث اصلي منحرف نشه.
اگه پيدا كردين لطفا فايل بزارين.
soldier
03-08-2006, 20:21
سلام
اگر ساختنش سخته كه مي دونم
پس گير آوردنش هم سخته اما اگر من
پيدا كردم بخيل بازي در نميارم.
Mahmood_N
29-08-2006, 16:58
سلام ...
من در اين مورد يه برنامه سراغ دارم ولي الان لينكش رو ندارم ، گير آوردم حتما مي زارم ...
در ضمن دوستان اصلا همكاري نمي كنن ، اين تاپيك داشت گم مي شد ...
يه سورس ديگه ( حذف راست كليك از فايلهاي فلش )
توي سورسي كه براتون گذاشتم ، طرز برداشتن راست كليك از فايلهاي فلش رو مي تونيد ياد بگيريد :
لينك دانلود : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
يادتون باشه كه ActiveX فلش رو نصب کنید ...
موفق باشید ...
amin a.^2
29-08-2006, 19:12
به نظر من اینجا برنامه ها را بذاریم و در اون تاپیک توضیحات را
amin a.^2
29-08-2006, 19:16
دوستان (مرد مباح و سلجر) سازش کنید این برنامه فکر نکنم به این آسونی پیدا بشه وگرنه که
مایکروسافت رو آفیسش با اون قیمت اینا نمی ذاشت
مرد مباح
30-08-2006, 09:11
ما با هم مشكلي نداريم كه ميگي سازش كنيد.
ضمنا اين برنامه با Matlab نسبتا راحتتره ولي من اونو نتونستم درست ياد بگيرم.
شايد كتابي كه خوندم خوب نبود.
soldier
30-08-2006, 12:31
سلام
آره مردمباح گفت ما جنگ كه نداشتيم مي گي سازش كنيم
من مي دونستم كه كم پيدا ميشه و گفتم !
در ضمن آقا محمود دست شما هم درد نكنه
كه توي اين تالار فعال هستي!
موفق باشيد
Mahmood_N
06-09-2006, 14:22
اين همه گفتگو ، دريغ از يه سورس ناقابل ... !!!
Shahriar-b
06-09-2006, 16:11
دوستان من سعي ميكنم چند تا سورس جالب بزارم....
Shahriar-b
06-09-2006, 16:34
ببخشيد اين پست تكرار شده اگه ممكنه يكي به من بگه چطوري حذف كنم . ؟؟
Shahriar-b
06-09-2006, 16:34
دوستان اينم سورس يك برنامه است كه اگه بازش كنيد صفحه همينطور ميلرزه براي توقف لرزشش بايد B رو بزنید برای خارج شدن از برنامه هم X .

دانلود سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
موفق باشید .
البته بازم هست.....
soldier
06-09-2006, 18:11
سلام
از فعاليت شما متشكريم!
در ضمن براي پاك كردن پست بايد مدير اينجا بياد و ببيندش و پاكش كنه!
ممنون و موفق باشي
Mahmood_N
07-09-2006, 02:58
سلام

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

دانلود سورس
موفق باشید .
البته بازم هست.....
دستت درد نكنه
منتظر بقيه دوستان هم هستم
انگار كسي ...
Shahriar-b
07-09-2006, 18:06
دوستان اينم سورس يك برنامه اي است كه تعداد كلماتي كه تو ممو بنويسيد رو ميشماره .

دانلود سورس این برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
Shahriar-b
07-09-2006, 18:12
این یکی هم سورس یک برنامه است که مشخصات CPU رو میده !!!

دانلود سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
مرد مباح
07-09-2006, 19:10
ممنون كه فعالي
بازم اين كارو بكن.
راستي توي بخش بازي سازي كه توي صفحه هست لطفا تخصصهاي خودتو بنويس
البته اگه علاقه اي به اين موضوع داري.
ممنون
Shahriar-b
07-09-2006, 21:47
ممنون ولي من تازه شروع كردم هنوز كامل دلفي بلد نيستم اما اگه بتونم حتماَ كمك ميكنم .
soldier
07-09-2006, 22:51
سلام
ميشه بپرسم اين كمپننتها رو از كجا گير مياري؟
Shahriar-b
08-09-2006, 10:01
اينم سورس يك برنامه اي كه اعداد باينري رو به دسيمال تبديل ميكنه .


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

خوب من بیشترشو از اینجا ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]) در میارم این سایت کلی سورس برای دلفی و بقیه زبان های برنامه نویسی داره. :cool:
Shahriar-b
08-09-2006, 21:10
تشخیص اینکه آیا رایانه دارای 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;
Shahriar-b
08-09-2006, 21:14
فهمیدن زمان آپ تایم ویندوز

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

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


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;
Shahriar-b
08-09-2006, 21:19
ایجاد یک پسورد به صورت خدکار(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;
Shahriar-b
08-09-2006, 21:20
دوستان اين سورس ها چون كوتاه بودن همينجا گزاشتم البته ببخشيد كه صفحه شلوغ شد .
soldier
08-09-2006, 22:32
سلام
اينها رو بايد توي تاپيك نكته هاي ريز در دلفي مي نوشتي!
در ضمن توي كد بزارشون! موفق باشي
Shahriar-b
10-09-2006, 17:13
دوستان من سورس يك برنامه اي رو ميخوام كه هر وقت به اينترنت وصل بشيم خود به خود زمان رو حساب كنه و هر وقت هم از اينترنت خارج شديم زمان رو نگه داره لطفاَ كمـــك كنيد !!
Shahriar-b
10-09-2006, 19:45
بابا يكي نيست جواب منو بده ؟؟
soldier
11-09-2006, 17:19
سلام
اون چيزي كه مي خواهي رو من توي يكي از تاپيكا نوشتم
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]