archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • 2002 12 45 34 0700 X Trace newsgroups borland com 1032464734 66 107 65 98 19 Sep 2002 12 45 34 0700 Lines 12 Message ID References Path newsgroups borland com newsgroups borland com not for mail Xref newsgroups borland com borland public delphi language objectpascal 3773 On 19 Sep 2002 Quasidata wrote Then handle each substring with StringReplace to replace pipes with linefeeds parse it with another TStringList and

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0919.txt (2016-02-14)
    Open archived version from archive



  • able to find out how much spcae is used by a directory and its subdirectories Has anybody done this with Delphi 5 There are two different values the sum of all file sizes and the allocated disk size You can calculate this values with FindFirst FindNext To calculate the second value you must the file sizes align on cluster size The determination of cluster size is difficult for a FAT32

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0217.txt (2016-02-14)
    Open archived version from archive


  • 16 221 8 May 1999 22 52 55 GMT Organization Customer of Planet Online X MSMail Priority Normal NNTP Posting Date 8 May 1999 22 52 55 GMT Newsgroups comp lang pascal delphi misc Hi Ross Try using this function It returns a record of type TDirInfo Declare a variable of this type and use it like this variable DirInfo DirName RecurseSubDirectories Then query the variable identifiers number of files in directory s variable files number of directories variable dirs total size of all files in directory s variable size type TDirInfo record files Integer dirs Integer size Integer end function DirInfo const Dirname TFilename Subs Boolean TDirInfo var rec TSearchRec code Integer begin with Result do begin files 0 dirs 0 size 0 end code FindFirst Dirname faAnyfile and not faVolumeID rec while code 0 do begin Inc Result size rec size if rec attr and faDirectory then begin Inc Result dirs if Subs then with DirInfo Dirname rec name True Result do begin Inc files files Inc dirs dirs Inc size size end end end else Inc Result files code FindNext rec end end Hope this is of some help Simon Patterson Ross Elliott wrote in message news

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0508b.txt (2016-02-14)
    Open archived version from archive


  • Content Type text plain charset us ascii Content Transfer Encoding 7bit NNTP Posting Host 132 234 46 2 X Trace dnews 992391094 132 234 46 2 12 Jun 2001 17 11 34 0700 Lines 42 Path dnews Xref dnews borland public delphi students 12250 JJ wrote Is there a way in Delphi to programatically search all the directories on a disk for a specific file CODE FOR RECURSIVE SEARCH FOR

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0612b.txt (2016-02-14)
    Open archived version from archive


  • drive recursively scanning all drives excerpt from form declaration form has a listbox1 for the results a label1 for progress a button2 to start the scan an edit1 to get the search mask from a button3 to stop the scan private Private declarations FScanAborted Boolean public Public declarations Function ScanDrive root filemask String hitlist TStrings Boolean Function TForm1 ScanDrive root filemask String hitlist TStrings Boolean Function ScanDirectory Var path String Boolean Var SRec TSearchRec pathlen Integer res Integer Begin label1 caption path pathlen Length path first pass files res FindFirst path filemask faAnyfile SRec If res 0 Then try While res 0 Do Begin hitlist Add path SRec Name res FindNext SRec End finally FindClose SRec end Application ProcessMessages Result not FScanAborted or Application Terminated If not Result Then Exit second pass directories res FindFirst path faDirectory SRec If res 0 Then try While res 0 and Result Do Begin If Srec Attr and faDirectory faDirectory and Srec name Then Begin path path SRec name Result ScanDirectory path SetLength path pathlen End res FindNext SRec End finally FindClose SRec end End Begin FScanAborted False Screen Cursor crHourglass try Result ScanDirectory root finally Screen Cursor crDefault end End procedure TForm1 Button2Click

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0627.txt (2016-02-14)
    Open archived version from archive


  • DATA wfd DWORD dwFileAttributes FILETIME ftCreationTime FILETIME ftLastAccessTime FILETIME ftLastWriteTime DWORD nFileSizeHigh DWORD nFileSizeLow DWORD dwReserved0 DWORD dwReserved1 TCHAR cFileName MAX PATH TCHAR cAlternateFileName 14 WIN32 FIND DATA var Dir String var Handle HWND var StructWin TWIN32FINDDATA begin Dir c ffa This is the files that windows NT put in the root directory MyList Clear Handle FindFirstFile PChar Dir StructWin If Handle FILE ATTRIBUTE DIRECTORY then MyList Lines Add IntToStr

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0810b.txt (2016-02-14)
    Open archived version from archive


  • 37 13 0700 Lines 35 X Authenticated User rvelthuis Path dnews Xref dnews borland public delphi students 14406 In article Blomerus Calitz says Hi everyone Can someone please tell me how to get the path of the system folder E G C Windows or C WinNT The system directory would rather be C Windows System or C WinNT System32 or similar If you want that try this untested code function

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/1027.txt (2016-02-14)
    Open archived version from archive


  • delphi winapi GetTempPath The GetTempPath function retrieves the path of the directory designated for temporary files DWORD GetTempPath DWORD nBufferLength size in characters of the buffer LPTSTR lpBuffer pointer to buffer for temp path Parameters nBufferLength Specifies the size in characters of the string buffer identified by lpBuffer lpBuffer Pointer to a string buffer that receives the null terminated string specifying the temporary file path The returned string ends with a backslash for example C TEMP Return Values If the function succeeds the return value is the length in characters of the string copied to lpBuffer not including the terminating null character If the return value is greater than nBufferLength the return value is the size of the buffer required to hold the path If the function fails the return value is zero To get extended error information call GetLastError Remarks Windows 95 and Windows 98 The GetTempPath function gets the temporary file path as follows The path specified by the TMP environment variable The path specified by the TEMP environment variable if TMP is not defined or if TMP specifies a directory that does not exist The current directory if both TMP and TEMP are not defined or specify

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0326a.txt (2016-02-14)
    Open archived version from archive