نتایح جستجو

دو تا ترك بغل خيابون ايستاده بودن به يه تاكسي ميگن سه نفر تجريش راننده ميگه شما كه دو نفريد تركا ميگن مگه خودت نمياي؟

يــك مرد موفق كسي است كه بيشتر از آنچه هـمــسرش خرج ميكند درآمد داشته باشد. يك زن موفق كسي است كه بتواند چنين مردي را پيدا كند

يه مرداب براي بدست اوردن يه نيلوفر سالها ميخوابه تا ارامش نيلوفر بهم نخوره پس اگه کسي رودوست داري براي داشتنش حتي شده سالها صبر کن

از هر دری، عکس

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

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

به سلامتی دیوار چون هر مرد و نامردی بهش تکیه می کنه.به سلامتی کلاغ نه برای سیاهیش،برای یک رنگیش.به سلامتی کرم خاکی نه برای کرم بودنش،برای خاکی بودنش.به سلامتی گاو چون نگفت من ،گفت ما و به سلامتی ما که دوست داشتن یادمون نرفته.

خودم پیداش کردم :thumbsup2: ShellExecute(hwnd(nil),'open','2.exe','f:\1.bmp','d:\',1); '2.exe' همون برنامه فتوشاپ هست 'f:\1.bmp' عکسی که می خوام بدم به فتوشاپ 'd:\' مسیر برنامه فتوشاپ اون 1 آخر هم مربوط به minimize و اینجور چیزاس که می تونه عدد های دیگه باشه (خیلی مهم نیس، خود برنامه رو...

خوب من 2 ترم پیش برای امتحان سیستم خوندمش فقط شب امتحان :biggrin: طول ترم هیچی از سیستم عامل نفهمیدم (به لطف استاد گرانقدر) ولی همون شب امتحان که این کتاب رو خوندم (از یکی قرض گرفته بودم) تازه فهمیدم قضیه چیه :D

همه اینا رو از http://forum.p30world.com پیدا کردم برای خودم که جالب بودن :)

يافتن فايل در تمام شاخه و زير شاخه هايش: يافتن فايل در تمام شاخه و زير شاخه هايش: function FindFile(Path,Files:String):TStrings; Var Dirs,Fill:String; IO,len,i:Integer; Search:TsearchRec; Begin Result:=TStringList.Create; If Path='' then exit; //While Pos(';',files)>0 do //...

سايز يك دايركتوري سايز يك دايركتوري function GetDirSize(dir: string; subdir: Boolean): Longint; var rec: TSearchRec; found: Integer; begin Result := 0; if dir[Length(dir)] <> '\' then dir := dir + '\'; found := FindFirst(dir + '*.*', faAnyFile, rec); while found = 0 do begin...

تعيين فضاي آزاد ديسك تعيين فضاي آزاد ديسك procedure TForm1.Button1Click(Sender: TObject); var freeSpace, totalSpace: Double; s: Char; begin // Drive letter // Laufwerksbuchstabe s := 'D'; freeSpace := DiskFree(Ord(s) - 64); totalSpace := DiskSize(Ord(s) - 64); label1.Caption :=...

تغيير نام يك دايركتوري تغيير نام يك دايركتوري uses ShellApi; procedure RenameDir(DirFrom, DirTo: string); var shellinfo: TSHFileOpStruct; begin with shellinfo do begin Wnd := 0; wFunc := FO_RENAME; pFrom := PChar(DirFrom); pTo := PChar(DirTo)...

ليست تمام زيرپوشه هاي يك پوشه اصلي ليست تمام زيرپوشه هاي يك پوشه اصلي procedure GetSubDirs(const sRootDir: string; slt: TStrings); var srSearch: TSearchRec; sSearchPath: string; sltSub: TStrings; i: Integer; begin sltSub := TStringList.Create; slt.BeginUpdate; try...

ليست تمام فايلهاي موجود در يك دايركتوري ليست تمام فايلهاي موجود در يك دايركتوري procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then...

فکر کنم باید از TFileOpenWith توی actionlist استفاده کنم ولی بلد نیستم :cry: آخه من چرا هیچی بلد نیستم :wallbash: