نرم افزارهای ساخته شده با دلفی یا زبانهای دیگر

saalek110

saalek110

Well-Known Member
با سلام.
در این تاپیک نرم افزارهایی که با دلفی یا زبانهای دیگر ساخته شده را قرار می دهم.

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

حجم دانلود را حدالامکان بگید.
شرح کد را هم اگر حالش را داشتید بگید.

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

یک سری کاربرد های خوبی دارند.
یک سری بعد آموزشی دارد.
یکی هم برای تشویق خودم و دوستان برای تکمیل نرم افزارهای شخصی شون و انتشار آنها.


چون اکثر برنامه ها خیلی ساده هستند کدهاشون را زیاد توضیح نمی دهم و می توانید به آموزش زیر مراجعه کنید:
آموزش دلفی
 
saalek110

saalek110

Well-Known Member
فهرست :

پست 3 : asm_to_exe
نرم افزاری برای ایجاد فایل asm و تبدیل به اگزه.

پست 6 : cpp_to_exe
کامپایل سریع cpp به exe با TURBO C 3بدون باز کردن محیط برنامه

پست 7 : کامپایل در دلفی بدون باز کردن IDE .

پست 8 : CDrom_open_close
باز و بسته کردن سی دی رام بدون زدن دکمه آن.

پست 9 : CDrom_open_close
باز و بسته کردن سی دی رام بدون زدن دکمه آن.
خوبی این برنامه اینه که میرود کنار ساعت کامپیوتر

پست 10 : وب بروسر

--------------------------------------
پست 11 : سریال هارد.
پست 16 : زدن کلید و مشاهده کد اسکی.
پست 17 : تشخیص نوع سیستم عامل و ورژن آن.
پست 18 : Win Inspector . برنامه مفیدی برای کسانی که به زبانهای دیگر هم کار می کنند برای دیدن هندل و کلاس پنجره ها. ماوس روی هر پنجره یا عضوی از پنجره برود این صفات را نشان می دهد.
 
saalek110

saalek110

Well-Known Member
یک برنامه برای راحت تر کار کردن اسمبلی:
دانلود:
Google_Talk_V1.0.0.104┊附带Googletalk.rar - DivShare
لینک دانلود رزرو:
http://saalek110.freeforums.org/post1329.html#p1329
(سال 98: لینک اولی احتمالا سوخته. لینک دومی هنوز کار می کند. الان ضمیمه پست هم شد. ولی tasm در ویندوز 64 بیت کار نمی کند.)
پوشه ای که دانلود می کنید شامل 4 فایل است. که بگذارید کنار هم باشند تا نرم افزار بتواند اجرا شود.

a8.gif


حجم دانلود : 370 کیلو.
با دلفی ساخته شده.

تصویر برنامه:
asm_to_exe.jpg
فایل sample.asm موقع اجرای برنامه به عنوان یک نمونه برنامه داخل برنامه باز میشه برای تست اولیه شما.
با زدن دکمه بزرگ ابتدا از کدهای داخل برنامه فایل test.asm ساخته میشه و بعد ازش test.obj و بعد test.exe و بعد هم همان test.exe اجرا میشه و شما می توانید نتیجه اجرا را ببینید.
با وجودی که بین مراحل من مکث هایی گذاشتم. ممکنه یک مرحله نرسه محصول مرحله بعد را تولید کند. دکمه را دو بار بزنید.
توضیحات بیشتر را اینجا بخوانید.

آموزش ساخت(با دلفی):
برای اجرای فایلی با برنامه دیگر از دستور ShellExecute استفاده کنید. در تاپیک زیر بحث شده( shellapi را uses کنید):
اجرای برنامه دیگر
برای اجرای منفرد:
کد: 
  WinExec('test.exe',1);
برای ایجاد تاخیر:
کد: 
   sleep(50);
برای نوشتن متن memo داخل یک فایل:
کد: 
procedure TForm1.Button1Click(Sender: TObject);
var
  myFile : TextFile;
begin
  // Try to open the Test.asm file for writing to
  AssignFile(myFile, 'Test.asm');
  ReWrite(myFile);
  // Write  to this file
   WriteLn(myFile, memo1.text);
  // Close the file
  CloseFile(myFile);
end;;
برای لود memo از فایل خارجی در ابتدای برنامه:
کد: 
 memo1.Lines.LoadFromFile('sample.asm');
صفت اسکرول memo را هم روی هر دو جهت بذارید تا اگر کد زیاد بود داخل memo بشه اسکرول کرد.
کلیک کنید تا باز شود...
 

