صفحه 1 از 3 123 آخرآخر
نمایش نتایج 1 تا 40 از 120

نام تاپیک: مرجع توابع دلفی

  1. #1

    Lightbulb مرجع توابع دلفی

    Procedures
    =======
    Abort
    Append
    AppendStr
    Assign
    AssignFile
    AssignPrn
    Beep
    BlockRead
    BlockWrite
    Break
    ChDir
    Close
    CloseFile
    Continue
    DateTimeToString
    Dec
    DecodeDate
    DecodeDateTime
    DecodeTime
    Delete
    Dispose
    EndThread
    Erase
    Exclude
    Exit
    FillChar
    Flush
    FreeAndNil
    FreeMem
    GetDir
    GetLocaleFormatSettings
    Halt
    Inc
    Include
    Insert
    MkDir
    Move
    New
    ProcessPath
    Randomize
    Read
    ReadLn
    ReallocMem
    Rename
    ReplaceDate
    ReplaceTime
    Reset
    ReWrite
    RmDir
    RunError
    Seek
    SetLength
    SetString
    ShowMessage
    ShowMessageFmt
    ShowMessagePos
    Str
    Truncate
    Val
    Write
    WriteLn



    Functions
    ======
    Abs
    Addr
    AnsiCompareStr
    AnsiCompareText
    AnsiContainsStr
    AnsiContainsText
    AnsiEndsStr
    AnsiIndexStr
    AnsiLeftStr
    AnsiLowerCase
    AnsiMatchStr
    AnsiMidStr
    AnsiPos
    AnsiReplaceStr
    AnsiReverseString
    AnsiRightStr
    AnsiStartsStr
    AnsiUpperCase
    ArcCos
    ArcSin
    ArcTan
    Assigned
    BeginThread
    Bounds
    CelsiusToFahrenheit
    ChangeFileExt
    Chr
    CompareStr
    CompareText
    CompareValue
    Concat
    Convert
    Copy
    Cos
    CreateDir
    CurrToStr
    CurrToStrF
    Date
    DateTimeToFileDate
    DateTimeToStr
    DateToStr
    DayOfTheMonth
    DayOfTheWeek
    DayOfTheYear
    DayOfWeek
    DaysBetween
    DaysInAMonth
    DaysInAYear
    DaySpan
    DegToRad
    DeleteFile
    DirectoryExists
    DiskFree
    DiskSize
    DupeString
    EncodeDate
    EncodeDateTime
    EncodeTime
    EndOfADay
    EndOfAMonth
    Eof
    Eoln
    Exp
    ExtractFileDir
    ExtractFileDrive
    ExtractFileExt
    ExtractFileName
    ExtractFilePath
    FahrenheitToCelsius
    FileAge
    FileDateToDateTime
    FileExists
    FileGetAttr
    FilePos
    FileSearch
    FileSetAttr
    FileSetDate
    FileSize
    FindClose
    FindCmdLineSwitch
    FindFirst
    FindNext
    FloatToStr
    FloatToStrF
    ForceDirectories
    Format
    FormatCurr
    FormatDateTime
    FormatFloat
    Frac
    GetCurrentDir
    GetLastError
    GetMem
    Hi
    High
    IncDay
    IncMillsecond
    IncMinute
    IncMonth
    IncSecond
    IncYear
    InputBox
    InputQuery
    Int
    IntToHex
    IntToStr
    IOResult
    IsInfinite
    IsLeapYear
    IsMultiThread
    IsNaN
    LastDelimiter
    Length
    Ln
    Lo
    Log10
    Low
    LowerCase
    Max
    Mean
    MessageDlg
    MessageDlgPos
    Min
    MonthOfTheYear
    Now
    Odd
    Ord
    ParamCount
    ParamStr
    Pi
    Point
    PointsEqual
    Pos
    Pred
    Printer
    PromptForFileName
    PtInRect
    RadToDeg
    Random
    RandomRange
    RecodeDate
    RecodeTime
    Rect
    RemoveDir
    RenameFile
    Round
    SeekEof
    SeekEoln
    SelectDirectory
    SetCurrentDir
    Sin
    SizeOf
    Slice
    Sqr
    Sqrt
    StringOfChar
    StringReplace
    StringToWideChar
    StrScan
    StrToCurr
    StrToDate
    StrToDateTime
    StrToFloat
    StrToInt
    StrToInt64
    StrToInt64Def
    StrToIntDef
    StrToTime
    StuffString
    Succ
    Sum
    Tan
    Time
    TimeToStr
    Tomorrow
    Trim
    TrimLeft
    TrimRight
    Trunc
    UpCase
    UpperCase
    VarType
    WideCharToString
    WrapText
    Yesterday


  2. #2

    نقل قول: مرجع توابع دلفی

    به هر حال كار خوبي بود و اميد وارم اين كار در مورد ليست توابع API هم انجام بشه حالا هر كدوم از دوستان كه دسترسي به منبعي دارند اعلام كنند.
    و مایکروسافت MSDN را آفرید ...

  3. #3

    Lightbulb نقل قول: مرجع توابع دلفی

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

    من در فایل پیوست توضیحات انگلیسی توابع رو قرار دادم اگر از دوستان تو ترجمه دستی داره لطف کنه معنی اونها رو سطر به سطر در یه فایل تکست بزاره تا به برنامه اضافه کنم .

    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: rar S.rar‏ (3.2 کیلوبایت, 622 دیدار)

  4. #4
    کاربر تازه وارد
    تاریخ عضویت
    آبان 1388
    محل زندگی
    جزيره كيش
    سن
    53
    پست
    61

    Smile نقل قول: مرجع توابع دلفی

    سلام دوست عزيز
    اگه منظور شما فقط ترجمه اين متني هست كه فرستاديد بايد بگم من فكر نميكنم نيازي به اين كار باشه چون به هر حال همه دوستان در حدي كه بتونند اين متن رو بخونند اطلاعات دارند
    و اگه ميخوايد در مورد هر كدوم از موضوعات اون متن توضيح داده بشه بايد بگم كار خيلي وقت گيريه و اگه ميخوايد اين كار انجام بشه بهتره اين متن رو به قطعات كوچك تقسيم كني و توي اين تاپيك بگذاري تا هركدوم از دوستان يه بخشي رو انتخاب كنند و كاملش كنند. اينجوري زود تر به جواب ميرسي.
    موفق باشي

  5. #5
    کاربر تازه وارد
    تاریخ عضویت
    آبان 1387
    محل زندگی
    مشهد
    پست
    33

    نقل قول: مرجع توابع دلفی

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

  6. #6

    نقل قول: مرجع توابع دلفی

    ممنون ، مفید خواهد بود ...
    ولی بهتر بود نام توابع رو هم همراه با توضیحات توی فایل می نوشتید ، در این صورت بهتر می شد ترجمه کرد ، ترجمه باید مفهومی باشه نه لفظی ...

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

    موفق باشید ...

  7. #7

    Lightbulb نقل قول: مرجع توابع دلفی

    اگه منظور شما فقط ترجمه اين متني هست كه فرستاديد بايد بگم من فكر نميكنم نيازي به اين كار باشه چون به هر حال همه دوستان در حدي كه بتونند اين متن رو بخونند اطلاعات دارند
    ممنون از پیشنهادی که دادین ، ولی چه اشکالی داره توضیحات به زبان فارسی هم وجود داشته باشند !
    به هر حال افرادی هم هستند که تازه به این عرصه پا گذاشته اند و شاید تحلیل متون انگلیسی برایشان کمی سخت و گیج کننده باشد !

    و اگه ميخوايد در مورد هر كدوم از موضوعات اون متن توضيح داده بشه بايد بگم كار خيلي وقت گيريه و اگه ميخوايد اين كار انجام بشه بهتره اين متن رو به قطعات كوچك تقسيم كني و توي اين تاپيك بگذاري تا هركدوم از دوستان يه بخشي رو انتخاب كنند و كاملش كنند. اينجوري زود تر به جواب ميرسي.
    این هم پیشنهاد خوبیه !
    ولی فکر نمی کنم وقت زیادی ببره مخصوصا برای اونایی که ترجمه انگلیسیشون خوب باشه !

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

    باز من دوباره آپلود می کنم .

    ولی بهتر بود نام توابع رو هم همراه با توضیحات توی فایل می نوشتید ، در این صورت بهتر می شد ترجمه کرد ، ترجمه باید مفهومی باشه نه لفظی ...
    زیاد نمی خواد توضیح بدید چون مفهوم اکثر توابع در نام خود اونها وجود داره من این کار رو فقط می خوام برای افرادی انجام بشه که خیلی مبتدی هستند وگرنه اکثر دوستان برنامه نویس با نام و طرز کار این توابع آشنا هستند . به هر حال به روی چشم شما هر کجا لازم داشتید برام PM بزنید تا نام توابعی رو که نیاز دارید براتون بفرستم , چون این توابع رو من از کتاب ها دارم در میارم کار وقتگیریه لذا اگه می تونید با همین فایل سر کنید .

    با تشکر
    فایل های ضمیمه فایل های ضمیمه

  8. #8

    نقل قول: مرجع توابع دلفی

    من منتظر کمک و پیشنهاد دوستان هستم !
    من در حال ترجمه هستم ، شاید تا فردا تموم بشه ...
    پیشنهاد می کنم نرم افزار رو کمی جامع تر کنید و به عنوان مثال برای هر تابع یک مثال هم قرار بدید ، این طوری بسیار مفید خواهد بود ...

    ...

  9. #9

    Lightbulb مرجع توابع دلفی - Application Programming Interface

    این هم یه کتاب جامع برای استفاده از توابع API در دلفی برای سیستم عامل ویندوز :

    Delphi_Win32_Shell_API_.part01.rar

    Delphi_Win32_Shell_API_.part02.rar

    Delphi_Win32_Shell_API_.part03.rar

    Delphi_Win32_Shell_API_.part04.rar

    Delphi_Win32_Shell_API_.part05.rar

    Delphi_Win32_Shell_API_.part06.rar
    آخرین ویرایش به وسیله دلفــي : سه شنبه 03 آذر 1388 در 15:13 عصر

  10. #10

    Lightbulb مرجع توابع دلفی - Application Programming Interface

    و این هم یه کتاب جامع برای استفاده از توابع API در دلفی برای سیستم عامل لینوکس :

    Delphi_The_Linux_Api.part01.rar

    Delphi_The_Linux_Api.part02.rar

    Delphi_The_Linux_Api.part03.rar

    Delphi_The_Linux_Api.part04.rar

    Delphi_The_Linux_Api.part05.rar

  11. #11

    Lightbulb توابع API


    1. API function of the network
    WNetAddConnection with the creation of a network of
    permanent link
    WNetAddConnection2 with the creation of a network connection
    WNetAddConnection3 with the creation of a network connection
    WNetCancelConnection the end of a network connection
    WNetCancelConnection2 the end of a network connection
    WNetCloseEnum the end of the first enumeration operation
    WNetConnectionDialog start of a standard dialog box in order
    to establish connections with the network resources
    WNetDisconnectDialog start of a standard dialog box in order
    to disconnect the connection with network resources
    WNetEnumResource enumeration of network resources
    WNetGetConnection access to local or connected to a network
    resource name
    WNetGetLastError access network expansion error error
    message
    WNetGetUniversalName access to a network of remote file name
    and / or UNC (Universal Naming norms) name
    WNetGetUser access to a network connection to the name
    WNetOpenEnum start of network resources to conduct the
    enumeration process
    2. API function of the news
    BroadcastSystemMessage system will be a message broadcast
    system to all of the top-level window
    GetMessagePos queue to obtain information on a message that
    we have dealt with when the mouse pointer location of the
    screen
    GetMessageTime queue to obtain information on a message that
    we have dealt with when the time
    PostMessage a message will be delivered to a specific window
    of the message queue
    PostThreadMessage a message will be delivered to the
    application
    RegisterWindowMessage access to a string identifier assigned
    to the message ID
    ReplyMessage reply to a message
    SendMessage call a window of the window function, a message
    will be sent to the window
    SendMessageCallback will be sent a message window
    SendMessageTimeout window to send a message
    SendNotifyMessage window to send a message

    3. API's document processing function
    CloseHandle to close a core target. Including documents,
    maps, process, thread, security and synchronization objects,
    such as
    CompareFileTime comparison of the two papers time
    CopyFile to copy files
    CreateDirectory to create a new directory
    CreateFile open and create documents, pipeline, mail slot,
    communications services, equipment and console
    CreateFileMapping to create a new document mapping target
    DeleteFile to delete the specified files
    DeviceIoControl on the implementation of the equipment
    designated by the operation
    DOS will DosDateTimeToFileTime the date and time value into
    a value win32 FILETIME
    FileTimeToDosDateTime a win32 FILETIME value of the DOS into
    the date and time value
    FileTimeToLocalFileTime a FILETIME structure to the cost of
    conversion time
    FileTimeToSystemTime according to a FILETIME structure, a
    loading structure SYSTEMTIME
    FindClose to close by the FindFirstFile function to create a
    search handle
    FindFirstFile According to the document file name to find
    According to the FindNextFile call FindFirstFile function of
    a specified file name to find the next file
    FlushFileBuffers designated for the file handle, set within
    the buffer zone file
    FlushViewOfFile document will be written into the buffer
    zone map of all the data to the disk set
    GetBinaryType to determine whether the documents can be
    implemented
    GetCompressedFileSize judge in a compressed file on the disk
    occupied by the actual number of bytes
    GetCurrentDirectory loaded in a buffer zone in the current
    directory
    GetDiskFreeSpace access to a disk with information about the
    organization, as well as the capacity to understand the
    remaining space
    GetDiskFreeSpaceEx access to a disk with the organization as
    well as the remaining capacity of the space-related
    information
    GetDriveType a disk drive to determine the type of
    GetExpandedName to obtain a compressed file full name
    GetFileAttributes designated to determine the properties of
    paper
    GetFileInformationByHandle this function provides access to
    information documents a mechanism
    GetFileSize determine the length of documents
    GetFileTime to obtain the documents specified time
    information
    GetFileType given in the paper handles the premise, to
    determine the type of document
    GetFileVersionInfo support from the tag version of a paper
    version of the module, access to information
    GetFileVersionInfoSize version includes resources for a
    paper version of the document to accommodate the information
    to determine the need for a little buffer
    GetFullPathName access to the document specified the full
    path name
    GetLogicalDrives system to determine what the logical drive
    letter
    GetLogicalDriveStrings access to a string, which contains
    all the logic of the current drive to the root drive path
    GetOverlappedResult an overlap to determine the current
    operating state
    GetPrivateProfileInt for the initialization file (. Ini
    file) specified in the entry to obtain an integer value
    GetPrivateProfileSection access to the designated section
    (in. Ini file) all items of value and a list of
    GetPrivateProfileString for the initialization file
    specified in the entry made string
    GetProfileInt made win.ini initialization file specified in
    the entry of an integer value
    GetProfileSection access to the designated section (in the
    win.ini file) all items of value and a list of
    GetProfileString for initialization win.ini file specified
    in the entry made string
    GetShortPathName access to the documents specified a short
    path name
    GetSystemDirectory get Windows system directory (that is,
    the System directory) of the full path name
    GetTempFileName function that includes a temporary file
    name, it may be the use of applications
    GetTempPath obtain a temporary file path specified
    GetVolumeInformation access to a disk and volume-related
    information
    GetWindowsDirectory access to the Windows directory full
    path name
    hread reference lread
    hwrite reference function lwrite
    lclose designated by the closure of the paper
    Create a file lcreat
    llseek settings file Reading and Writing for the current
    location
    LockFile part of a locked file so that it is not shared with
    other applications
    LockFileEx and LockFile similar, but it provides more
    functionality
    lopen binary mode to open the specified file
    lread document will be read into the data in the memory
    buffer
    lwrite data from the memory buffer to write a paper
    LZClose by the closure of LZInit or LZOpenFile function to
    open a file
    LZCopy copy of a document
    LZInit this function within the buffer zone used to
    initialize
    LZOpenFile the function to carry out a large number of
    different document processing, but also compatible to the
    compressed file
    LZRead data from the document read into the buffer memory
    LZSeek set up a file for reading and writing in the current
    location
    MapViewOfFile a document mapping the object is mapped to the
    current application of the address space
    MoveFile mobile document
    OpenFile this function to carry out a large number of
    different file operations
    OpenFileMapping ready to open a document mapping target
    QueryDosDevice in Windows NT in, DOS device name will be
    mapped into NT systems of equipment. The function can judge
    the current situation in mapping equipment
    ReadFile from the document Duchushuju
    ReadFileEx with ReadFile similar, but it can only be used
    for asynchronous read operation, and includes a complete
    callback
    RegCloseKey closure of the registry system, a key (or keys)
    RegConnectRegistry visit to a remote part of the system
    registry
    RegCreateKey under the specified create or open an item
    RegCreateKeyEx specified under the new creation of a more
    complex way. In the Win32 environment, recommend the use of
    this function
    RegDeleteKey to delete the existing one at the bottom of the
    designated sub-items
    RegDeleteValue delete items below a specified value
    RegEnumKey enumeration of designated sub-items. In the Win32
    environment should be used RegEnumKeyEx
    RegEnumKeyEx enumeration of designated at the bottom of the
    sub-item
    RegEnumValue enumeration of the specified value
    RegFlushKey will and its sub-items to make changes to the
    actual disk write
    RegGetKeySecurity with access to a registry of securityrelated
    information
    RegLoadKey from the previous RegSaveKey function with the
    creation of a document containing information registry
    RegNotifyChangeKeyValue registry or any of its sub-items of
    a change, use this function to provide a notification
    mechanism
    RegOpenKey to open an existing registry entries
    RegOpenKeyEx to open an existing item. In the next win32
    recommended this function
    RegQueryInfoKey access and a related information
    RegQueryValue or to obtain a sub-item of default (unnamed)
    value
    RegQueryValueEx acquisition of a set of values
    RegReplaceKey disk with a file of information to replace
    registry information; and to create a backup, including in
    the current registry information
    RegRestoreKey from one disk to restore the registry file
    information
    RegSaveKey one item, as well as all of its sub-items are
    saved to a disk file
    RegSetKeySecurity designated set of security features
    RegSetValue or designated sub-set of default value
    RegSetValueEx designated set of values
    RegUnLoadKey designated by the unloading of all, as well as
    its sub-items
    RemoveDirectory to delete the specified directory
    SearchPath find the specified file
    SetCurrentDirectory set the current directory
    SetEndOfFile for an open document, the current location of
    the document is set at the end of the document
    SetFileAttributes set file attributes
    SetFilePointer in a document setting the current location of
    the reading and writing
    SetFileTime create a set of documents, interviews and last
    modified
    SetHandleCount this function does not have to use win32;
    even if the use does not have any effect
    SetVolumeLabel a set of disk label (Label)
    SystemTimeToFileTime according to a FILETIME structure, the
    structure included in a SYSTEMTIME
    UnlockFile lifting of a locked file
    UnlockFileEx lifting of a locked file
    UnmapViewOfFile in the current application of the memory
    address space for the lifting of a document mapping object
    mapping
    VerFindFile decided to use this function should be to
    install a file where
    VerInstallFile use this function to install a file
    VerLanguageName be able to function in accordance with the
    16-bit code language to obtain the name of the language
    VerQueryValue for this function from the version of access
    to information resources
    WriteFile data will be written into a document
    WriteFileEx and WriteFile similar, but it can only be used
    to write asynchronous operation, and includes a complete
    callback
    WritePrivateProfileSection an initialization file (. Ini)
    specified in the section set of all values and
    WritePrivateProfileString initialization file specified in
    the section set up a string
    WriteProfileSection for the Win.ini file to initialize a
    designated section of all the settings and values
    WriteProfileString in the Win.ini file initialization
    settings within the designated section of a string


  12. #12

    Lightbulb نقل قول: توابع API


    4. API's print function
    AbortDoc cancel a print document
    AbortPrinter and delete a printer associated with the file
    buffer
    AddForm form of a list of printers to add a new form
    AddJob used to obtain an effective path, in order to use it
    for the printing operations to create a background document.
    It will also work for the distribution operations of a
    number
    AddMonitor system to add a printer monitor
    AddPort start the "Add Port" dialog box, the system allows
    users to the list of available ports to add a new port
    AddPrinter in the system to add a new printer
    AddPrinterConnection designated printer connection
    AddPrinterDriver designated for the system to add a print
    driver
    AddPrintProcessor designated for the system to add a print
    processor
    AddPrintProvidor system to add a print provider
    AdvancedDocumentProperties start document printer settings
    dialog box
    ClosePrinter closed to open a printer object
    ConfigurePort designated for the port, a port configuration
    dialog box to start
    ConnectToPrinterDlg start to connect the printer dialog box,
    use it to access the same network printer connections
    DeleteForm printers available from the form of a list form
    DeleteMonitor to delete the specified print monitor
    DeletePort start "to remove port" dialog box that allows
    users to delete from the current system, a port
    DeletePrinter will be designated by the printer for the
    signs be removed from the system
    DeletePrinterConnection to delete the printer connected with
    the designated
    DeletePrinterDriver deleted from the system, a printer
    driver
    DeletePrintProcessor from the designated system to delete a
    printing processor
    DeletePrintProvidor from the system to delete a print
    provider
    DeviceCapabilities use of the available functions and the
    ability of a device-related information
    DocumentProperties printer configuration control function
    EndDocAPI the end of a successful print job
    EndDocPrinter Print Spooler in the document to specify a
    level of the end of the
    EndPage use this function to complete a page of print and
    equipment to prepare the scene in order to print the next
    page
    EndPagePrinter specify a page in the print job in the end
    EnumForms enumerate a printer available form
    EnumJobs enumeration in the print queue operation
    EnumMonitors enumeration can be used to print the Monitor
    EnumPorts enumeration of a system available port
    EnumPrinterDrivers designated enumeration system has been
    installed in the printer driver
    EnumPrinters enumeration system installed in the printer
    EnumPrintProcessorDatatypes enumerated by the print
    processor to support a data type
    EnumPrintProcessors enumeration system can be used in the
    print processor
    Escape device control function
    FindClosePrinterChangeNotification closed
    FindFirstPrinterChangeNotification function with access to a
    printer circular object
    FindFirstPrinterChangeNotification to create a new circular
    to change the target so that we pay attention to the printer
    status changes
    FindNextPrinterChangeNotification used to determine the
    function printers to trigger a signal change notice of the
    reasons
    FreePrinterNotifyInfo released by the
    FindNextPrinterChangeNotification distribution function of a
    buffer zone
    GetForm made with the designated form-related information
    GetJob access to the designated operations and related
    information
    GetPrinter made with the designated printer-related
    information
    GetPrinterData registry settings for the printer
    configuration information
    GetPrinterDriver designated for printers, printer driver and
    access to relevant information
    GetPrinterDriverDirectory judge designated system includes a
    printer driver directory of what is
    GetPrintProcessorDirectory judge designated system includes
    a processor printer driver files and directories
    OpenPrinter open the designated printer, and access to the
    printer handle
    PrinterMessageBox in the print job has a designated system
    to show a printer error message box
    PrinterProperties start the printer properties dialog box in
    order to configure the printer
    ReadPrinter read data from the printer
    ResetDC reset a device scene
    ResetPrinter change the default printer specified types of
    data files and settings
    ScheduleJob submitted to a printing operation
    SetAbortProc for the abolition of the designated function of
    the Windows Address
    SetForm specified form settings for information
    SetJob of a print job status control
    SetPrinter on the status of a printer control
    SetPrinterData set up the printer configuration information
    registry
    StartDoc to start a print job
    StartDocPrinter print in the background level of the start
    of a new document
    A StartPage printing a new page before calling the function
    StartPagePrinter in the print job is specified in the
    beginning of a new page
    WritePrinter will send the directory data into the printer
    5. API of the text font and function
    AddFontResource in the Windows system to add a font of
    resources
    CreateFont designated by the property to create a logical
    font
    CreateFontIndirect designated by the property to create a
    logical font
    CreateScalableFontResource a TureType fonts to create a
    resource document in order to use API function
    AddFontResource its accession to the Windows system
    DrawText text will be painted to a specific rectangular in
    DrawTextEx and DrawText similar, but adding more features
    EnumFontFamilies designated list of equipment available
    fonts
    EnumFontFamiliesEx designated list of equipment available
    fonts
    EnumFonts designated list of equipment available fonts
    ExtTextOut through the expansion of the text describing the
    function. Please refer to the function also SetTextAlign
    GetAspectRatioFilterEx request SetMapperFlags with Windows
    only with the choice of equipment in line with the aspect
    ratio of the current raster fonts, this function can judge
    small aspect ratio
    GetCharABCWidths judge TureType fonts in one or more of the
    character of the size ABC
    GetCharABCWidthsFloat characters in a query to one or more
    characters of the size ABC
    GetCharacterPlacement learn how to use this function with a
    given string of characters that a
    GetCharWidth investigation fonts in one or more of the width
    of the characters
    GetFontData receive a scalable font file data
    GetFontLanguageInfo return to the current opt-specified
    device font scenarios information
    GetGlyphOutline made TureType font of the characters in a
    curve information
    GetKerningPairs to obtain a font of information kerning
    GetOutlineTextMetrics receive TureType fonts and internal
    features of the details
    GetRasterizerCaps understanding of the system's ability to
    support scalable fonts
    GetTabbedTextExtent a string to determine the scope of the
    occupation, taking tabulation stop the expansion of the
    factors
    GetTextAlign scene equipment to receive a copy of the
    current alignment mark
    GetTextCharacterExtra additional characters to judge the
    distance between the current value
    GetTextCharset to receive the current opt-scenes equipment
    specified font character set identifier
    GetTextCharsetInfo access to the current selection of fonts
    and character set-related details
    GetTextColor to determine the current font color. Usually
    referred to as "Foreground"
    GetTextExtentExPoint judge to fill in the designated area of
    the number of characters. Also loaded with an array of
    characters in each of the scope of information
    GetTextExtentPoint a string to determine the size of the
    (scope)
    GetTextFace access to a font of the words
    GetTextMetrics access into the election with a scene of
    physical device font-related information
    GrayString painted gray to a string of shows. Windows logo
    usually used to prohibit the state
    PolyTextOut described a series of string
    RemoveFontResource from the Windows system to delete a font
    of resources
    SetMapperFlags Windows fonts on the map, can be used to
    choose the functions and objectives of equipment in line
    with the aspect ratio of grating characters
    SetTextAlign set text alignment, and designated in the text
    output in the process of using the device's current location
    of the scene
    SetTextCharacterExtra described the text, specify the
    characters inserted between the additional space
    SetTextColor to set the current text color. This color is
    also known as "Foreground"
    SetTextJustification through a designated line of text
    should take the extra space can be used to carry out the
    function of the text dealing with both ends of the alignment
    TabbedTextOut support for the tabulation of the station
    described the text of a function
    TextOut text mapping function

  13. #13

    Lightbulb نقل قول: توابع API

    6. API on the menu function
    AppendMenu
    specified in the menu, add a menu item
    CheckMenuItem
    check or check to withdraw the designated menu
    items
    CheckMenuRadioItem
    menu items to be designated a check as a
    "radio"
    CreateMenu
    create a new menu
    CreatePopupMenu
    to create a space of the pop-up menu
    DeleteMenu
    to delete the specified menu items
    DestroyMenu
    to delete the specified menu
    DrawMenuBar
    designated for the re-drawing of the window menu
    EnableMenuItem
    to allow or prohibit the designated menu
    items
    GetMenu
    get a window handle the menu
    GetMenuCheckMarkDimensions
    a menu to return to check the
    size of the site
    GetMenuContextHelpId
    get a menu of the scene to help ID
    GetMenuDefaultItem
    to determine which of the menu items is
    the default entry
    GetMenuItemCount
    return to the menu items (menu item) the
    number of
    GetMenuItemID
    return to the menu at the designated position
    of the menu items ID
    GetMenuItemInfo
    made (receiver) and a menu entries related
    to the specific information
    GetMenuItemRect
    in a rectangular load in the designated
    entry in the menu screen coordinates information
    GetMenuState
    designated menu items made with the staterelated
    information
    GetMenuString
    to obtain a string of menu items
    GetSubMenu
    get a pop-up menu handle, which is located in the
    menu to specify the location of
    GetSystemMenu
    to obtain a window handle the menu system
    Control menu entries HiliteMenuItem top of the display
    highlighting the state
    InsertMenu
    menu at the designated position to insert a menu
    entry, and in accordance with the needs of the other entries
    down
    InsertMenuItem
    insert a new menu entry
    IsMenu
    to determine whether or not designated as a handle to
    handle the menu
    LoadMenu
    from the specified module or application examples
    include a menu
    LoadMenuIndirect
    included in a menu
    MenuItemFromPoint
    judge which of the menu contains entries
    on the screen of a designated point
    ModifyMenu
    change menu items
    RemoveMenu
    to delete the specified menu items
    SetMenu
    window settings menu
    SetMenuContextHelpId
    to set up a menu of the scene to help
    ID
    SetMenuDefaultItem
    a menu entry set to the default entry
    SetMenuItemBitmaps
    set a specific bitmap, it specified the
    use of the menu items, instead of the standard check symbol
    (.)
    SetMenuItemInfo
    a menu entry setting the specified
    information
    TrackPopupMenu
    any place on the screen display a pop-up menu
    TrackPopupMenuEx
    and TrackPopupMenu similar, but it provides
    additional functionality
    7. API of bitmaps, icons and grating computing function
    BitBlt
    to a bitmap copy from one device to another scene
    CopyIcon
    production designated icon or a copy of the mouse
    pointer. The call issued by the subordinate to a copy of the
    application
    CopyImage
    copy bitmaps, icons or indicators, while in the
    process of copying some conversion work
    CreateBitmap
    in accordance with the provisions of the format
    and equipment related to the creation of a bitmap
    CreateBitmapIndirect
    and equipment related to the creation
    of a bitmap
    CreateCompatibleBitmap
    and equipment related to the creation
    of a bitmap, which designated the scenes of compatible
    equipment
    CreateCursor
    to create a mouse pointer
    CreateDIBitmap
    based on a device-independent bitmap and
    equipment related to the creation of a bitmap
    CreateDIBSection
    create a DIBSection

    CreateIcon
    to create a logo
    CreateIconIndirect
    to create a logo
    DestroyCursor
    designated by the removal of the mouse
    pointer, and the release of its occupation of all system
    resources
    DestroyIcon
    clear icon
    At the designated position DrawIcon painting an icon
    DrawIconEx
    or icon depicting a mouse pointer. DrawIcon and
    compared this function to provide more functionality
    ExtractAssociatedIcon
    an executable program to determine
    whether there is or DLL icon, or whether there is a icon
    with the system registry specified in the document the
    existence and relevance of extraction
    ExtractIcon
    an executable file to determine whether or DLL
    icon exists, and extracted
    GetBitmapBits
    from bitmap to copy the binary bit of a buffer
    zone
    GetBitmapDimensionEx
    made a bitmap of the width and height
    GetDIBColorTable
    opt-in equipment from the scene of
    DIBSection made in the color table information
    GetDIBits
    will come from a binary bitmap-to copy a deviceindependent
    bitmap,
    GetIconInfo
    icon with access to relevant information
    GetStretchBltMode
    judge StretchBlt and StretchDIBits

    function of the use of flexible model
    LoadBitmap
    from the specified module or application examples
    include a bitmap
    LoadCursor
    from the specified module or application examples
    include a mouse pointer
    LoadCursorFromFile
    pointer in a document or an animation
    file pointer on the basis of the creation of a pointer
    LoadIcon
    from the specified module or application examples
    include an icon
    LoadImage
    to load a bitmap, icon or indicator
    MaskBlt
    the implementation of complex image transmission, at
    the same time mask (MASK) to deal with
    PatBlt
    the current brush selected on the basis of a pattern
    designated by the equipment-filled scenes
    PlgBlt
    to copy a bitmap, at the same time convert it into a
    parallelogram. It can be bitmap carried out on rotation to
    deal with
    SetBitmapBits
    from the buffer zone of binary digital copy to
    a bitmap
    SetBitmapDimensionEx
    set the width of a bitmap. 1 millimeter
    to one-tenth of the unit
    SetDIBColorTable
    set up an opt-in equipment DIBSection scene
    of a color table information
    From the equipment SetDIBits has nothing to do with the
    binary bitmap-to reproduce with a bitmap-related equipment,
    SetDIBitsToDevice
    will be a device-independent bitmap in
    whole or in part to copy data directly to a device
    SetStretchBltMode
    designated StretchBlt and StretchDIBits

    function of the expansion mode
    StretchBlt
    to a bitmap copy from one device to another scene
    StretchDIBits
    will be a device-independent bitmap in whole
    or in part to copy data directly to a specific scene
    equipment
    8. API function of the graphics
    AbortPath
    opt to abandon the scene of equipment specified in
    the path of all. Also cancel any ongoing work to create the
    path
    AngleArc
    an arc to connect a line drawing
    An arc Arc paintings
    BeginPath
    start a branch of the path
    CancelDC
    cancel another thread in the mapping operation for
    a long time
    Chord painting of a string
    CloseEnhMetaFile
    designated by the closure of the Enhanced
    Metafile scene equipment, and new Metafile return a handle
    CloseFigure
    to describe a path, the current closure of the
    open graphics
    CloseMetaFile
    designated by the closure of the Metafile
    scene equipment, and new Metafile return a handle
    CopyEnhMetaFile
    designated to produce enhanced metafile a
    copy of the (copy)
    CopyMetaFile
    designated production (standard) Metafile a
    copy of the
    CreateBrushIndirect
    in LOGBRUSH a data structure on the
    basis of the creation of a brush
    CreateDIBPatternBrush
    with a device-independent bitmap to
    create a brush, brush in order to specify the style
    (pattern)
    CreateEnhMetaFile
    creation of an enhanced metafile equipment
    Scene
    CreateHatchBrush
    the shadow patterns created with a brush
    CreateMetaFile
    to create a scene equipment Metafile
    CreatePatternBrush
    designated by the brush of a bitmap
    images to create a brush
    CreatePen
    designated by the style, color and width to create
    a brush
    According to the CreatePenIndirect designated LOGPEN
    structure to create a brush
    CreateSolidBrush
    to create a solid color with brush
    DeleteEnhMetaFile
    delete designated Enhanced Metafile
    DeleteMetaFile
    to delete the specified Metafile
    DeleteObject
    to delete GDI object, the object of the use of
    all system resources will be released
    DrawEdge
    designated by the style of a painted rectangular
    frame
    DrawEscape
    escape (Escape) function data directly to the
    display device driver
    Painting a Rectangle focus DrawFocusRect
    DrawFrameControl
    describe a standard control
    DrawState
    for an image or graphics application to operate a
    wide range of effects
    Ellipse painted an oval, rectangular designated by the
    surrounding
    EndPath
    stop the definition of a path
    EnumEnhMetaFile
    for an enhanced metafile, which cited a
    separate metafile record
    EnumMetaFile
    as a standard windows Metafile separate
    enumeration of the metafile record
    EnumObjects
    enumeration can be designated along with
    equipment used by scenes of the brush and brush
    ExtCreatePen
    extended to create a brush (or geometric
    decoration)
    ExtFloodFill
    equipment in the designated scene, with the
    current selection of a brush-filled area
    FillPath
    to close any open the path of graphics, and the
    current brush-filled
    FillRect
    designated by a brush-filled rectangular
    FlattenPath
    a path all the curves are converted into
    segments
    FloodFill
    with the currently selected brush at the specified
    device to fill a scene in the region
    FrameRect
    designated by the brush around a rectangular frame
    of a painting
    GdiComment
    designated for the Enhanced Metafile equipment
    scenes add a note of information
    GdiFlush
    the implementation of any outstanding graphics
    operation
    GdiGetBatchLimit
    to determine the number of GDI drawing
    commands at the queue
    The number of designated GdiSetBatchLimit graphics GDI order
    to enter the queue
    GetArcDirection
    arc paintings, drawings used to determine
    the current direction
    GetBkColor
    equipment to obtain a scene of the current
    background color
    GetBkMode
    equipment designated for the scene, made to fill
    the background of the current model
    GetBrushOrgEx
    designated equipment to determine the current
    scene selected brush starting point
    GetCurrentObject
    was designated types of the currently
    selected object
    GetCurrentPositionEx
    equipment in the designated scene to
    obtain the current location of the brush
    GetEnhMetaFile
    disk access to documents contained in an
    enhanced metafile handle the metafile
    GetEnhMetaFileBits
    will be designated by the Enhanced
    Metafile copy to a memory buffer in
    GetEnhMetaFileDescription
    return for an enhanced metafile
    note
    GetEnhMetaFileHeader
    achieve enhanced metafile of the first
    Metafile
    GetEnhMetaFilePaletteEntries
    achieve enhanced metafile all
    or part of the palette
    GetMetaFile
    to obtain a disk included in the document of the
    Metafile Metafile handle
    GetMetaFileBitsEx
    will be designated by the metafile copy to
    a memory buffer
    GetMiterLimit
    to obtain equipment restrictions on the slope
    of the scene (Miter) set
    GetNearestColor
    equipment in accordance with the display
    capability, and access to the nearest designated color of a
    solid color
    GetObjectAPI
    made to the designated target for a description
    of the structure
    GetObjectType
    designated by the judge cited the GDI handle
    the type of target
    GetPath
    made on the current path defined by a series of data
    GetPixel
    equipment in the designated scene to obtain a pixel
    RGB value
    GetPolyFillMode
    equipment designated for the scene to obtain
    Polygon fill mode
    Facilities GetROP2 for the designated scene, to obtain the
    current graphics mode
    GetStockObject
    to obtain a natural object (Stock)
    GetSysColorBrush
    for any of the standard color system to
    obtain a brush
    GetWinMetaFileBits
    through a buffer to fill in for the
    standard metafile data will be an enhanced metafile
    converted to standard windows metafile
    InvertRect
    through the inversion of the value of each pixel
    in order to reverse a scene of equipment specified in the
    rectangular
    LineDDA
    enumeration of all segments designated point
    LineTo
    with the current number of strokes of a painting
    line, even from its current location to a designated point
    MoveToEx
    equipment designated for the designation of a new
    scene of the current location of the brush
    PaintDesk
    equipment in the designated scene depicting the
    desktop wallpaper designs
    PathToRegion
    the current path chosen by the conversion to a
    region
    Pie painting of a pie chart
    PlayEnhMetaFile
    equipment in the designated scene in a
    painting Enhanced Metafile
    PlayEnhMetaFileRecord
    playback of a separate enhanced
    metafile record
    PlayMetaFile
    equipment in the designated scene in a replay
    Metafile
    PlayMetaFileRecord
    playback from a single metafile records
    PolyBezier
    depict one or more Bessel (Bezier) curve
    PolyDraw
    describe a complex curve, Bezier curves and line
    segments by the composition of the
    Polygon depicts a polygon
    Polyline
    painted with the brush of the current series of
    line segments
    PolyPolygon
    painted with the brush of the current selection
    of two or more polygons
    PolyPolyline
    painted with the brush of the current selection
    of two or more polygons
    Rectangle with the currently selected brush painted
    rectangle, and the currently selected brush-filled
    RoundRect
    with selected paintings present a rounded
    rectangular strokes, and the currently selected brush to
    fill in
    SelectClipPath
    equipment to the scene of the current path
    cut into the area
    SelectObject
    equipment for the current scene selection
    graphic object
    SetArcDirection
    describe the arc to set the direction of
    SetBkColor
    designated for the device to set the scene
    background color
    SetBkMode
    designated shadow brush, brush dotted line and
    characters to fill the gap in the way
    SetBrushOrgEx
    equipment designated for the scenes set the
    starting point for the currently selected brush
    SetEnhMetaFileBits
    designated by the memory buffer zone that
    contains the data to create an enhanced metafile
    SetMetaFileBitsEx
    use is included in the designated buffer
    memory data structure to create a Metafile
    SetMiterLimit
    equipment set up scenes of the current
    restrictions on the slope
    SetPixel
    equipment in the designated scene to set up a pixel
    RGB value
    SetPixelV
    equipment in the designated scene to set up a
    pixel RGB value
    SetPolyFillMode
    set of polygon fill mode
    SetROP2 designated set of drawings of equipment scene modes.
    Vb and the property is fully consistent DrawMode
    SetWinMetaFileBits
    a standard Windows Metafile into Enhanced
    Metafile
    StrokeAndFillPath
    equipment designated for the scene to
    close the path to open all the region
    StrokePath
    painted with the brush of the current outline of
    a path. Open graphics function that will not be closed
    UnrealizeObject
    a brush object into the election equipment
    prior to the scene, as the starting point of brush to use to
    amend SetBrushOrgEx, you must call this function
    WidenPath
    selected based on the width of the brush, to
    redefine the currently selected path

  14. #14

    Lightbulb نقل قول: توابع API


    9. API function of the equipment scene
    CombineRgn
    combination of the two regions for a new regional
    CombineTransform
    drive the conversion of the world. It is
    equivalent to twice the order in accordance with the
    conversion
    CreateCompatibleDC
    to create a scene of equipment in line
    with the specific memory devices Scene
    CreateDC
    equipment to create specialized equipment for the
    scene
    CreateEllipticRgn
    oval to create a
    CreateEllipticRgnIndirect
    to create a rectangle inscribed in
    a particular region of the oval
    CreateIC
    special equipment for the information to create a
    scene
    CreatePolygonRgn
    to create a point surrounded by a series of
    regional
    CreatePolyPolygonRgn
    created by a number of polygons
    constitute the region. Each polygon should be closed
    CreateRectRgn
    to create a rectangular region
    CreateRectRgnIndirect
    to create a rectangular region
    CreateRoundRectRgn
    to create a rounded rectangular
    DeleteDC
    deleted scenes and special equipment or information
    on the scene, the release of all relevant resources window
    DPtoLP
    dot matrix will coordinate transformation equipment
    from the special equipment to the scene logical coordinates
    EqualRgn
    the two regions to determine whether or not the
    same
    ExcludeClipRect
    special equipment from the scene cut away a
    rectangular area in the district. Can not be carried out
    within the rectangular drawing
    ExcludeUpdateRgn
    from special equipment to remove scenes
    Tailoring area designated window of the region refresh
    According to the World ExtCreateRegion conversion to amend
    the region
    Combination ExtSelectClipRgn designated area will be the
    scene of the equipment to the current crop area
    FillRgn
    brushes with the designated filling in designated
    areas
    FrameRgn
    designated by brush painting of a designated area
    around the frame
    GetBoundsRect
    access to the scene of the equipment specified
    rectangular border
    GetClipBox
    full access to the specified device that contains
    cut scenes of the smallest rectangular area
    GetClipRgn
    access to the scene of the current crop area
    equipment
    GetDC
    access to the designated windows scene equipment
    GetDCEx
    designated as a window to obtain equipment scene.
    Compared to GetDC, this function provides more options
    GetDCOrgEx
    access to designated locations device starting
    point for the scene (to screen coordinates)
    GetDeviceCaps
    according to the specified device on behalf of
    the scene of the equipment to return to the function of
    information
    GetGraphicsMode
    to determine whether to allow enhanced
    graphics mode (world converting)
    GetMapMode
    for specific equipment transferred to the image
    scene modes
    A regional GetRegionData into the description of the
    information or the structure of the buffer zone RgnData
    GetRgnBox
    full access to the designated area contains the
    smallest rectangle
    GetUpdateRgn
    refresh the window to determine the designated
    region. The current void in the region, the need to refresh
    GetViewportExtEx
    access to equipment, as the scenes I
    (viewport) range
    GetViewportOrgEx
    access to port facilities, as the starting
    point for the scene
    GetWindowDC
    access to the entire window (including borders,
    scroll bars, title bar, menus, etc.) equipment Scene
    GetWindowExtEx
    access to equipment designated windows scene
    of the scope of
    GetWindowOrgEx
    access to equipment designated windows scene
    of the logical starting point
    GetWindowRgn
    window access to the region
    GetWorldTransform
    if the conversion of the world, in order
    to obtain the current world scene equipment conversion
    IntersectClipRect
    equipment designated for the definition of
    a new crop area
    InvalidateRgn
    window so that the activities of nondesignated
    areas and will add it to refresh the window area
    so that it can then be re-drawn
    InvertRgn
    every pixel upside down through the value of the
    reverse scenario equipment in designated areas
    Dot matrix will LPtoDP from the specified device coordinates
    into a scene logic device coordinates
    ModifyWorldTransform
    designated in accordance with the mode
    of amending the conversion of the world
    OffsetClipRgn
    specified amount of translation equipment cut
    scenes District
    OffsetRgn
    offset by the designated shift in designated areas
    OffsetViewportOrgEx
    translation equipment, as the scene of
    regional population
    OffsetWindowOrgEx
    translation equipment designated windows
    scene starting point
    PaintRgn
    brush with the current background color to fill in
    designated areas
    PtInRegion
    determine whether the point in the designated
    areas
    PtVisible
    designated point to determine whether or not we
    can see (that is, in point of equipment in the region cut
    scenes)
    RectInRegion
    determine whether there is a part of the
    rectangle in the designated areas
    RectVisible
    determine whether there is a designated part of
    the rectangle can be seen (whether or not the equipment in
    the region cut scenes)
    ReleaseDC
    released by the GetDC call or function GetWindowDC

    access to the equipment specified scene
    RestoreDC
    equipment from the scene to restore a stack of
    equipment to preserve the original scene
    SaveDC
    equipment will be designated a state to preserve the
    scene to Windows device stack scene
    ScaleViewportExtEx
    scaling equipment, as the scene of the
    mouth area
    ScaleWindowExtEx
    zoom window scene equipment designated area
    ScrollDC
    in the window (by the equipment on behalf of the
    scene), and (or) vertical rectangle rolling
    SelectClipRgn
    equipment designated for the scene to choose a
    new crop area
    SetBoundsRect
    set of equipment specified scene rectangular
    border
    SetGraphicsMode
    to allow or prohibit the enhanced graphics
    mode to provide some support (including the conversion of
    the World)
    SetMapMode
    set the scene mapping equipment designated model
    SetRectRgn
    set for the region designated by the rectangular
    SetViewportExtEx
    equipment to set the scene as the scope of
    the mouth
    SetViewportOrgEx
    equipment to set the scene as the starting
    point for the mouth
    SetWindowExtEx
    equipment set up designated windows scene
    area
    SetWindowOrgEx
    equipment set up designated windows scene
    starting point
    SetWindowRgn
    regional settings window
    SetWorldTransform
    set up conversion of the world
    ValidateRgn
    activation window specified in the region, it
    removed from the zone set
    WindowFromDC
    back with a scene of equipment related to the
    window handle
    10. API function of the hardware and system
    ActivateKeyboardLayout
    activation of a new keyboard layout.
    Keyboard layout of the buttons in the definition of a
    physical keyboard and the location of the meaning of
    Beep used to generate simple voice
    CharToOem
    a string from the ANSI character set conversion to
    the OEM character set
    ClipCursor
    pointer will be restricted to designated areas
    ConvertDefaultLocale
    will be a special place identifier into
    the local real ID
    CreateCaret
    according to the specified information to create
    a site insert (cursor), it will be selected as the
    designated window at the default Insert
    Clear DestroyCaret (damage) to insert a site
    EnumCalendarInfo
    enumeration in the designated "local"
    environment calendar information available
    EnumDateFormats
    designated list of "local" setting can be
    used in the long and short date format
    EnumSystemCodePages
    enumeration system has been installed or
    supported by the code page
    EnumSystemLocales
    enumeration system has been installed to
    provide support or "local" setting
    EnumTimeFormats
    enumeration of a designated place where the
    application of the time format
    ExitWindowsEx
    from the windows, and a specific option
    restarted
    ExpandEnvironmentStrings
    expansion of the environment string
    Translation FreeEnvironmentStrings designated by the
    Environmental string block
    GetACP
    judge is currently the entry into force of the ANSI
    code page
    GetAsyncKeyState
    function call to determine when the
    designated virtual key state
    GetCaretBlinkTime
    to determine Insert at the cursor blinking
    frequency
    GetCaretPos
    to determine Insert at the current location
    GetClipCursor
    to obtain a rectangle, is used to describe the
    current provisions of the mouse pointer to cut the region
    GetCommandLine
    point to the current command-line access to
    the buffer zone as a pointer
    GetComputerName
    to obtain the name of this computer
    GetCPInfo
    made with the designated code page-related
    information
    GetCurrencyFormat
    designated for "local" setting, according
    to the currency format to format a number of
    GetCursor
    access to the mouse pointer is currently chosen by
    the handle
    Acquisition of GetCursorPos the mouse pointer from its
    current location
    GetDateFormat
    designated for "local" format, a system date
    format
    GetDoubleClickTime
    to judge between the two mouse click will
    be processed into double-time events
    GetEnvironmentStrings
    to contain the current environment of
    a string of set pieces of memory allocation and return a
    handle
    GetEnvironmentVariable
    to obtain an environment variable's
    value
    GetInputState
    to determine whether there are any pending
    (pending) of the mouse or keyboard events
    GetKBCodePage
    by GetOEMCP to replace the two functions
    exactly the same
    GetKeyboardLayout
    get a handle, described in the application
    of the designated keyboard layout
    GetKeyboardLayoutList
    system was applicable to all the
    keyboard layout of a list
    GetKeyboardLayoutName
    the current activities of the keyboard
    layout to obtain the name of the
    GetKeyboardState
    made each of the virtual keyboard on the
    current state of key
    GetKeyboardType
    understanding and are using the keyboardrelated
    information
    GetKeyNameText
    scan is given in the code under the premise
    that key judgments were
    GetKeyState
    for keys which have been processed in the most
    recent information input, the designated judge of the state
    of virtual keys
    GetLastError
    prior to the call for the api function, use
    this function to expand access to error messages
    GetLocaleInfo
    made with the designation "local" information
    GetLocalTime
    to obtain local date and time
    GetNumberFormat
    designated for "local", according to the
    specific format of a digital format
    GetOEMCP
    judge in the OEM and ANSI character set conversion
    between the windows code page
    GetQueueStatus
    to judge applications pending in the message
    queue (pending) of the type of information
    GetSysColor
    designated to determine the object's color
    display windows
    GetSystemDefaultLangID
    system to obtain the default language
    ID
    GetSystemDefaultLCID
    to obtain the current default system,
    "local"
    GetSystemInfo
    made with the underlying hardware platformrelated
    information
    GetSystemMetrics
    return to windows and environment-related
    information
    GetSystemPowerStatus
    access to the current state of the
    power system-related information
    GetSystemTime
    made the current system, this time using the
    "time in collaboration with the World" (UTC, also known as
    GMT) format
    GetSystemTimeAdjustment
    so that the internal system clock
    and an external clock signal synchronization
    GetThreadLocale
    get a place of the current thread ID
    GetTickCount
    for access to windows from the start since
    going through the length of time (in milliseconds)
    GetTimeFormat
    the current designation of "local", according
    to a specific format to format a system of time
    GetTimeZoneInformation
    made with the system set the time
    zone information
    GetUserDefaultLangID
    for the current user ID to obtain the
    default language
    GetUserDefaultLCID
    to obtain the current user's default
    "local" setting
    GetUserName
    to obtain the current user's name
    GetVersion
    judge is currently running versions of Windows
    and DOS
    GetVersionEx
    made with the platform and operating system
    version of the information
    HideCaret
    specified in the window insert hidden Fu (cursor)
    IsValidCodePage
    to judge the effectiveness of a code page
    IsValidLocale
    to judge the effectiveness of local identifier
    keybd_event function that simulates the keyboard action
    LoadKeyboardLayout
    included in a keyboard layout
    MapVirtualKey
    designated in accordance with the type of map,
    the implementation of the different characters and the
    conversion code scanning
    MapVirtualKeyEx
    designated in accordance with the type of
    map, the implementation of the different characters and the
    conversion code scanning
    MessageBeep
    play a sound system. Sound system of
    distribution in the Control Panel's decision,
    mouse_event
    simulate a mouse event
    OemKeyScan
    determine an OEM character set ASCII character
    code and scan the Shift key state
    OemToChar
    to OEM character set a string to the ANSI
    character set conversion
    SetCaretBlinkTime
    insert designated site (cursor) of the
    frequency of blinking
    SetCaretPos
    inserted at the designated location
    SetComputerName
    new computer name
    SetCursor
    will be designated by the mouse pointer as the
    current indicators
    SetCursorPos
    pointer to set the location of
    SetDoubleClickTime
    set up between the two mouse-click system
    that can be double-time events
    SetEnvironmentVariable
    environment variable is set to a
    specified value
    SetKeyboardState
    each set of virtual keys on the keyboard in
    the current state of
    SetLocaleInfo
    the user to change the "local" set of
    information
    SetLocalTime
    set the current local time
    SetSysColors
    set up designated window display of color
    objects
    SetSystemCursor
    change any of the standard system of
    indicators
    SetSystemTime
    set up the current system time
    SetSystemTimeAdjustment
    from time to time a added value of
    calibration so that the internal system clock and an
    external clock signal synchronization
    SetThreadLocale
    place settings for the current thread
    SetTimeZoneInformation
    the system time zone information
    ShowCaret
    specified in the window display at Insert (cursor)
    ShowCursor
    control the mouse pointer visibility
    SwapMouseButton
    decide whether to swap the mouse around the
    key functions
    SystemParametersInfo
    access and set up a large number of
    windows system parameters
    SystemTimeToTzSpecificLocalTime
    time the system will be
    converted to local time
    ToAscii
    under the current code scanning and keyboard, a
    virtual keys into ASCII characters
    ToUnicode
    in the light of current code scanners and
    keyboards, will be converted into a virtual key Unicode
    characters
    UnloadKeyboardLayout
    unloading designated by the keyboard
    layout
    VkKeyScan
    for a Windows character set ASCII characters, to
    determine the virtual key code and the Shift key state

  15. #15

    Lightbulb نقل قول: توابع API


    11. API function of the process and thread
    CancelWaitableTimer
    this function can be used to cancel a
    wait timer operation
    CallNamedPipe
    hope that the function of a communications
    channel through the process of a customer call
    ConnectNamedPipe
    direct a server to wait until the client
    with the naming of a pipeline to connect
    CreateEvent
    to create an event object
    CreateMailslot
    the creation of a postal route. Postman's
    return to the server by using the handle (the recipient)
    CreateMutex
    to create a mutex (MUTEX)
    CreateNamedPipe
    to create a named pipe. Return to handle the
    pipeline by the use of server-side
    CreatePipe
    create an anonymous pipe
    CreateProcess
    to create a new process (such as the
    implementation of a program)
    CreateSemaphore
    create a new signal
    CreateWaitableTimer
    create a timer to wait for the target
    DisconnectNamedPipe
    disconnect a customer with a named pipe
    connections
    DuplicateHandle
    in an existing system that handles the
    current object, that object to create a new handle
    ExitProcess
    a suspension of the process
    FindCloseChangeNotification
    the closure of a change to be
    notified
    FindExecutable
    to find documents associated with a specified
    procedure with the file name
    FindFirstChangeNotification
    to create a document to be
    notified. The object used to monitor file system changes
    FindNextChangeNotification
    reset to change a file to be
    notified so that it continues to monitor changes in the next
    FreeLibrary
    the release of specified dynamic-link library
    GetCurrentProcess
    access to the current process of a pseudohandle
    GetCurrentProcessId
    the current process of obtaining a
    unique identifier
    GetCurrentThread
    access to the current thread of a pseudohandle
    GetCurrentThreadId
    access to the current thread a unique
    identifier thread
    GetExitCodeProces
    have access to an interruption of the
    process from the code
    GetExitCodeThread
    access to a suspension of the thread from
    the code
    GetHandleInformation
    access to a system and handle the
    object-related information
    GetMailslotInfo
    a postal routes and access to relevant
    information
    GetModuleFileName
    access to a template containing the full
    path name
    GetModuleHandle
    obtain an application or dynamic link
    library module handle
    GetPriorityClass
    access to a particular process, the
    priority level
    GetProcessShutdownParameters
    investigation shut down the
    system when a specified process, as opposed to other
    processes to close the case as early as late
    GetProcessTimes
    acquisition process with a time-related
    information
    GetProcessWorkingSetSize
    an understanding of the application
    running in the course of the actual delivery of it to how
    much memory capacity
    GetSartupInfo
    start of a process to obtain information
    GetThreadPriority
    access to a particular thread priority
    level
    GetTheardTimes
    with access to a thread of time-related
    information
    GetWindowThreadProcessId
    access to the designated window
    associated with a process ID and thread
    LoadLibrary
    included in the specified dynamic-link library,
    and it is mapped to the current process of using the address
    space
    LoadLibraryEx
    load the dynamic link library designated for
    the current process, it is mapped to the address space
    LoadModule
    included in a Windows application, and in the
    designated environment running
    MsgWaitForMultipleObjects
    waiting a single object or a
    series of target signal. If the conditions for return have
    been met, then immediately return to
    SetPriorityClass
    the process of setting a priority level
    SetProcessShutdownParameters
    the system shut down during the
    process of setting designated him as opposed to other
    procedures for the closure of the order
    SetProcessWorkingSetSize
    operating system set to the actual
    demarcation process used memory capacity
    SetThreadPriority
    set of thread-level priority
    ShellExecute
    to find documents associated with the specified
    procedure with the file name
    TerminateProcess
    the end of a process
    WinExec
    designated to run the program
    12. API of control and information functions
    AdjustWindowRect
    given a window style, calculated to obtain
    the required target area of the rectangular window size
    AnyPopup
    screen to determine if there is any pop-up window
    ArrangeIconicWindows
    arranged a window of the Father of the
    smallest window annihilator
    AttachThreadInput
    connecting thread input function
    BeginDeferWindowPos
    start to build a series of new window
    location of the course
    BringWindowToTop
    will be designated by the window with a
    window to the top of the list
    CascadeWindows
    to stack arranged window
    ChildWindowFromPoint
    return to the parent window that
    contains the designated point of the first sub-window handle
    ClientToScreen
    window in order to determine customer area
    that coordinates the screen coordinates of a point
    CloseWindow
    minimize designated by the window
    Copy the contents of the rectangular CopyRect

    The function to DeferWindowPos specific window of a
    specified location of the new window
    DestroyWindow
    designated by the window as well as the
    removal of all its sub-window
    DrawAnimatedRects
    described a series of dynamic rectangular
    EnableWindow
    designated by the window to allow or prohibit
    all mouse and keyboard input
    At the same time EndDeferWindowPos update DeferWindowPos

    call all the time specified the location and status window
    EnumChildWindows
    designated as the father of the child
    window enumeration window
    EnumThreadWindows
    designated with the task of enumeration of
    the relevant window
    EnumWindows
    window enumerated a list of all the parent
    window
    EqualRect
    two rectangular structures to determine whether or
    not the same
    FindWindow
    to find the list of the first window to meet
    prescribed conditions of top-level window
    FindWindowEx
    window in the list and look for designated
    conditions in line with the first sub-window
    FlashWindow
    showed flashes designated window
    GetActiveWindow
    access to the activities of the window
    handle
    GetCapture
    get a handle of the window, enter the window at
    the current thread, and have the mouse Capture (to receive
    it by the mouse)
    GetClassInfo
    made WNDCLASS structure (or structure
    WNDCLASSEX) a copy of the structure and included in the
    designated categories of information relating to
    GetClassLong
    window made of a type of variable Long entry
    GetClassName
    designated as a window to obtain class name
    GetClassWord
    window for the type of access to a whole number
    variable
    GetClientRect
    window to return to designated customers
    rectangular area the size of the
    GetDesktopWindow
    was on behalf of the entire screen of a
    window (desktop window) handle
    GetFocus
    have access to enter the focus of the window handle
    GetForegroundWindow
    access to the front window handle
    GetLastActivePopup
    was the father of a given window over the
    recent activation of the pop-up window handle
    GetParent
    judge designated window of the father of window
    GetTopWindow
    internal search window list to find the first
    part of the designated window handle of a window
    GetUpdateRect
    a rectangle, it describes a designated window
    of the need to update that part of the
    GetWindow
    a window handle of the window and the window there
    is a particular source of a relationship
    GetWindowContextHelpId
    made with the window associated with
    the scene to help ID
    GetWindowLong
    from a designated window in the structure of
    access to information
    GetWindowPlacement
    window was designated a state and
    location information
    GetWindowRect
    access to the entire scope of the rectangular
    window, the window frame, the title bar, scroll bar menu and
    so on in this rectangle with
    GetWindowText
    to obtain a form of title (caption) text, or
    control the content of a
    GetWindowTextLength
    to investigate the title of the text
    window or control the content of the length of
    GetWindowWord
    was designated window of the structure of the
    information
    InflateRect
    increase or decrease the size of a rectangular
    IntersectRect
    this function in lpDestRect loaded in a
    rectangle, it is lpSrc1Rect and lpSrc2Rect the intersection
    of the two rectangular
    InvalidateRect
    shielding a window of the customer area in
    whole or in part the region
    IsChild
    to determine whether a window to another window or
    attached to the sub-window
    IsIconic
    to determine whether the window had been minimized
    IsRectEmpty
    to determine whether a rectangular space
    IsWindow
    a window handle to determine the validity of
    IsWindowEnabled
    to determine whether the window is active
    IsWindowUnicode
    a window to determine whether the Unicode
    window. This means that the window for text-based news All
    are to receive Unicode characters
    IsWindowVisible
    to determine whether the window can be seen
    IsZoomed
    to determine whether or not to maximize the window
    LockWindowUpdate
    lock designated window, it is prohibited to
    update
    MapWindowPoints
    a window client coordinates of the area's
    window-point conversion to another area of customer
    coordinate system
    MoveWindow
    to change the designation of the location and
    size of the window
    OffsetRect
    through the application of a specified shift, so
    that the rectangle moving up
    OpenIcon
    to restore a minimum of procedure, and activation
    PtInRect
    to determine whether or not at the designated
    points within the rectangular
    RedrawWindow
    redraw all or part of the window
    ReleaseCapture
    current application for the release of
    captured mouse
    ScreenToClient
    judge on the screen of a customer's
    designated point coordinates of the area
    ScrollWindow
    rolling window of the customer area, in whole
    or in part
    According to the ScrollWindowEx additional option, customers
    rolling window area in whole or in part
    SetActiveWindow
    activated designated by the window
    SetCapture
    will catch the mouse to a specific set of window
    SetClassLong
    window-type setting for a Long variable entry
    SetClassWord
    window-type setting for an entry
    SetFocusAPI
    input will be the focus located at a designated
    window. If necessary, will be activated window
    SetForegroundWindow
    window to the front window as the system
    SetParent
    designate a new window of the Father
    SetRect
    rectangle designated set of content
    SetRectEmpty
    will be set to an empty rectangle rectangular
    SetWindowContextHelpId
    designated as a window to help set
    the scene (context) ID
    Structures SetWindowLong in the window as the designated
    window set up information
    SetWindowPlacement
    set up a state window and location
    information
    SetWindowPos
    window to specify a new location and status
    SetWindowText
    set the window title of the text or control
    the content of
    SetWindowWord
    window in the structure of the window to
    specify the information
    ShowOwnedPopups
    to show or hide all windows specified by all
    the pop-up window
    ShowWindow
    control window visibility
    ShowWindowAsync
    with similar ShowWindow
    SubtractRect
    loading rectangular lprcDst, it is rectangular
    in lprcSrc1 subtracted lprcSrc2 results
    TileWindows
    flat to order window
    UnionRect
    loaded with a rectangular lpDestRect goal, which
    is lpSrc1Rect and lpSrc2Rect together the results of
    UpdateWindow
    mandatory update window
    Check window ValidateRect all or part of the customer area
    WindowFromPoint
    include the return of the designated point
    of the window handle. Shield ignored, hidden, as well as a
    transparent window .

  16. #16

    Lightbulb توابع HexToInt - IntToBin - BinToInt



    { ======================================= }
    { Convert a HexString value to an Int64 }
    { Note : Last Char can be 'H' for Hex }
    { eg. '00123h' or '00123H' }
    { 0 will be returned if invalid HexString }
    { ======================================= }

    function HexToInt(HexStr : string) : Int64;
    var RetVar : Int64;
    i : byte;
    begin
    HexStr := UpperCase(HexStr);
    if HexStr[length(HexStr)] = 'H' then
    Delete(HexStr,length(HexStr),1);
    RetVar := 0;

    for i := 1 to length(HexStr) do begin
    RetVar := RetVar shl 4;
    if HexStr[i] in ['0'..'9'] then
    RetVar := RetVar + (byte(HexStr[i]) - 48)
    else
    if HexStr[i] in ['A'..'F'] then
    RetVar := RetVar + (byte(HexStr[i]) - 55)
    else begin
    Retvar := 0;
    break;
    end;
    end;

    Result := RetVar;
    end;

    { ============================================== }
    { Convert an Int64 value to a binary string }
    { NumBits can be 64,32,16,8 to indicate the }
    { return value is to be Int64,DWord,Word }
    { or Byte respectively (default = 64) }
    { NumBits normally are only required for }
    { negative input values }
    { ============================================== }

    function IntToBin(IValue : Int64; NumBits : word = 64) : string;
    var RetVar : string;
    i,ILen : byte;
    begin
    RetVar := '';

    case NumBits of
    32 : IValue := dword(IValue);
    16 : IValue := word(IValue);
    8 : IValue := byte(IValue);
    end;

    while IValue <> 0 do begin
    Retvar := char(48 + (IValue and 1)) + RetVar;
    IValue := IValue shr 1;
    end;

    if RetVar = '' then Retvar := '0';
    Result := RetVar;
    end;


    { ============================================== }
    { Convert a bit binary string to an Int64 value }
    { Note : Last Char can be 'B' for Binary }
    { eg. '001011b' or '001011B' }
    { 0 will be returned if invalid BinaryString }
    { ============================================== }

    function BinToInt(BinStr : string) : Int64;
    var i : byte;
    RetVar : Int64;
    begin
    BinStr := UpperCase(BinStr);
    if BinStr[length(BinStr)] = 'B' then Delete(BinStr,length(BinStr),1);
    RetVar := 0;
    for i := 1 to length(BinStr) do begin
    if not (BinStr[i] in ['0','1']) then begin
    RetVar := 0;
    Break;
    end;
    RetVar := (RetVar shl 1) + (byte(BinStr[i]) and 1) ;
    end;

    Result := RetVar;
    end;


  17. #17

    Lightbulb توابع تبدیل تاريخ میلادی به شمسی و بالعکس

    تابع تبدیل تاریخ میلادی به هجری :



    Function MiladiToHejri(GregorianDate : String;DateType : Integer) : String;
    var
    jmm, jdd : string;
    g_days_in_month, j_days_in_month : array[0..11] of Integer;
    HijriMonths : array[1..12] of String;
    g_day_no, j_day_no, jy, jm, gy, gm : Longint;
    j_np, i, jd, GD : Integer;
    flag : Boolean;
    begin
    flag := true;
    g_days_in_month[0] := 31;
    g_days_in_month[1] := 28;
    g_days_in_month[2] := 31;
    g_days_in_month[3] := 30;
    g_days_in_month[4] := 31;
    g_days_in_month[5] := 30;
    g_days_in_month[6] := 31;
    g_days_in_month[7] := 31;
    g_days_in_month[8] := 30;
    g_days_in_month[9] := 31;
    g_days_in_month[10] := 30;
    g_days_in_month[11] := 31;

    j_days_in_month[0] := 31;
    j_days_in_month[1] := 31;
    j_days_in_month[2] := 31;
    j_days_in_month[3] := 31;
    j_days_in_month[4] := 31;
    j_days_in_month[5] := 31;
    j_days_in_month[6] := 30;
    j_days_in_month[7] := 30;
    j_days_in_month[8] := 30;
    j_days_in_month[9] := 30;
    j_days_in_month[10] := 30;
    j_days_in_month[11] := 29;

    If GregorianDate = Null Then Exit;
    ShortDateFormat := 'yyyy/mm/dd';
    gy := (StrToInt(GregorianDate[1]+GregorianDate[2]+GregorianDate[3]+GregorianDate[4]) - 1600) ;
    gm := (StrToInt(GregorianDate[6]+GregorianDate[7]) - 1) ;
    GD := (StrToInt(GregorianDate[9]+GregorianDate[10]) - 1) ;

    g_day_no := 365 * gy + (gy + 3) div 4 - (gy + 99) div 100 + ( gy + 399) div 400;
    i := 0;
    While i < gm do
    begin
    g_day_no := g_day_no + g_days_in_month[i];
    i := i + 1;
    end;

    If (gm > 1) And (((gy Mod 4 = 0) And (gy Mod 100 <> 0)) Or (gy Mod 400 = 0)) Then
    g_day_no := g_day_no + 1;

    g_day_no := g_day_no + GD;
    j_day_no := g_day_no - 79;
    j_np := j_day_no div 12053;
    j_day_no := j_day_no Mod 12053;
    jy := 979 + 33 * j_np + 4 * (j_day_no div 1461);
    j_day_no := j_day_no Mod 1461;

    If (j_day_no >= 366) Then
    begin
    jy := jy + ((j_day_no - 1) div 365);
    j_day_no := (j_day_no - 1) Mod 365;
    End;
    i := 0;
    While (j_day_no >= j_days_in_month[i]) and flag do
    begin
    j_day_no := j_day_no - j_days_in_month[i];
    i := i + 1;
    If i > 12 Then
    begin
    i := 11;
    j_day_no := 29;
    flag := False;
    End;
    end;
    jm := i + 1;
    jd := j_day_no + 1;
    jmm := IntToStr(jm);
    jdd := IntToStr(jd);
    If (Length(jmm) = 1) then
    jmm := '0' + jmm
    else
    jmm := jmm;
    if (Length(jdd) = 1) then
    jdd := '0' + jdd
    else
    jdd := jdd;

    HijriMonths[1] := 'فروردين';
    HijriMonths[2] := 'ارديبهشت';
    HijriMonths[3] := 'خرداد';
    HijriMonths[4] := 'تير';
    HijriMonths[5] := 'مرداد';
    HijriMonths[6] := 'شهريور';
    HijriMonths[7] := 'مهر';
    HijriMonths[8] := 'آبان';
    HijriMonths[9] := 'آذر';
    HijriMonths[10] := 'دي';
    HijriMonths[11] := 'بهمن';
    HijriMonths[12] := 'اسفند';
    if jmm = '13' then
    begin
    jmm := '12';
    jdd := '30';
    end;
    Case DateType of
    0:
    MiladiToHejri := IntToStr(jy) + '/' + jmm + '/' + jdd;
    1:
    MiladiToHejri := IntToStr(strtoint(jdd)) + ' ' + HijriMonths[StrToInt(jmm)] + ' ' + IntToStr(jy);
    End;
    End;






    تابع تبدیل تاریخ هجری به میلادی :



    Function HejriToMiladi(HejriDate : String;DateType : Integer) : String;
    var
    jy, jm, jd, Hd, Gd,y ,m, tmp, jmmm, jddd, jyyy : string;
    c : Integer;
    MiladiMonths : array[1..12] of String;
    begin
    jy := Copy(HejriDate,1,4);

    jm := copy(HejriDate, 6, 2);
    If (Length(jm) = 1) then
    jm := '0' + jm
    else
    jm := jm;

    jd := copy(HejriDate,9,2);
    if (copy(jd,1,1) = '/' ) then
    jd := '0' + copy(jd,2,1)
    else
    jd := jd;

    HD := jy + '/' + jm + '/' + jd;
    Case StrToInt(jm) of
    1, 2, 3, 4, 5, 6, 7, 8, 9, 10 :
    begin
    m := IntToStr(StrToInt(jm) + 2);
    Y := IntToStr(StrToInt(jy) + 621);
    end;
    11, 12 :
    begin
    m := '0' + copy(jm,2,1);
    Y := IntToStr(StrToInt(jy) + 622);
    end
    End;//case
    ShortDateFormat := 'yyyy/mm/dd';
    GD := Y + '/' + m + '/01';
    c := 0;
    While True do
    begin
    tmp := GD;
    If HD = MiladiToHejri(GD,0) Then
    break;
    GD := DateToStr(strtoDate(tmp)+ 1);
    c := c + 1;
    If c > 1000 Then
    begin
    HejriToMiladi := 'تاريخ وارد شده اشتباه مي باشد . ';
    Exit;
    end;
    end;//while

    MiladiMonths[1] := 'January';
    MiladiMonths[2] := 'February';
    MiladiMonths[3] := 'March';
    MiladiMonths[4] := 'April';
    MiladiMonths[5] := 'May';
    MiladiMonths[6] := 'June';
    MiladiMonths[7] := 'July';
    MiladiMonths[8] := 'August';
    MiladiMonths[9] := 'September';
    MiladiMonths[10] := 'October';
    MiladiMonths[11] := 'November';
    MiladiMonths[12] := 'December';
    Case DateType of
    0:
    HejriToMiladi := GD;
    1:
    begin
    jyyy := copy(GD,1,4);
    jmmm := copy(GD,6,2);
    if (copy(jmmm,2,1) = '/' ) then
    jmmm := '0' + copy(jmmm,1,1)
    else
    jmmm := jmmm;
    jddd := copy(GD,Length(GD)-1,2);
    if (copy(jddd,1,1) = '/' ) then
    jddd := '0' + copy(jddd,2,1)
    else
    jddd := jddd;
    HejriToMiladi := jyyy + ' ' + MiladiMonths[StrToInt(jmmm)] + ' ' + IntToStr(strtoint(jddd));
    end;
    End;
    End;
    آخرین ویرایش به وسیله دلفــي : شنبه 17 دی 1401 در 11:06 صبح

  18. #18

    Lightbulb تابع Windows String To Dos String



    function WinToDosStr(WinStr:string):string;
    var Nflag:boolean;
    Ch:Char;
    T,N,M,I,J,DosI:integer;
    TmpStr,Str1,Str2:String;
    DosSt:String;
    begin
    DosSt:=''; WinStr:=WinStr+' '; M:=length(WinStr);
    for I:=1 to M do
    DosSt:=DosSt + #32;
    DosI:=M; Str1:='';
    for I:=1 To M do
    begin
    Nflag:=False;
    case WinStr[i] Of
    ' ' :Begin
    Ch:=#32;
    end;
    '.','0' .. '9'
    : begin
    Ch:=chr(ord(WinStr[i])+80);
    if (WinStr[i])='.' then
    ch:=#140;
    str1:=str1+ch;
    Nflag:=true;
    ch:=#0;
    end;
    'a' .. 'z',
    'A' .. 'Z'
    : begin
    Ch:=WinStr[i];
    str1:=str1+ch;
    Nflag:=true;
    ch:=#0;
    end;
    'آ' :begin
    ch:=#141;
    end;
    'ئ' :Begin
    Ch:=#142;
    end;
    'ء' :Begin
    Ch:=#143;
    end;
    'ا' :begin
    Ch:=#145;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1 )
    )
    then
    ch:=#144;
    end;
    'ب' : begin
    Ch:=#147;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#146;
    end;
    'پ' : begin
    Ch:=#149;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#148;
    end;
    'ت' :begin
    Ch:=#151;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#150;
    end;
    'ث' :begin
    Ch:=#153;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#152
    end;
    'ج' :begin
    Ch:=#155;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#154
    end;
    'چ' :begin
    Ch:=#157;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#156;
    end;
    'ح' :begin
    Ch:=#159;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#158;
    end;
    'خ' :begin
    Ch:=#161;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#160;
    end;
    'د' :begin
    Ch:=#162;
    end;
    'ذ' :begin
    Ch:=#163;
    end;
    'ر' :begin
    Ch:=#164;
    end;
    'ز' :begin
    Ch:=#165;
    end;
    'ژ' :begin
    Ch:=#166;
    end;
    'س' :begin
    Ch:=#168;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#167;
    end;
    'ش' :begin
    Ch:=#170;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#169;
    end;
    'ص' :begin
    Ch:=#172;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#171;
    end;
    'ض' :begin
    Ch:=#174;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#173;
    end;
    'ط' :begin
    ch:=#175 ;
    end;
    'ظ' :begin
    ch:=#224
    end;
    'ع' :begin
    Ch:=#227;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1) )
    then
    ch:=#228;
    if ((WinStr[i+1]=' ') or (i=M)) then
    if (ch=#228) then
    ch:=#225
    else
    ch:=#226;
    end;
    'غ' :begin
    Ch:=#231;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1) )
    then
    ch:=#232;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    if (ch=#232) then
    ch:=#229
    else
    ch:=#230;
    end;
    'ف' :begin
    Ch:=#234;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#233;
    end;
    'ق' :begin
    Ch:=#236;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#235;
    end;
    'ك' :begin
    Ch:=#238;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#237;
    end;
    'گ' :begin
    Ch:=#240;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#239 ;
    end;
    'ل' :begin
    Ch:=#243;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#241;
    end;
    'م' :begin
    Ch:=#245;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ') or (WinStr[i+1]='آ')) then
    ch:=#244;
    end;
    'ن' :begin
    Ch:=#247;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#246;
    end;
    'و' :begin
    ch:=#248 ;
    end;
    'ه' :begin
    Ch:=#250;
    if((WinStr[i-1]=' ')or(WinStr[i-1]=#157)or(WinStr[i-1]='ا')or(WinStr[i-1]='و')or
    (WinStr[i-1]='د')or(WinStr[i-1]='ذ')or(WinStr[i-1]='ر')or(WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or(i=1))
    then
    ch:=#251;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#249;
    end;
    'ي' :begin
    Ch:=#254;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#252;
    if (ord(WinStr[i])=236)then
    Ch:=#254;
    end;
    'ـ' :begin
    ch:=#139 ;
    end;
    else
    ch:=WinStr[i];
    end;


    if (Nflag=false) and(ch<>#0) and (DosI>0 )then
    begin
    N:=length(str1);
    for j:=N downto 1 do
    if (WinStr[i]<>#157) then
    begin
    DosSt[DosI]:=str1[j];
    Dec(DosI);
    end;


    if (WinStr[i]<>#157) then
    begin
    DosSt[DosI]:=Ch; Dec(DosI);
    end;


    str1:='';
    end;
    end;
    if (Nflag=True) and(ch=#0) and (DosI>0 )then
    begin
    N:=length(str1);
    for j:=N downto 1 do
    begin
    DosSt[DosI]:=str1[j];
    Dec(DosI);
    end;
    end;
    WinToDosStr:=copy(DosSt,2,length(DosSt));
    end;


    آخرین ویرایش به وسیله دلفــي : سه شنبه 06 اردیبهشت 1401 در 07:32 صبح

  19. #19

    Lightbulb تابع تشخیص اعداد از رشته


    Function IsNumber(Str : String) : Boolean;
    Var
    I, Code : Integer;
    Begin
    Val(Str, I, Code);
    if Code <> 0 Then
    Begin
    MessageDlg(' خطا در موقعيت : ' + Inttostr(Code), MtWarning, [mbOk], 0);
    Code := Code + I;
    IsNumber := False;
    End
    Else
    IsNumber := True;
    End;

  20. #20

    Lightbulb تابع اصلاح حروف فارسی "ی" و "ک"


    FUNCTION CHAR_CONTROL(Sender: STRING):STRING;
    Var ch_check, ch_check2 : String;
    i_check : integer;
    begin
    ch_check:=SENDER;
    i_check:=0;
    if sender='' then
    exit;
    ch_check2:='';
    WHILE i_check<=LENGTH(ch_check) DO
    BEGIN
    IF ch_check[i_check]='&' THEN
    BEGIN
    i_check:= i_check+6;
    ch_check2:= ch_check2+'ي';
    END
    ELSE
    IF ch_check[i_check]='ک' THEN
    ch_check2:= ch_check2+'ك'
    ELSE
    ch_check2:= ch_check2+ ch_check[i_check];
    i_check:= i_check+1;
    END;
    i_check:=2;
    ch_check:='';
    WHILE i_check<=LENGTH(ch_check2) DO
    BEGIN
    ch_check:= ch_check+ ch_check2[i_check];
    i_check:= i_check+1;
    END;
    Result:= ch_check;
    END;
    آخرین ویرایش به وسیله دلفــي : سه شنبه 30 تیر 1394 در 18:19 عصر

  21. #21

    Lightbulb تابع تبدیل عدد به حروف



    unit NumberToString;

    interface
    uses SysUtils;

    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 = ('','يکصد','دويست','سيصد','چهارص د','پانصد','ششصد','هفتصد','هشتص د','نهصد');
    base : array[0..4] of string = ('','هزار','ميليون','ميليارد','ت ريليون');

    function AddComma(snum : string) : string;
    function GetStr(snum : string) : string;

    implementation

    // تابع اعتبار سنجي عدد
    function isvalid15(snum : string) : boolean;
    var
    i, l : integer;
    b : boolean;
    begin
    b := true;
    l := length(snum);
    if l > 15 then
    b := false
    else
    for i := 1 to l do
    if not(snum[i] in ['0'..'9']) then
    b := false;
    result := b;
    end;

    // تابع تبديل عدد به حروف
    function num2str(snum : string) : string;
    // تابع تبد?ل عدد سه رقم? به حروف
    function getnum3(num3 : integer) : string;
    var
    s : string;
    d1, d2, d3, d12 : integer;
    begin
    d12 := num3 mod 100; // دو رقم اول
    d3 := num3 div 100; // صدگان
    if d3 <> 0 then
    s := sadgan[d3] + ' و ';
    // نام گذاري اعداد 10 تا 19 در بين
    // اعداد دو رقمي استثنا است
    if (d12 >= 10) and (d12 <= 19) then
    begin
    s := s + dahyek[d12];
    end
    else
    begin
    d2 := d12 div 10; // دهگان
    if d2 <> 0 then
    s := s + dahgan[d2] + ' و ';
    d1 := d12 mod 10; // يکان
    if d1 <> 0 then
    s := s + yekan[d1] + ' و ';
    // حذف حرف <و> اضافي
    s := copy(s, 1, length(s) - 3);
    end;
    getnum3 := s;
    end;

    var
    L, i, b : integer;
    stotal : string;
    begin
    // اگر عدد صفر بود، يکراست نتيجه را برگردان
    if snum = '0' then
    result := yekan[0]
    else
    begin
    // براي اينکه بتوان عدد را به قسمت هاي سه رقمي تقسيم کرد
    // به سمت چپ عدد، به اندازه کافي صفر مي افزاييم
    for i := Length(snum) to ((Length(snum) - 1) div 3 + 1) * 3 - 1 do
    snum := '0' + snum;

    L := Length(snum) div 3 - 1; // تعداد قسمت هاي سه رقمي منهاي يک

    // سه رقم سه رقم حلقه را تکرار کن
    // از چپ به راست
    for i := 0 to L do
    begin
    // به دست آوردن سه رقم مورد نظر
    b := strtoint(copy(snum ,i * 3 + 1, 3));
    // اگر سه رقم به دست آمده صفر باشد، در نام عدد تاثيري ندارد
    // نام قسمت سه رقمي را بدست مي آوريمgetnum3 با استفاده از تابع
    // پسوند را به آن اضافه مي کنيمbase با استفاده از آرايه
    if b <> 0 then
    stotal := stotal + getnum3(b) + ' ' + base[L - i] + ' و ';
    end;
    // حذف حرف <و> اضافي
    stotal := copy(stotal, 1, length(stotal) - 3);
    result := stotal;
    end;
    end;

    // اين تابع، يک لايه براي تابع <تبديل عدد به حروف> است که صحت مقدار ورودي را نيز بررسي مي کند
    function GetStr(snum : string) : string;
    begin
    snum := trim(snum);
    if isvalid15(snum) then
    result := num2str(snum)
    else
    result := 'عدد مورد نظر بسيار بزرگ است و يا معتبر نيست' ;
    end;

    // *****************************
    // *****************************
    // *****************************
    // تابع افزودن ويرگول
    // اين تابع يک عدد مي گيرد و به ازاي هر سه رقم يک ويرگول بين اعداد قرار مي دهد
    function AddComma(snum : string) : string;
    var
    l, i : integer;
    s : string;
    begin
    i := 1;
    l := length(snum);
    while i <= l do
    begin
    s := snum[l - i + 1] + s;
    if (i mod 3 = 0) and (i <> l) then
    s := ',' + s;
    i := i + 1;
    end;
    result := s;
    end;

    end.

  22. #22

    نقل قول: مرجع توابع دلفی

    سلام اين Delphi_Win32_Shell_API چرا پارت 6 را ندارد و ضميمه هم دانلود نمي شود

  23. #23
    کاربر دائمی
    تاریخ عضویت
    دی 1387
    محل زندگی
    اهواز
    پست
    923

    نقل قول: تابع Windows String To Dos String

    نقل قول نوشته شده توسط دلفــي مشاهده تاپیک

    function WinToDosStr(WinStr:string):string;
    var Nflag :boolean;
    Ch : Char;
    T,N,M,I,J,DosI :integer;
    TmpStr,Str1,Str2 :String;
    DosSt :String;
    begin
    DosSt:='';
    WinStr:=WinStr+' ';
    M:=length(WinStr);
    for I:=1 to M do
    DosSt:=DosSt + #32;
    DosI:=M;
    Str1:='';
    for I:=1 To M do
    begin
    Nflag:=False;
    case WinStr[i] Of
    ' ' :Begin
    Ch:=#32;
    end;

    '.','0' .. '9'
    : begin
    Ch:=chr(ord(WinStr[i])+80);
    if (WinStr[i])='.' then
    ch:=#140;
    str1:=str1+ch;
    Nflag:=true;
    ch:=#0;
    end;
    'a' .. 'z',
    'A' .. 'Z'
    : begin
    Ch:=WinStr[i];
    str1:=str1+ch;
    Nflag:=true;
    ch:=#0;
    end;
    'آ' :begin
    ch:=#141;
    end;
    'ئ' :Begin
    Ch:=#142;
    end;
    'ء' :Begin
    Ch:=#143;
    end;
    'ا' :begin
    Ch:=#145;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1 )
    )
    then
    ch:=#144;
    end;
    'ب' : begin
    Ch:=#147;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#146;
    end;
    'پ' : begin
    Ch:=#149;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#148;
    end;
    'ت' :begin
    Ch:=#151;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#150;
    end;
    'ث' :begin
    Ch:=#153;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#152
    end;
    'ج' :begin
    Ch:=#155;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#154
    end;
    'چ' :begin
    Ch:=#157;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#156;
    end;
    'ح' :begin
    Ch:=#159;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#158;
    end;
    'خ' :begin
    Ch:=#161;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#160;
    end;
    'د' :begin
    Ch:=#162;
    end;
    'ذ' :begin
    Ch:=#163;
    end;
    'ر' :begin
    Ch:=#164;
    end;
    'ز' :begin
    Ch:=#165;
    end;
    'ژ' :begin
    Ch:=#166;
    end;
    'س' :begin
    Ch:=#168;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    Ch:=#167;
    end;
    'ش' :begin
    Ch:=#170;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#169;
    end;
    'ص' :begin
    Ch:=#172;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#171;
    end;
    'ض' :begin
    Ch:=#174;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#173;
    end;
    'ط' :begin
    ch:=#175 ;
    end;
    'ظ' :begin
    ch:=#224
    end;
    'ع' :begin
    Ch:=#227;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1) )
    then
    ch:=#228;
    if ((WinStr[i+1]=' ') or (i=M)) then
    if (ch=#228) then
    ch:=#225
    else
    ch:=#226;
    end;
    'غ' :begin
    Ch:=#231;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1) )
    then
    ch:=#232;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    if (ch=#232) then
    ch:=#229
    else
    ch:=#230;

    end;
    'ف' :begin
    Ch:=#234;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#233;
    end;
    'ق' :begin
    Ch:=#236;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#235;
    end;
    'ك' :begin
    Ch:=#238;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#237;
    end;
    'گ' :begin
    Ch:=#240;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#239 ;
    end;
    'ل' :begin
    Ch:=#243;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#241;
    end;
    'م' :begin
    Ch:=#245;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ') or (WinStr[i+1]='آ')) then
    ch:=#244;
    end;
    'ن' :begin
    Ch:=#247;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#246;
    end;
    'و' :begin
    ch:=#248 ;
    end;
    'ه' :begin
    Ch:=#250;
    if((WinStr[i-1]=' ')or
    (WinStr[i-1]=#157)or
    (WinStr[i-1]='ا')or
    (WinStr[i-1]='و')or
    (WinStr[i-1]='د')or
    (WinStr[i-1]='ذ')or
    (WinStr[i-1]='ر')or
    (WinStr[i-1]='ز')or
    (WinStr[i-1]='ژ')or
    (i=1 ))
    then
    ch:=#251;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#249;
    end;
    'ي' :begin
    Ch:=#254;
    if ((WinStr[i+1]=#157) or (WinStr[i+1]=' ')) then
    ch:=#252;
    if (ord(WinStr[i])=236)then
    Ch:=#254;
    end;
    'ـ' :begin
    ch:=#139 ;
    end;
    else
    ch:=WinStr[i];
    end;

    if (Nflag=false) and(ch<>#0) and (DosI>0 )then
    begin
    N:=length(str1);
    for j:=N downto 1 do
    if (WinStr[i]<>#157) then
    begin
    DosSt[DosI]:=str1[j];
    Dec(DosI);
    end;

    if (WinStr[i]<>#157) then
    begin
    DosSt[DosI]:=Ch; Dec(DosI);
    end;

    str1:='';
    end;
    end;
    if (Nflag=True) and(ch=#0) and (DosI>0 )then
    begin
    N:=length(str1);
    for j:=N downto 1 do
    begin
    DosSt[DosI]:=str1[j];
    Dec(DosI);
    end;
    end;

    WinToDosStr:=copy(DosSt,2,length(DosSt));

    end;


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

  24. #24

    Lightbulb نقل قول: مرجع توابع دلفی

    نقل قول نوشته شده توسط h_mohamadi مشاهده تاپیک
    سلام اين Delphi_Win32_Shell_API چرا پارت 6 را ندارد و ضميمه هم دانلود نمي شود
    حذف شده !!!

    دوباره آپلود كردم .

    Delphi_Win32_Shell_API_.part06.rar

  25. #25

    Lightbulb توابع مثلثاتي در دلفي


    تانژانت:

    function tan(num:extended):extended;
    begin
    tan:=sin(num)/cos(num);
    end;

    {------------------------------------------------------------------------------------}
    کتانژانت:

    function cot(num:extended):extended
    begin
    cot:=1/(sin(num)/cos(num));
    end;


    {------------------------------------------------------------------------------------}
    ارک سینوس:

    function arcsin(num:extended):extended;
    begin
    if num=1 then
    arcsin:= arctan(1)*2
    else
    if num=-1 then
    arcsin:=-(arctan(1)*2)

    else
    arcsin:=arctan(num/(sqrt(1-sqr(num))));
    end;


    {------------------------------------------------------------------------------------}
    ارک کسینوس:

    function arccos(num:extended):extended;
    begin
    if abs(num)=1 then
    arccos:= arctan(1)*4*(1-num/abs(num))
    else
    arccos:=pi/2+arctan(-num/(sqrt(1-sqr(num))));
    end;


    {------------------------------------------------------------------------------------}
    ارک کتانژانت :

    function arccot(num:extended):extended;
    begin
    arccot:=-arctan(num)+pi/2;
    end;


    {------------------------------------------------------------------------------------}
    سکانت:

    function sec(num:extended):extended;
    begin
    sec:=1/cos(num);
    end;


    {------------------------------------------------------------------------------------}
    کسکانت:

    function csc(num:extended):extended;
    begin
    csc:= 1/sin(num);
    end;


    {------------------------------------------------------------------------------------}
    ارک سکانت:

    function arcsec(num:extended):extended;
    begin
    if abs(num)=1 then
    arcsec := arctan(1) * (num/abs(num)) * 4
    else
    arcsec:=arctan(num/(sqrt(1-sqr(num))))+((num-1)/abs(num-1))*pi/2;
    end;

    {------------------------------------------------------------------------------------}
    ارک کسکانت:

    function arccsc(num:extended):extended;
    begin
    If abs(num) = 1 Then
    arccsc := arctan(1) * (num/abs(num) * 4 - 2)
    else
    arccsc:= arctan(num/(sqrt(1-sqr(num))))+(num/abs(num)-1)*pi/2;
    end;


  26. #26

    Lightbulb چند تابع بازگشتي


    // a به توان b
    function Pow(a,b: Integer):Real;
    begin
    if b=0 then Pow := 1 else
    Pow := a*Pow(a,b-1);
    end;


    //
    فاكتوريل
    function Fact(n: Integer):Real;
    begin
    if n-1=1 then Fact := n else
    Fact := n*Fact(n-1);
    end;


    // a
    ضربدر b
    function Mul(a,b: Integer):Real;
    begin
    if b=1 then Mul := a else
    Mul := a+Mul(a,b-1);
    end;

  27. #27

    Lightbulb the delay function in pascal


    procedure Delay(ms : longint);

    var TheTime : LongInt; begin TheTime := GetTickCount + ms; while GetTickCount < TheTime do Application.ProcessMessages; end;

  28. #28

    نقل قول: مرجع توابع دلفی

    ضمیمه 40846


    سلام دوستان من این 6 تا فایل ‌Delphi_Win32_Shell_API را گرفتم اما extract نمی شود و پیغام زیر را می دهد.
    ممنون می شوم من را راهنمایی کنید.

  29. #29

    Lightbulb VBScript Split Function into Delphi



    function MySplit(source : string; delimiter : string): TStringList;
    var i : integer;
    s : string;
    arrString: TStringList;
    begin
    arrString := TStringList.Create;
    s := ”;
    i := 1;
    repeat
    begin
    if Copy(source,i,Length(delimiter)) &lt;&gt; delimiter then
    begin
    s := s + Copy(source,i,1);
    i := i + 1;
    end
    else
    begin
    arrString.Add(s);
    s := ”;
    i := i + Length(delimiter);
    end;
    end
    until i &gt; Length(source);
    if s &lt;&gt; ” then arrString.Add(s);
    result := arrString;
    end;
    فایل های ضمیمه فایل های ضمیمه

  30. #30

    Lightbulb توابع رياضي (محاسباتي) در دلفي

    Function Description
    ArcCos Inverse cosine
    ArcCosh inverse cosine hyperbolicus
    ArcCot inverse cotangens
    ArcCoth inverse cotangens hyperbolicus
    ArcCsc inverse cosecans
    ArcCsch inverse cosecans hyperbolicus
    ArcSec inverse secans
    ArcSech inverse secans hyperbolicus
    ArcSin inverse sine
    ArcSinh inverse sine hyperbolicus
    ArcTan inverse tangens
    ArcTanh inverse tangens hyperbolicus
    Arg complex number argument
    Bigger Compare two complex numbers
    Bigger2 Compare two complex number
    CAbs absolute value
    CartToPolar transform number from cartesian to polar coordinates
    Ceil calculate ceiling of a number
    CFrac calculate fractional part's of real and imaginary parts
    Cos cosine
    Cosh cosine hyperbolicus
    Cot cotangens
    Coth cotangens hyperbolicus
    CRound round a complex number
    Csc cosecans
    Csch cosecans hyperbolicus
    CSqr square of a complex number
    CSqrt square root of a complex number
    CTrunc truncate complex number
    Equ are two numbers equal ?
    Exp exponent (E^)
    Exp10 exponent (10^)
    Exp2 exponent (2^)
    Expj Euler's equation
    Fact calculate the N!
    FixAngle set angle in -Pi,Pi interval
    Floor the highest integer less than or equal to given number
    Gamma calculate the gamma function
    Gcd greatest common divisor
    IntPower raise base to integer power
    Lcm least common multiplier
    Ln natural logarithm
    LnGamma natural logarithm of gamma function
    Log10 log base 10
    Log2 log base 2
    LogN log base N
    Max compare two numbers and return maximum number
    Min compare two numbers and return minimum number
    Neg negate complex number
    PolarToCart transform number from polar to cartesian coordinates
    Power raise base to any power
    Pythag calculate the sqrt(sqr(x)+sqr(y))
    Rem calculate the remainder
    Sec secant
    Sech secant hyperbolicus
    Sgn calculate signum of a number
    Sin sine
    SinCos calculate sine and cosine
    Sinh sine hyperbolicus
    SinhCosh calculate sine hyp. and cosine hyp.
    Smaller compare two complex numbers
    Smaller2 compare two complex numbers
    Swap swap two numbers
    Tan tangens
    Tanh tangens hyperbolicus

  31. #31
    کاربر دائمی آواتار joker
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    اصفهان
    سن
    42
    پست
    1,326

    نقل قول: مرجع توابع دلفی

    بعضی مواقع فقط زدن کلید تشکر کافی نیست :)

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

    برای ترجمه سریع هم از گوگل ترانسلیتور استفاده شد:
    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: rar S.rar‏ (3.5 کیلوبایت, 138 دیدار)

  32. #32

    Exclamation نقل قول: مرجع توابع دلفی

    در مورد نرم افزاری که داریدتهیه میکنید پیشنهاد میکنم یک وب سایت مستقل آماده کنید که افراد به صورت آنلاین بتونند توابع را توضیحات فارسی براش بنوسید و همان موقع دیتابیس آن آپدیت شود
    و مثلا هر ماه یکبار این دیتابیس در اختیار عموم قرار بگیرد.
    دوست گرامي در برنامه اي كه در دست تهيه است از پايگاه داده استفاده نشده است ، در ضمن توابع دلفي كه هر يك ماه يك بار اضافه نمي شوند تا ما هم هر يك ماه آن را آپديت كنيم ! اگر هم نيازي به آپديت باشد در خود برنامه اعمال شده و در اختيار دوستان قرار مي گيرد چون خود برنامه داراي حجم چنداني نخواهد بود .

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

    اين چند خط اول از ترجمه شماست ، خودتان قضاوت كنيد آيا كسي كه در ابتداي راه براي كار با دلفي است از اين توضيحات چيزي متوجه مي شود ؟!


    مي دهد ارزش مطلق عدد (- Vê امضاء حذف شده)
    مي دهد که آدرس يک متغير ، تابع يا روال
    مقايسه دو رشته براي برابري ، مورد چشم پوشي کردن
    نقل درست اگر يک رشته شامل يک کلمه زير رشته
    نقل درست اگر يک رشته شامل يک کلمه زير رشته ، مورد بي اعتنا
    نقل درست به پايان مي رسد اگر يک رشته با زير رشته
    مقايسه يک رشته با يک ليست از رشته ها -- برمي گرداند کليدي صفحه اول
    .
    .
    .

  33. #33
    کاربر دائمی آواتار joker
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    اصفهان
    سن
    42
    پست
    1,326

    نقل قول: مرجع توابع دلفی

    به نظر من
    1-دیتابیسیش کنید که بعداز مدتی که تکمیل شد یکجا و راحت قابل استفاده باشد
    برای این گفتم آنلاین و دیتابیسی که هرکسی در هر زمانی( هر وقت حس و حالشو داشت ) بشینه آپدیت کنه
    2- گوگل مترجم سریع و البته دارای عیب و نقص است ، میشه یکبار داد به گوگل و بعد کمی ویرایش کرد مطمئنن ویرایش ساده تر از ترجمه کل هست
    3- میتونید هم هیچکدوم از این کارهایی که گفتم را نکنید :)
    آخرین ویرایش به وسیله joker : چهارشنبه 18 آذر 1388 در 01:16 صبح

  34. #34

    نقل قول: مرجع توابع دلفی

    1-دیتابیسیش کنید که بعداز مدتی که تکمیل شد یکجا و راحت قابل استفاده باشد
    برای این گفتم آنلاین و دیتابیسی که هرکسی در هر زمانی( هر وقت حس و حالشو داشت ) بشینه آپدیت کنه
    برای این کار کافی هست که یک دامین داشته باشید، با فضای معین، و یک Wiki روی آن نصب کنید.


    وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
    و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.

  35. #35

    Lightbulb نقل قول: مرجع توابع دلفی

    با تشكر از نظرات سودمند دوستان عزيز ، با توجه به درخواست دوستان سعي ميكنم از پايگاه داده براي نگهداري و ثبت اطلاعات جديد استفاده كنم و به پيشنهاد دوستان عمل خواهم كرد.

    در ضمن برنامه در اواخر مراحل اتمام كار است و به زودي براي علاقه مندان ارائه مي شود ، البته هنوز ترجمه كاملي براي من ارسال نشده است به جزء ترجمه اي كه كاربر Mahmood_N برايم ارسال كرده بود كه قسمتهايي از اون بدون ترجمه باقي مونده بود، با اين حال واقعا دستشان درد نكنه !

    من فايلي رو كه ايشون برام ارسال كردند رو همينجا آپلود ميكنم تا بقيه عزيزان اگه امكانش رو داشتند قسمتهاي ناقص رو كاملش كنند .

    اين هم تصوير محيط برنامه :

    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: rar S3.rar‏ (6.2 کیلوبایت, 201 دیدار)
    آخرین ویرایش به وسیله دلفــي : چهارشنبه 18 آذر 1388 در 17:22 عصر

  36. #36

    Lightbulb نقل قول: تابع Windows String To Dos String

    نقل قول نوشته شده توسط khoshblagh مشاهده تاپیک
    ضمن قدردانی از شما دوست گرامی در صورت امکان تبدیل رشته داس به ویندوز را هم
    لطف کرده و در اختیار سایرین قرار دهید. در هر صورت متشکرم.
    قبلا دوستان زحمتش رو كشيدن :

    http://www.barnamenevis.org/do...?do=file&id=26

  37. #37

    Lightbulb تابع تبديل BYTE به WORD


    Function Byte2Word(hbyte:Byte; lbyte:Byte): word;
    var Temp: word;
    begin
    Temp := hbyte;
    Temp := Temp shl 8;
    Temp := Temp or lbyte;
    Result := Temp;
    end;

  38. #38

    Lightbulb توابع RoundUp و RoundDown

    تابع Round به بالا :


    Function RoundUp(Num : Real) :Real;
    begin
    SetRoundMode(rmUp);
    RoundUp := RoundTo(Num,0);
    end;


    تابع Round به پايين :


    Function RoundDown(Num : Real) :Real;
    begin
    SetRoundMode(rmDown);
    RoundDown := RoundTo(Num,0);
    end;

  39. #39

    Lightbulb تابع جمع دو عدد n رقمي



    Function Sum(x,y:String):String;
    // Programer: Alireza Talebi
    var
    S,S2,xi,yi:String;
    Max:Integer;
    i,n,Temp,x1,y1:integer;
    begin
    xi:='';
    yi:='';
    if StrLen(PChar(Trim(x))) >= StrLen(PChar(Trim(y))) then
    begin
    Max := StrLen(PChar(Trim(x)));
    for i := 1 to Max - StrLen(PChar(Trim(y))) do
    yi := yi + '0';
    end else
    begin
    Max := StrLen(PChar(Trim(y)));
    for i := 1 to Max - StrLen(PChar(Trim(x))) do
    xi := xi + '0';
    end;
    xi := Trim(xi + x);
    yi := Trim(yi + y);
    S := '';
    n := 0;
    for i:= Max downto 1 do
    begin
    Temp:=0;
    x1 := StrToInt(xi[i]);
    y1 := StrToInt(yi[i]);
    Temp:=x1+y1+n;
    if Temp < 10 then begin
    S := S + IntToStr(Temp);
    n := 0;
    end
    else
    begin
    S := S + IntToStr(Temp mod 10);
    n := 1;
    end;
    end;
    S2 := '';
    for i:= StrLen(PChar(Trim(S))) downto 1 do
    S2 := S2 + S[i];
    Sum := S2;
    end;


  40. #40

    Lightbulb تابع بدست آوردن مشخصات كامل هارد ديسك


    function GetIdeSerialNumber(i:Integer) : String;
    const IDENTIFY_BUFFER_SIZE = 512;
    type
    TIDERegs = packed record
    bFeaturesReg : BYTE; // Used for specifying SMART "commands".
    bSectorCountReg : BYTE; // IDE sector count register
    bSectorNumberReg : BYTE; // IDE sector number register
    bCylLowReg : BYTE; // IDE low order cylinder value
    bCylHighReg : BYTE; // IDE high order cylinder value
    bDriveHeadReg : BYTE; // IDE drive/head register
    bCommandReg : BYTE; // Actual IDE command.
    bReserved : BYTE; // reserved for future use. Must be zero.
    end;
    TSendCmdInParams = packed record
    // Buffer size in bytes
    cBufferSize : DWORD;
    // Structure with drive register values.
    irDriveRegs : TIDERegs;
    // Physical drive number to send command to (0,1,2,3).
    bDriveNumber : BYTE;
    bReserved : Array[0..2] of Byte;
    dwReserved : Array[0..3] of DWORD;
    bBuffer : Array[0..0] of Byte; // Input buffer.
    end;
    TIdSector = packed record
    wGenConfig : Word;
    wNumCyls : Word;
    wReserved : Word;
    wNumHeads : Word;
    wBytesPerTrack : Word;
    wBytesPerSector : Word;
    wSectorsPerTrack : Word;
    wVendorUnique : Array[0..2] of Word;
    sSerialNumber : Array[0..19] of CHAR;
    wBufferType : Word;
    wBufferSize : Word;
    wECCSize : Word;
    sFirmwareRev : Array[0..7] of Char;
    sModelNumber : Array[0..39] of Char;
    wMoreVendorUnique : Word;
    wDoubleWordIO : Word;
    wCapabilities : Word;
    wReserved1 : Word;
    wPIOTiming : Word;
    wDMATiming : Word;
    wBS : Word;
    wNumCurrentCyls : Word;
    wNumCurrentHeads : Word;
    wNumCurrentSectorsPerTrack : Word;
    ulCurrentSectorCapacity : DWORD;
    wMultSectorStuff : Word;
    ulTotalAddressableSectors : DWORD;
    wSingleWordDMA : Word;
    wMultiWordDMA : Word;
    bReserved : Array[0..127] of BYTE;
    end;
    PIdSector = ^TIdSector;
    TDriverStatus = packed record
    // Error code from driver, or 0 if no error.
    bDriverError : Byte;
    // Contents of IDE Error register. Only valid when bDriverError is SMART_IDE_ERROR.
    bIDEStatus : Byte;
    bReserved : Array[0..1] of Byte;
    dwReserved : Array[0..1] of DWORD;
    end;
    TSendCmdOutParams = packed record
    // Size of bBuffer in bytes
    cBufferSize : DWORD;
    // Driver status structure.
    DriverStatus : TDriverStatus;
    // Buffer of arbitrary length in which to store the data read from the drive.
    bBuffer : Array[0..0] of BYTE;
    end;
    var hDevice : THandle;
    cbBytesReturned : DWORD;
    SCIP : TSendCmdInParams;
    aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte;
    IdOutCmd : TSendCmdOutParams absolute aIdOutCmd;
    procedure ChangeByteOrder( var Data; Size : Integer );
    var ptr : PChar;
    i : Integer;
    c : Char;
    begin
    ptr := @Data;
    for i := 0 to (Size shr 1)-1 do
    begin
    c := ptr^;
    ptr^ := (ptr+1)^;
    (ptr+1)^ := c;
    Inc(ptr,2);
    end;
    end;
    begin
    Result := ''; // return empty string on error
    if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000
    begin
    // warning! change name for other drives: ex.: second drive '\\.\PhysicalDrive1\'
    hDevice := CreateFile( '\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
    end
    else // Version Windows 95 OSR2, Windows 98
    hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
    if hDevice=INVALID_HANDLE_VALUE then Exit;
    try
    FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0);
    FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0);
    cbBytesReturned := 0;
    // Set up data structures for IDENTIFY command.
    with SCIP do
    begin
    cBufferSize := IDENTIFY_BUFFER_SIZE;
    // bDriveNumber := 0;
    with irDriveRegs do
    begin
    bSectorCountReg := 1;
    bSectorNumberReg := 1;
    // if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0
    // else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4);
    bDriveHeadReg := $A0;
    bCommandReg := $EC;
    end;
    end;
    if not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams)-1,
    @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil ) then Exit;
    finally
    CloseHandle(hDevice);
    end;
    with PIdSector(@IdOutCmd.bBuffer)^ do
    begin
    ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) );
    (PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0;
    case i of
    0: Result := PChar(@sModelNumber);
    1: Result := PChar(@sSerialNumber);
    2: Result := PChar(@sFirmwareRev);
    end;
    end;
    end;


    مثال :


    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
    Edit1.Text := Trim(GetIdeSerialNumber(0));
    Edit2.Text := Trim(GetIdeSerialNumber(1));
    Edit3.Text := Trim(GetIdeSerialNumber(2));
    end;


صفحه 1 از 3 123 آخرآخر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •