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

  • 8859 1 Organization TeamB Mime Version 1 0 Reply To 100113 1101 compuXXserve com Newsgroups borland public delphi winapi In article Gábor Husonyica wrote How can i display the window of Windows Explorer s File properties Name DOS Name times attributes Procedure ShowFileProperties Const filename String Var sei TShellExecuteinfo Begin FillChar sei sizeof sei 0 sei cbSize sizeof sei sei lpFile Pchar filename sei lpVerb properties sei fMask SEE MASK

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



  • need any display it s a console application used solely by parameters from a dos 32 bit app to handle the printer in windows However when i remove all the runtime packages and such it still compiles in the Windows pas unit which i don t think i really need since it doesn t use any windows related stuff save what is in the WinSpool pas unit And currently when i try to create the stringlist class i get an access violation here is my code i m wondering if i need the application initialize or something to be put in there or if there is some other memory setup i need to call to make a SMALL quick application that sends to the printer without any BS this app compiled to 281k which is obscene for what i m trying to do thanks for the help fluffy sean kendrick start code program Embossit uses Classes WinSpool FlufStuf var BFMFile TStringList ParamStartError Integer F Text NewPort OldPort String Function UpperCase St String String var I Integer begin For I 1 to Length St do if St I in a z then St I Char Ord St I 32 Result St end Function FileExists Name String Boolean var F File begin AssignFile F Name I Reset F I Result IOresult 0 if Result then Close F end Function ParamStart Boolean var St String begin Result False OldPort ParamStartError 5 if ParamCount MEGA then Exit St ParamStr 2 Dec ParamStartError if Not PrinterExists PrinterName then PrinterName Generic Text Only and printerexists is a simple function using the printer var from delphi Exit Dec ParamStartError NewPort UpperCase ParamStr 3 if NewPort 3 then begin NewPort NewPort OldPort SetPrinterPort PrinterName NewPort this is my proc that uses the API functions to set the printer

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


  • You must select a drive directory or file first 1 ShowProperties drvcbDrives Drive 2 ShowProperties lbFiles FileName 3 ShowProperties lbDirectories Directory end end procedure TForm1 ShowProperties sFileName String begin ZeroMemory sei sizeof sei with sei do begin cbSize SizeOf sei fMask SEE MASK NOCLOSEPROCESS or SEE MASK INVOKEIDLIST or SEE MASK FLAG NO UI Wnd Form1 Handle lpVerb properties lpFile PChar sFileName nShow SW SHOWNORMAL end ShellExecuteEX sei end procedure TForm1 btnQuitClick Sender TObject begin Close end procedure TForm1 btnFindFilesClick Sender TObject var pidl PITEMIDLIST begin ZeroMemory sei sizeof sei with sei do begin cbSize SizeOf sei fMask SEE MASK INVOKEIDLIST lpVerb find if chkbMyComputer Checked then begin SHGetSpecialFolderLocation 0 CSIDL DRIVES pidl lpIDList pidl end else begin case b of 0 1 lpFile PChar String drvcbDrives Drive 2 begin ShowMessage You can only use this on Drives and Directories Exit end 3 lpFile PChar lbDirectories Directory end end end ShellExecuteEx sei end procedure TForm1 lbDirectoriesChange Sender TObject begin lbFiles Directory lbDirectories Directory if chkbMyComputer Checked then chkbMyComputer Checked False end procedure TForm1 drvcbDrivesChange Sender TObject begin lbDirectories Drive drvcbDrives Drive if chkbMyComputer Checked then chkbMyComputer Checked False end procedure TForm1 btnSendToRecycleClick Sender TObject var s string begin case b of 0 ShowMessage You must select a drive directory or file first 1 ShowMessage You can only use this on Files and Directories 2 SendToRecycleBin lbFiles FileName 3 begin s lbDirectories Directory if Copy s Length s 1 2 then begin ShowMessage This cannot be used on the Root directory Exit end SendToRecycleBin lbDirectories Directory end end end procedure TForm1 SendToRecycleBin sFileName String begin ZeroMemory sei sizeof sei with sei do begin cbSize SizeOf sei fMask SEE MASK NOCLOSEPROCESS or SEE MASK INVOKEIDLIST or SEE MASK FLAG NO UI Wnd Form1 Handle lpVerb delete lpFile PChar sFileName nShow SW SHOWNORMAL

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


  • winapi Hi Hammady if you would like to have a full blown function for determining the file or directory size recursively you can use this one function GetFileSize AFile string integer var SearchRec TSearchRec begin Result 0 if FindFirst AFile faAnyFile SearchRec 0 then begin if SearchRec Attr and faDirectory and SearchRec Name 0 end end end Hammady mhammady idsc1 gov eg wrote in How i can use the GetFileSize

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


  • 100113 1101 compuXXserve com Newsgroups borland public delphi vcl components using How to get project version control information inside Delphi Application For example I need Build number procedure GetBuildInfo var V1 V2 V3 V4 Word by Steve Schafer var VerInfoSize DWORD VerInfo Pointer VerValueSize DWORD VerValue PVSFixedFileInfo Dummy DWORD begin VerInfoSize GetFileVersionInfoSize PChar ParamStr 0 Dummy GetMem VerInfo VerInfoSize GetFileVersionInfo PChar ParamStr 0 0 VerInfoSize VerInfo VerQueryValue VerInfo Pointer VerValue

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


  • 00 2615 200 NNTP Posting Host 62 179 170 108 Message ID X Trace dnews 991692743 62 179 170 108 4 Jun 2001 15 12 23 0700 Path dnews Xref dnews borland public delphi winapi 137198 Mike C wrote Anybody know a way to determine whether a file directory is local or on the network I would like to optimize a file move routine so that it simply renames the

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


  • Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm Button1 TButton procedure Button1Click Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation R DFM USES ShellAPI Filename is fully qualified file name based on 3 Aug 2000 E mail from Gunnar Einarsson PROCEDURE OpenWith FileName STRING BEGIN ShellExecute Form1 handle pChar open pChar rundll32 exe pChar shell32 dll OpenAs RunDLL pChar FileName nil SW SHOW END

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


  • ago and it works 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 function SHEmptyRecycleBin external SHELL32 DLL name SHEmptyRecycleBinA procedure TForm1 Button1Click Sender TObject begin SHEmptyRecycleBin

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



  •