پیوست ها

  • asm_to_exe.rar
    372 کیلوبایت · بازدیدها: 0
آخرین ویرایش:
farhad110

farhad110

Member
سلام saalek عزيز. به نظر من بهتره سورس كدها رو اينجا قرار بديم. اين فايلهايي كه فقط قابليت اجرا شدن رو دارند، كمك زيادي نمي كنند.
با قرار دادن سورس كد ها ميتونيم يك كار گروهي رو براي تكميل يك نرم افزار داشته باشيم
 
saalek110

saalek110

Well-Known Member
کامپایل سریع cpp به exe با TURBO C 3بدون باز کردن محیط برنامه
این برنامه برای کسانی خوبه که با توربو سی 3 کار می کنند. و نمی خوان محیط برنامه را باز کنند.

باید بروید پوشه:
C:\TC\BIN
و TCC.EXE و TLINK.EXE را هم کنار دو فایل دانلود شده قرار دهید.
لینک زیر حاوی دو فایل است.
یکی به نام compile.exe که با دلفی ساخته شده. و یکی به نام xxx.cpp که یک سورس سی پلاس است.

e3.gif

وقتی 4 فایل کنار هم باشند با کلیک بر روی compile.exe کار ایجاد فایل exe از سورس انجام میشه.

e4.gif

شما با ادیتور خود فایل xxx.cpp را تغییر می دهید و بعد با تنها یک کلیک روی فایل compile.exe فایل اجرایی شما ساخته می شود.
برنامه قبل ایجاد obj و exe جدید ابتدا قبلی ها را پاک می کند. تا در صورتی که برنامه شما اررور داشت بفهمید که کامپایلی انجام نشده.

لینک دانلود:
http://www.divshare.com/download/3794266-b82
حجم : 150 کیلو.

آموزش ساخت(در دلفی):
برای اجرای فایلی با برنامه دیگر از دستور ShellExecute استفاده کنید. در تاپیک زیر بحث شده( shellapi را uses کنید):
اجرای برنامه دیگر
برای خاتمه برنامه:
کد: 
      application.Terminate;
در برنامه بالا همه کدها در رویداد خلق فرم است. و همانجا هم بعد انجام کار برنامه خود را به اتمام می رساند.

دستور دیلت فایلها:
کد: 
      deleteFile('XXX.OBJ');
      deleteFile('XXX.exe');
کلیک کنید تا باز شود...
 
saalek110

saalek110

Well-Known Member
http://forum.p30world.net/showthread.php?t=62126&page=34

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

مثلا با نوشتن:
کد: 
dcc32 project1.dpr
داخل یک فایل bat می توان پروژه دلفی را کامپایل کرد و منتظر باز شدن IDE دلفی نماند.
من امتحان کردم انجام شد.

یا اگر می خواهید باز نرم افزاری برای این کار بسازید
با کد زیر در رویداد یک باتون این کار را بکنید:
کد: 
  Winexec('cmd /c (dcc32 project1.dpr)',SW_Hide);

باز هم تست شد. درست بود.
 
saalek110

saalek110

Well-Known Member
open_close_cdrom.gif

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

http://www.divshare.com/download/3148190-763

270 کیلو

آموزش ساخت(با دلفی):
ابتدا mmsystem را uses کنید.
بعد برای باز کردن cd rom کد زیر را در رویداد کلیک باتون قرار دهید:
کد: 
 mciSendString('Set cdaudio door open wait', nil, 0, handle); //to open
و برای بستن cd rom کد زیر را در باتون دیگر:
کد: 
   mciSendString('Set cdaudio door closed wait', nil, 0, handle); //to close
کلیک کنید تا باز شود...
 
saalek110

saalek110

Well-Known Member
کارش باز و بسته کردن در سی دی رام است.
با دلفی ساخته شده.

خوبی این برنامه اینه که میرود کنار ساعت کامپیوتر و هر وقت خواستیم با کلیک راست روی آن می توانیم سی دی رام را باز و بسته کنیم.

فایل اگزه:
http://www.divshare.com/download/3970793-6b2
حجم : 170 کیلو فشرده. 400 کیلو باز شده.

برنامه 2 یونیت دارد که زیپ کردم.
http://www.divshare.com/download/3970810-941
حجم : 7 کیلو.
 
DrXoX

DrXoX

Active Member
saalek110 و فرهاد عزیز و همه ی دوستان قدیمی و جدید

سلام

:sad: راستش من دارم خودم رو واسه کنکور کاردانی به کارشناسی آماده می کنم ، فعلا نت رو گذاشتم کنار تا بعد از کنکور

امشب گفتم بعد از ماهها یه سری بیام اینجا ، واقعا ایده ی بسیار خوبی هستش

من که فعلا گیر ( c , C++ , Vb ) افتادم ، واسه کنکور ، دلفی کلا از سرم پریده ، جاش پر شده از کلاس و شی و وراثت و...

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

کنکور اگر عمری باقی بود برای استفاده دوستان حتما قرار می دم

موفق باشید
 
saalek110

saalek110

Well-Known Member
سلام.
خوشحال شدم سر زدی.
هر وقت وقتتان آزاد شد بیایید. مشتاق حضور شما هستیم.
 
saalek110

saalek110

Well-Known Member
زدن کلید و مشاهده کد اسکی آن: - به زبان دلفی
من ننوشتم. در حرف a و A فرق نمی گذارد که فکر کنم اشتباه این برنامه است. به پست 19 که آقا فرهاد برنامه را اصلاح کرده توجه کنید. ممنون از ایشان.
اگزه:
زیپ 150 کیلو.
آنزیپ 350 کیلو.
http://www.divshare.com/download/6147833-06c

اگزه اصلاح شده بعد اصلاح آقا فرهاد:
 زیپ 170 کیلو.
آنزیپ 400 کیلو.
http://www.divshare.com/download/6152559-69e

سورس: سورس اصلاح نشد. خودتان اصلاح کنید. توجه کنید رویداد هم عوض شده. KeyDown باید بشود KeyPress
4 کیلو.
http://www.divshare.com/download/6147844-11c

کد موثر:
کد: 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.Text:=inttostr(key);
end;
 
saalek110

saalek110

Well-Known Member
تشخیص نوع سیستم عامل و ورژن آن: - به زبان دلفی

اگزه:
زیپ 150 کیلو.
آنزیپ 370 کیلو.
http://www.divshare.com/download/6147917-fb9

سورس:
6 کیلو.
http://www.divshare.com/download/6147918-262

کد موثر:
کد: 
procedure TForm1.Button1Click(Sender: TObject);
var
        Result : string ;
begin
        Case Win32Platform of
                ver_Platform_Win32_NT:
                        result :=  'Your using either Windows NT\2k\XP' + chr(13) + Format('Major Version:  %d',  [Win32MajorVersion]);

                Ver_Platform_Win32_Windows:
                        Result := 'Your using Windows 9x' + Chr(13) + Format('Major Version:  %d',  [Win32MajorVersion]);
                Ver_Platform_win32s:
                        Result := 'Your using something shitty like 3.1 ' + chr(13) + Format('Major Version:  %d',  [Win32MajorVersion]);
                else
                        ShowMessage('Unknown');
        end;

        ShowMessage(Result);
end;
 
saalek110

saalek110

Well-Known Member
Win Inspector: - به زبان دلفی
برنامه مفیدی برای کسانی که به زبانهای دیگر هم کار می کنند برای دیدن هندل و کلاس پنجره ها. ماوس روی هر پنجره یا عضوی از پنجره برود این صفات را نشان می دهد.

اگزه:
زیپ 22 کیلو.
http://www.divshare.com/download/6148038-c8f

سورس:
6 کیلو.
http://www.divshare.com/download/6148045-b15
 
farhad110

farhad110

Member
saalek110 گفت:
زدن کلید و مشاهده کد اسکی آن: - به زبان دلفی
من ننوشتم. در حرف a و A فرق نمی گذارد که فکر کنم اشتباه این برنامه است.

اگزه:
زیپ 150 کیلو.
آنزیپ 350 کیلو.
http://www.divshare.com/download/6147833-06c

سورس:
4 کیلو.
http://www.divshare.com/download/6147844-11c

کد موثر:
کد: 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.Text:=inttostr(key);
end;
کلیک کنید تا باز شود...

سلام سالک جان
این کد راه حل صحیح رو نشون میده. میتونید این پست رو حذف کنید و کذشو با پست خودتون جایگزین کنید.
کد: 
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  edit1.Text:=IntToStr(Ord(Key));
end;
 
saalek110

saalek110

Well-Known Member
برای حفظ حق نگارنده بهتر است پست شما باقی بماند.
ممنون از اصلاح.
در پست مذکور ارجاع دادم به پست شما.
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا