دلفی: سورس های باحال - مشکلات - کامپاننت و ...

[hanabijani]

سلام....

در نظر دارم همه علاقه مندا به دلفی اینجا جمع شن و هر چی راجع به دلفی می دونیم به هم بگیم ...
من به شخصه خیلی دوسش دارم

 

[hanabijani]

اولیشو خودم شروع می کنم :

کافیه تو Event دانلود فرمتون این خط رو بنویسید :

AnimateWindow(Form1.Handle,2000,AW_HOR_POSITIVE

می بینید که افکت جالبی به فرمتون میده ...

 

[Ebrahim Shojaei]

خیلی خوبه ولی یه محبتی بکن و بیشتر در مورد طرحت توضیح بده. آیا فقط تو زمینه ی دلفی می خوای یه همچین کاری بکنی؟

 

[پرشيا]

سلام به كامپيوتري هاي عزيز.
اگه ميخوايد كد بنويسيد از دكمه كد http://www.www.www.iran-eng.ir/images/editor/code.gif استفاده كنيد.

مثله اين:

AnimateWindow(Form1.Handle,2000,AW_HOR_POSITIVE)

با تشكر: آچار فرانسه!

 

[hanabijani]

سلام عزیز
بله ... فقط دلفی .................


من کشته مرده استقبال گرم برو بچم ...

راستی پرشیا مرسی از راهنماییت

 

[Shateri]

سلام.
خوب راستش را بخواين من الان 4 - 5 ساله كه دارم دلفي كار مي كنم. واقعا ازش لذت مي برم. به اندازه اي كه نمي دونم از كدوم قسمتش واستون بگم. ولي يه پيشنهاد دارم:
ما مي تونيم همه با هم شركت بورلند را متقاعد كنيم كه به ما سرويس هاي خاصي بده. من قبلا از سرويس هاي اون استفاده مي كردم. اما الان سايتشون را تغيير دادن و لازمه كه تعداد زيادي فارسي زبون از اونا بخوايم تا به ما سرويس بدن.
لطفا اگر خواستيد در اين زمينه كاري بكنيد منو در جريان بذاريد. مرسي

 

[پرشيا]

سلام.
خوب راستش را بخواين من الان 4 - 5 ساله كه دارم دلفي كار مي كنم. واقعا ازش لذت مي برم. به اندازه اي كه نمي دونم از كدوم قسمتش واستون بگم. ولي يه پيشنهاد دارم:
ما مي تونيم همه با هم شركت بورلند را متقاعد كنيم كه به ما سرويس هاي خاصي بده. من قبلا از سرويس هاي اون استفاده مي كردم. اما الان سايتشون را تغيير دادن و لازمه كه تعداد زيادي فارسي زبون از اونا بخوايم تا به ما سرويس بدن.
لطفا اگر خواستيد در اين زمينه كاري بكنيد منو در جريان بذاريد. مرسي

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

 

[mahnazvenus]

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

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

 

[saeid_atom]

ميشه كمكم كنيد بچه ها( برنامه ماشين حساب به زبان دلفي مي خواستم ممنون ميشم )

 

[moongirl]

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

 

[mohammad_20]

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

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

 

[moongirl]

ممنون از توضيحتون
راستش اسمش را هم به عنوان يك زبان برنامه نويسي نشنيده بودم

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

 

[saeid_atom]

کسی نیست به ما کمک کنه

 

[danial112]

برید حالشو ببرید؟!

برید حالشو ببرید؟!

dll ای برای گرفتن تمام اطلاعات سیستمی مورد نیاز شما
این واسه آنایی که واقعا دلفی کارندااااااااااااااا؟!

 

[abc_ramak]

منم اومدم

 

[seyyed zia]

لطفا بگین چه جوری میشه برنامه های جانبی(مثل فتوشاپ)رو تو دلفی اجرا کرد

 

[yasin_d]

لطفا بگین چه جوری میشه برنامه های جانبی(مثل فتوشاپ)رو تو دلفی اجرا کرد

برای اجرای برنامه های خارجی در دلفی باید از کامپوننت ole استفاده کنی

 

[yasin_d]

اگه وقت کنم واسه خوره های دلفی چند تا ترفند می زارم از لیست زیر یکی رو انتخاب کنید:
دریافت میزان زمان کار کردن کامپیوتر
تنظیم "تاریخ ساخت" یک فایل
کاربر فعال آیا یک ادمین هست
کامپوننت TButton با Caption چند خطی
ساخت آرایه ای از یک نوع کامپوننت در زمان اجرا
افکت fadeout در یک عکس با فرمت bmp
تغییر فونت tooltip
بدست اوردن سریال نامبر یک درایو
مخفی کردن title
..............

 

[abc_ramak]

دریافت میزان زمان کار کردن کامپیوتر

 

[yasin_d]

میزان زمان کارکرد کامپیوتر

میزان زمان کارکرد کامپیوتر

میزان زمان کارکرد کامپیوتر:

برای این کار از تابع GetTickCount که از api های ویندوز هست استفاده می کنیم لازم به ذکر است که این تابع بیشترین مدتی را که ذخیره می کند 49.7 روز است. البته تابع عدد را در مبنای میلی ثانیه باز می گرداند.

تابع تکمیل شده زیر عدد را برای شما می گرداند.

function WindowsUpTime : string ;
  function MSecToTime(mSec: Integer): string;
  const
    secondTicks = 1000;
    minuteTicks = 1000 * 60;
    hourTicks = 1000 * 60 * 60;
    dayTicks = 1000 * 60 * 60 * 24;
  var
     D, H, M, S: string;
     ZD, ZH, ZM, ZS: Integer;
  begin
     ZD := mSec div dayTicks;
     Dec(mSec, ZD * dayTicks) ;
     ZH := mSec div hourTicks;
     Dec(mSec, ZH * hourTicks) ;
     ZM := mSec div hourTicks;
     Dec(mSec, ZM * minuteTicks) ;
     ZS := mSec div secondTicks;
     D := IntToStr(ZD) ;
     H := IntToStr(ZH) ;
     M := IntToStr(ZM) ;
     S := IntToStr(ZS) ;
     Result := D + '.' + H + ':' + M + ':' + S;
  end;
begin
  result := MSecToTime(GetTickCount) ;
end;

این تابع متنی را با فرمت زیر باز می گرداند

"

days.hours:minutes:seconds", for example: "1.12:30:12"​

 

[abc_ramak]

خیلی ممنون همین الان میدوم میرم امتحانش کنم
باید خیلی جالب باشه
فکر نمی کردم اصلا بشه همچین کاری کرد
بازم میتونیم از اون لیست انتخاب کنیم؟

 

[abc_ramak]

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

ZM := mSec div minuteTicks;
     Dec(mSec, ZM * minuteTicks) ;
     ZS := mSec div secondTicks;
     Dec(mSec, Zs * secondTicks) ;

 

[yasin_d]

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

 

[abc_ramak]

میشه از کل رجیستری ویندوز backup گرفت و اجراش کرد؟

 

[yasin_d]

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

می تونی فایل regedit رو کپی کنی و دوباره برگردونیش و سیستم رو ریستارت کنی

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

program DateRegistry;

uses
   Windows,
   Dialogs,
   Registry,
   SysUtils;


{$R *.RES}

procedure SaveDate
  (const sKey: string;
   const sField: string;
   aDate: TDateTime) ;
begin
   with TRegistry.Create do
   begin
     RootKey := HKEY_CURRENT_USER;
     if OpenKey(sKey, True) then
     begin
       WriteBinaryData(sField, aDate, SizeOf(aDate)) ;
       CloseKey;
     end;
     Free;
   end;
end;

function ReadDate
   (const sKey: string;
    const sField: string) : TDateTime;
begin
   // default: return 0
   Result := 0;

   with TRegistry.Create do
   begin
     RootKey := HKEY_CURRENT_USER;
     if OpenKey(sKey, False) then
     begin
       try
         ReadBinaryData(sField, Result, SizeOf(Result)) ;
       except
       end;
       CloseKey;
     end;
     Free;
   end;
end;

var
   dDate: TDateTime;

begin
   // save the date
   SaveDate('\DateTimeDemo', 'LastDate', Now) ;

   // retrieve it
   dDate := ReadDate('\DateTimeDemo', 'LastDate') ;

   // show it
   ShowMessage(DateTimeToStr(dDate)) ;
end.

 

[zagros]

سوال

سوال

اولیشو خودم شروع می کنم :

کافیه تو Event دانلود فرمتون این خط رو بنویسید :

AnimateWindow(Form1.Handle,2000,AW_HOR_POSITIVE

می بینید که افکت جالبی به فرمتون میده ...

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

 

[abc_ramak]

راستش نفهمیدم

 

[yasin_d]

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

منظورت رو واضح تر بگو.

راستش نفهمیدم

کجاش رو نفهمیدی

 

[abc_ramak]

اونجاش که چجوری backup بگیرم
این مثال روی خود کلید ها کار کرده

 

[yasin_d]

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