از 3 نفر هرگز متنفر نباش :
فروردینی ها، مهری‌ها، اسفندی ها
چـون بهتـرینند...

3 نفر رو هرگز نرنجون:

اردیبهشتی ها ، تیری ها ، دی ـی ها
چـون صادقند ...

3 نفر رو هیچوقت نذار از زندگیت برن:
شهریوری‌ ها ، آذری‌ ها ،آبانی ها
چـون به درد دلت گوش میدند ...

3 نفر رو هرگز از دست نده:
مرداد ی ها ، خردادی ها ، بهمنی ها
چـون دوست ِ واقعی اند ...

متولد کدوم یکی هستین دوستان؟

 

 

جهت turn off يك دكمه بر روي فرم قرار مي دهيم و در رخداد كليك آن دستور زير را تايپ مي كنيم .

ShellExecute(Handle, 'Open',PChar('shutdown.exe'), PChar('-s -c "HeHeHe - your about to get;(shutdown! :D"'), nil, SW_SHOW

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

 mciSendString('open cdaudio!X: alias driveX', nil, 0, 0);
 mciSendString('set driveX door open wait', nil, 0, 0);

به جای X نام درایو را وارد کنید(فقط در سطر اول)

برای بستن نیز:

mciSendString('set driveX door closed wait', nil, 0, 0);

نمونه برنامه :

procedure TMain.open_cdrom(Sender: TObject);
var
  i:integer;
  s:string;
begin
   s:=trim(ComboBox4.Text);//combobox4 =name cd rom
   i:=pos(':\',s);
   Delete(s,i,2);
   label18.Caption:=s;
   mciSendString(pansichar('open cdaudio!'+S+' alias drive'+s), nil, 0, 0);
   mciSendString(pansichar('set drive'+s+' door open wait'), nil, 0, 0);
end;

procedure TMain.close_cdrom(Sender: TObject);
var
  s:string;
begin
  s:=trim(label18.Caption);
  mciSendString(pansichar('set drive'+s+' door closed wait'), nil, 0, 0);
end;

shellexecute(handle,'open','http://stcomputer.rozblog.com/',nil,nil,sw_show);//merci

or

shellexecute(handle,'open',pansichar(edit1.text),nil,nil,sw_show);//merci

نگاره‌های دیواری
دوازده ساعت شارژ باتري!!!!

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

الف-باطریهای نیکل کادمیوم
اینها در واقع اولین نسل تجاری باطریهای با تولید انبوه در ابزارهایی مانند موبایل و نوت بوک بودند. علامت مشخصه آنها این است که روی باطری
Ni-Cd
و یا خود کلمه نیکل-کادمیوم قید شده است. در دفترچه مشخصات هم عینا” نوع و توان باطری قید میشود. این نوع باطریها اکنون منسوخ شده اند.

در واقع این باطریها بودند که اولا” شارژ ابتدایی 12 ساعته نیاز داشتند و ثانیا” هر بار باید تا انتها تخلیه می شدند تا شارژ مجدد موجب از بین رفتن سلولها نشود.

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

ب-باطریهای یون لیتیومی
اینها نسل دوم تجاری باطریها در دستگاه های الکترونیکی بودند. علامت مشخصه آنها کلمه
Li-On
روی بدنه باطری و دفترچه مشخصات محصول است. این باطریها کماکان در موبایل و نوت بوک کاربرد دارند اما آنها هم با نسل جدیدتر در حال تعویض هستند.
کارکرد صحیح این باطریها موجب شده که نیازی به شارژ ابتدایی 12 ساعته ندارند و همچنین کاملا” برعکس باطریهای نسل قبلی به هیچ وجه نباید تا سر حد تخلیه شدن کار کنند. باید در حد 10 درصد شارژ باقیمانده مجدد شارژ شوند و سپس تا 100 درصد مجددا” شارژ گردند.

ج-باطریهای لیتیوم پلیمری
اینها نسل روز باطریها هستند که علاوه بر محدودیتهای کمتری که دارند ایمنتر و سبکتر هستند.
علامت مشخصه آنها کلمه
Li-Po یا Li-on-Po
است. در دفترچه مشخصات محصول هم عینا” نوع باطری با عبارت لیتیوم پلیمری یا کاملتر آن یون لیتیوم پلیمر قید میگردد. این نوع باطریها نه تنها شارژ ابتدایی 12 ساعته نیاز ندارند بلکه هیچ محدودیتی در کاربرد هم ندارند. مهمترین علامت مشخصه اینکه دستگاه شما دارای این نوع باطری است آن است که در زمان اتصال به کامپیوتر با پورت شارژ شود.USB
چون این باطریها نیازی نیست هر بار تا 100 درصد شارژ شوند سازندگان امکان شارژ با
را در آنها قرار دادهUSB
اند تا عمر باطری بهتری داشته باشند.

خوب در حال حاضر هر دستگاه الکترونیکی که بخرید به احتمال 99.9 درصد فاقد باطری نوع اول است که باطری نیکل کادمیومی بود. پس عملا” شارژ 12 ساعته کاملا” منسوخ و یک سنت پارینه سنگی است که کماکان در دهان افراد در حال گردش است.

منبع : گروه متخصصین ایرانی

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

برای دریافت کد به ادامه مطلب برید

با کلیک بر روی عنوان Title هر ستونDBGrid می توانید اطلاعات درون  آن را مرتب کنید .

برای این کار کافیست در رويداد TitleClick مربوط به شی DBGrid کد زیر را بنويسيد :

procedure TSherkatListF.DBGrid1TitleClick(Column: TColumn);1   
begin
;  ADOTable1.Sort:=Column.FieldName
 ;  end