https://saeeddelphi86.blogfa.com کدهای مورد نیاز یک برنامه نویس دلفی fa blogfa.com Wed, 07 Nov 2007 23:16:16 +0330 https://saeeddelphi86.blogfa.com/post/10 function UpTime: string ; const ticksperday: Integer = 1000 * 60 * 60 * 24 ; ticksperhour: Integer = 1000 * 60 * 60 ; ticksperminute: Integer = 1000 * 60 ; tickspersecond: Integer = 1000 ; var t: Longword ; d, h, m, s: Integer ; begin t := GetTickCount ; d := t div ticksperday ; Dec(t, d * ticksperday ); h := t div ticksperhour ; Dec(t, h * ticksperhour ); m := t div ticksperminute ; Dec(t, m * ticksperminute ); s := t div tickspersecond ; Result := ' مدت Wed, 07 Nov 2007 23:16:16 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/10 https://saeeddelphi86.blogfa.com/post/9 Uses Shellapi یک Button روی فرم بذار و در رویداد کلیک مربو ط به کلید بنویس: procedure TForm1.BitBtn1Click(Sender: TObject ); begin ShellExecute (HWND(nil), 'open', 'taskmgr', '', '', SW_SHOWNORMAL ); end; موفق و سربلند باشید ************************************************************************************ Wed, 07 Nov 2007 23:15:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/9 https://saeeddelphi86.blogfa.com/post/8 میخوام تواین قسمت به درخواست دوستان سورس لغت نامه به زبان دلفی رو بذارم . قبل از هر کاری باید دوستان دقت کنن که مهمترین چیز در یک برنامه فرهنگ لغات بانک اطلاعاتی اونه که حاوی لغات به همراه معنی اون لغات باید باشه. سورس برنامه : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBTables, StdCtrls, Grids, DBGrids, DB, DBCtrls, ExtCtrls, OleCtrls; type TForm1 = class(TForm) //// کنترلهای مورد Wed, 07 Nov 2007 23:14:04 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/8 https://saeeddelphi86.blogfa.com/post/7 توسط اين كد سطل آشغال ويندوز را خالي كنید uses ,shellapi Procedure EmptyRecycleBin; Const SHERB_NCONFIRMATION = $0000001 ; SHERB_NOPROGRESSUI = $0000002 ; SHERB_NOSOUND = $0000004 ; Type TSHEmptyRecycleBin = function (Wnd : HWND; pszRootPath : PChar; dwFlags : DWORD) : HRESULT; stdcall; Var SHEmtyRecycleBin : TSHEmptyRecycleBin; LibHandel : THandle; Begin { EmptyRecycleBin } LibHandel := LoadLibrary(PChar('Shell32.dll')); if LibHandel> 0 then Sat, 25 Aug 2007 00:48:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/7 https://saeeddelphi86.blogfa.com/post/6 جواب: کافی است در رويداد TitleClick مربوط به شی DBGrid کد زیر را بنويسيد : procedure TForm1.DBGrid1TitleClick(Column: TColumn ); begin ADOTable1.Sort:=Column.FieldName ; end ; موفق وسربلند باشید . ********************************************************************* Wed, 22 Aug 2007 19:37:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/6 https://saeeddelphi86.blogfa.com/post/5 آيا براي فهميدن Resolation و تغيير دادن آن راه حلی وجود داره ؟ جواب: 1- ساده ترين راه تشخيص resolution : procedure TForm1.Button2Click(Sender: TObject ); var resx,resy:Integer ; begin ResX:=Screen.Width ; ResY:=Screen.Height ; Label1.Caption:=IntToStr(resx ); Label2.Caption:=IntToStr(resy ); end ; 2- تغيير resolution : procedure SetResolution(ResX, ResY: DWord ); var lDeviceMode : TDeviceMode ; begin EnumDisplaySettings(nil, 0, lDeviceMode ); Wed, 22 Aug 2007 19:36:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/5 https://saeeddelphi86.blogfa.com/post/3 جواب : سورس برنامه ای که اینکار را برای شما انجام می دهد را در زیر آورده ام { در قسمت } var loc1,loc2:word; Masking:boolean=False; Adding_Digit:boolean=True; implementation {$R *.dfm} { کد زیر رابنویسید Edit1Change و در رویداد Edit1, events در قسمت } procedure TForm1.Edit1Change(Sender: TObject); var i,j,n,m: Integer; a:array of string; My_Final_Text:string; begin if Masking then Masking:=false else begin n:=0; m:=0; My_Final_Text:=''; for i := 1 to Wed, 22 Aug 2007 19:31:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/3 https://saeeddelphi86.blogfa.com/post/2 تابع تبدیل عدد به حروف جواب : درقسمت implementation تابع زیر را بنویسید: const yekan : array 0..9 of string = ('صفر','يک','دو','سه','چهار','پنج','شش','هفت','هشت','نه'); dahgan : array 0..9 of string = ('','','بيست','سي','چهل','پنجاه','شصت','هفتاد','هشتاد','نود'); dahyek : array 10..19 of string = ('ده','يازده','دوازده','سيزده','چهارده','پانزده','شانزده','هفده','هجده','نوزده'); sadgan : array 0..9 of string = Wed, 22 Aug 2007 19:29:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/2 https://saeeddelphi86.blogfa.com/post/1 اين يک تابع است که تاریخ ویندوز را گرفته و آن را به تاریخ شمسی تبدیل مکیند. بعد از قسمت implementation یونیت مربوطه تابع زیر را قرار دهید: implementation {$R *.dfm} {تابع تبدیل تاریخ میلادی به شمسی} Function MiladyToShamsi(DTime:tdateTime):tdateTime; var YearEqual:array 0..2,0..2 of integer; AddOneDay,AddFarDay:boolean; AddTodays:byte; Farday:byte; ThisDay:word; ThisMonth:word; ThisYear:word; YearDif1:Integer; YearDif2:Integer; TestRange1,testRange2, Wed, 08 Aug 2007 22:05:00 +0330 saeeddelphi86 saeeddelphi86.blogfa.com/post/1