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".

  • during the operation This parameter can be NULL pszRootPath Address of a NULL terminated string that contains the path of the root drive on which the recycle bin is located This parameter can contain the address of a string formatted with the drive folder and subfolder names c windows system It can also contain an empty string or NULL If this value is an empty string or NULL all recycle

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



  • bit integers bytes 0 3 seems to always be zero version number bytes 4 7 number of files in the Recycle Bin bytes 8 11 next sequence number to use bytes 12 15 280 size of deleted file records bytes 16 19 total number of bytes occupied by deleted files Each deleted file record consists of 260 bytes containing the full null terminated path name of the deleted file followed by a 20 byte trailer bytes 0 3 sequence number for this file bytes 4 7 drive letter for this file A 0 B 1 etc bytes 8 15 time when file was deleted in FILETIME format bytes 16 19 number of bytes occupied by this file The numbers that specify the number of bytes occupied by deleted files includes the cluster overhead that is a 1 byte file on a drive that uses 8192 byte clusters is reported as occupying 8192 bytes It appears that if several files are deleted during a single operation they will all have the same deletion time stamp You could use this information to determine the granularity of your undo operations The above applies to FAT partitions under the original Win95 and also Win95 OSR2 The later versions of Win95 that have the new IE shell use a different structure for the INFO file which is now called INFO2 NT 4 0 also uses a different structure partly because it stores file names in Unicode In any case the basic idea seems to be the same just the details are different The four bytes that I mentioned above might be the version number are different for the different formats Here s what I ve found out about the FAT32 Win95 recycling bin Info2 file structure The Info2 header consists of five 32 bit integers

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


  • StdCtrls ExtCtrls Buttons type TForm1 class TForm Button1 TButton Memo1 TMemo Button2 TButton WriterTimer TTimer ReaderTimer TTimer procedure FormCreate Sender TObject procedure FormCloseQuery Sender TObject var CanClose Boolean procedure Button1Click Sender TObject procedure Button2Click Sender TObject procedure WriterTimerTimer Sender TObject procedure ReaderTimerTimer Sender TObject private Private declarations FFilename String FReaderStream FWriterStream TFileStream public Public declarations end var Form1 TForm1 implementation R DFM procedure TForm1 FormCreate Sender TObject var buf array 0 MAX PATH of Char begin GetTempPath Sizeof buf buf FFilename buf test log If FileExists FFilename Then DeleteFile FFilename end procedure TForm1 FormCloseQuery Sender TObject var CanClose Boolean begin FReaderStream Free FReaderStream Nil FWriterStream Free FWriterStream Nil end procedure TForm1 Button1Click Sender TObject begin start or stop the writer If WriterTimer Enabled Then Begin stop the writer WriterTimer Enabled False FWriterStream Free FWriterStream Nil Sender As TButton Caption Start writer End Else Begin start the writer If not FileExists FFilename Then With TFileStream Create FFilename fmCreate Do Free FwriterStream TFileStream Create FFilename fmOpenWrite or fmShareDenyNone With FwriterStream Do Position Size always append to the file Sender As TButton Caption Stop writer WriterTimer Enabled True End end procedure TForm1 Button2Click Sender TObject begin start or stop the reader If ReaderTimer Enabled Then Begin stop the reader ReaderTimer Enabled False FReaderStream Free FReaderStream Nil Sender As TButton Caption Start reader End Else Begin start the reader If not FileExists FFilename Then With TFileStream Create FFilename fmCreate Do Free FReaderStream TFileStream Create FFilename fmOpenRead or fmShareDenyNone start reading always at position 0 Sender As TButton Caption Stop reader memo1 clear ReaderTimer Enabled True End end procedure TForm1 WriterTimerTimer Sender TObject var S String begin If Assigned FwriterStream Then Begin S Format Line written at tickcount d 13 10 GetTickCount try FWriterStream WriteBuffer S 1 Length S except Button1 Click raise end End

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


  • Inc Mime Version 1 0 Reply To xavier xapware com Newsgroups borland public delphi winapi David Try this unit Unit1 interface uses Windows Messages SysUtils Classes Graphics ShellApi Controls Forms Dialogs StdCtrls ExtCtrls type TForm1 class TForm Button1 TButton procedure Button1Click Sender TObject end var Form1 TForm1 function SHEmptyRecycleBin Wnd HWnd LPCTSTR PChar DWORD Word Integer stdcall const SHERB NOCONFIRMATION 00000001 SHERB NOPROGRESSUI 00000002 SHERB NOSOUND 00000004 implementation R DFM

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


  • 7bit NNTP Posting Host 132 234 46 2 X Trace dnews 1004319777 132 234 46 2 28 Oct 2001 17 42 57 0800 Lines 35 Path dnews Xref dnews borland public delphi winapi 150612 Samih wrote How can I copy a directory from the network drive to the local drive e g Server Images To C images uses ShellAPI procedure TFrmCopyDir BtnCopyClick Sender TObject var fileOp TShFileOpStruct fromDir string toDir

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


  • public delphi winapi I an having trouble with recusivly deleting empty folders I tryed FileDelete but it seams as it don t work on folders Do delete a folder you have to use DeleteDirectory and it will fail if the directory is not empty or is the current directory Use ShFileOperation it can delete a whole directory tree in one call Uses ShellAPI var T TSHFileOpStruct begin fillchar T sizeof

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


  • that will do this x procedure CopyDirectoryTree AHandle THandle const AFromDirectory AToDirectory String var SHFileOpStruct TSHFileOpStruct FromDir PChar ToDir PChar begin GetMem FromDir Length AFromDirectory 2 try GetMem ToDir Length AToDirectory 2 try FillChar FromDir Length AFromDirectory 2 0 FillChar ToDir Length AToDirectory 2 0 StrCopy FromDir PChar AFromDirectory StrCopy ToDir PChar AToDirectory with SHFileOpStruct do begin Wnd AHandle Assign the window handle wFunc FO COPY Specify a file copy

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


  • 1 0 NNTP Posting Date 24 Apr 1999 14 47 54 GMT Newsgroups alt lang delphi David Allsop wrote in message how do i open a file without using a TOpenDialog First of all a file will not be opened after using TOpenDialog The opening if the file you have to do your self so I think you have an other problem Here a shot at the answer var Bestand

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



  •