دیکشنری چند زبانه آنلاین

یک دیکشنری آنلاین و بسیار پرسرعت در امر ترجمه همزمان یک کلمه انگلیسی به فارسی ، عربی ، روسی ، آلمانی و فرانسه

با هر کلیدی کاسپر اسکی را رجیستر کنید

با این ترفند کاسپراسکی را رجیستر کنید مراحل زیر را دنبال کنید.

کرک کاسپر اسکی Kasper Sky

1- go To ( Start ) then ( Run )

2- Type ( regedit ) and press ( OK )

3- Go To ( HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\AVP6\Data ) & Right Click On ( Data ) & Choose ( Permissions )

4- Choose ( Advanced ) From The ( Permissions For Data ) New Window Opened

5- In ( Advanced Security Settings for Data ) Window .. There is a sentnce which begin with ( Inherit from parent ... ) click on the nike or check mark to remove it

6- After Removing the check or nike mark you will get a new message .. choose from it ( Remove )

7- Then in ( Advanced Security Settings for Data ) click on ( Apply )

8- After Clicking Apply you will get a new message choose ( Yes )

9- After That Press ( OK ) In ( Advanced Security Settings for Data )

10- After That .. Press ( OK ) In ( Permissions For Data )

11- After That Make An ( Exit ) For ( KasperSky ) .. & Run It Again

12- You Will Notice That The Kaspersky Icon Is Not ( RED ) But Its ( GRAY ) Which means that the program is not activated

13- But if you opened it you will see al things are working perfect 100% Working

What Happened To The Program After These Steps ?

- You Will update the kaspersky database manually ... no automatic updates

- thw windows security center will tell you that the firewall or\and antivirus is not working ... bec you made the kasper seemed unactiviated


by: [e-mail]

روش پیدا کردن شوهر(دختران دم بخت بخوانند)

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

۱ـ روش کوزه ای : همان روش قرن های قدیم که دختر کوزه به دوش به سمت رودخانه می رفت پسر به کوزه می خوره کوزه بشکست و بعد چنین گفته اند که : اگر با من نبودش هیچ میلی … چرا ظرف مرا بشکست لیلی

نتیجه گیری : بحران ازدواج حال حاضر بخاطر لوله کشی شدن آبه .

۲ـ روش عرفانی : چهل شبانه روز جلوی خونه رو آب و جارو میکنی و ده تا شمع روشن می کنی شکلات بین مردم تقسیم می کنی تا مرد آرزوهات بیاد.

نتیجه گیری : در صورت کمبود شمع می تونین فانوس هم روشن کنین .

۳ـ روش سوسکی : بخاطر ترس از یه سوسک که حتی می تونی خودت اون رو تو خونه یا کوچه کار بزاری همچین محکم می پری تو بغلش و بهش می چسبی که هیچ جور نتونه تو رو از خودش جدا کنه .

نتیجه گیری : با تشکر از کلیه سوسک های محترم مقیم مرکز و حومه .

۴ـ روش تیپ : انواع تیپ های مختلف روی خودت پیاده می کنی بیست و دو کیلو لوازم آرایش روی خودت خالی می کنی و سعی میکنی تا آنجا که ممکن است لباس ها مورد توجه باشند طوری که هرکس که تو خیابونه مجبور بشه حتما یک بار شما را نگاه کنه بعد گوشه خیابون می ایستی تا شوهر مناسب سوارت کنه .

نتیجه گیری : خطر احتمال از بین رفتن آبروی چندین و چند ساله تان وجود دارد اما چون به خاطر ازدواج است مسئله نیست این دفعه !

۵ ـ روش خر خونی : تو کلاس و مدرسه و دانشگاه نمره بیست کلاس می شی بالاخره تو کل سال های مدرسه یه خر خون دیگه پیدا میشه که بیاد سراغت و باعث بشه که نترشی .

نتیجه گیری : اگه شوهر پیدا نشد تا مقطع دکترا ادامه بدین و بعد ترک تحصیل کنین.

۶ ـ روش مایه داری : با دوستان توی انواع پارتی های شبانه و پیست های اسکی و باشگاه های بیلیارد و بولینگ هر کوفت و زهر مار دیگری که می تونی شرکت می کنی و حواست فقط به یه شوهر مناسب هست تا چیز های دیگه .

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

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

نتیجه گیری : التماس دعا خواهر .

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

نتیجه گیری : می تونین روی یه بچه پنج ساله برای بیست سال آینده برنامه بریزین

۹ ـ روش نامردی : جلوی یکی از این ماشین های پلیس یه دفعه می پری پسره رو می گیری تو بغلت و دستت رو میکنی تو دستش می گیری تا بعد از تعهد توی کلانتری مجبور بشه که باهات ازدواج کنه. البته این روش برای اونهایی است که از کلیه روش های بالا نا امید شده اند.

منبع:

نوشته شده توسط Amir در سایت (اسمش یادم رفته)

کپی پوشه در دلفی

procedure CopyFolder( src, dest : string );

var
  sts : Integer ;
  SR: TSearchRec;

begin
  sts := FindFirst( src + '*.*' , faAnyFile , SR );
  if sts = 0 then
    begin
      if ( SR.Name <> '.' ) and ( SR.Name <> '..' ) then
        begin
          //Put User Feedback here if desired
          Application.ProcessMessages;
          if pos('.', SR.Name) = 0 then
            begin
              {$I-}MkDir( dest + SR.Name ) ;{$I+}
             CopyFolder( src + SR.Name + '\', dest +
                                    SR.Name + '\' ) ;
            end
          else
            copyfile( pchar(src + SR.Name), pchar(dest + sr.name),
                          true );
        end;
      while FindNext( SR ) = 0 do
        begin
          if ( SR.Name <> '.' ) and ( SR.Name <> '..' ) then
            begin
              //Put User Feedback here if desired
              Application.ProcessMessages;
              if Pos('.', SR.Name) = 0 then
                begin
                  {$I-}MkDir( dest + SR.Name );{$I+}
                  CopyFolder( src + SR.Name + '\', dest + SR.Name
                                    + '\' ) ;
                end
              else
                copyfile( pchar(src + SR.Name), pchar(dest +
                              sr.name), true );
            end;
        end;
      FindClose( SR ) ;
    end ;
end;

winrar 4.1.6.5 فول ورژن

سلام

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

گفتم شاید بدرد کسی بخوره

دانلود

تغییر فونت hint دلفی

type
  TMyHintWindow = class(THintWindow)
    constructor Create(AOwner: TComponent); override;
  end;


implementation

constructor TMyHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  with Canvas.Font do
  begin
    Name := 'Arial';
    Size := Size + 5;
    Style := [fsBold];
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  HintWindowClass := TMyHintWindow;
  Application.ShowHint := False;
  Application.ShowHint := True;
end;