Tech Story

Run a Program automatically at Windows start-up uses Registry; procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean); const RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run'; // or: RegKey = '\Software\Microsoft\Windows\CurrentVersion\RunOnce'; var Registry: TRegistry; begin Registry …

Show Directories in a TTreeview procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode; IncludeFiles: Boolean); var SearchRec: TSearchRec; ItemTemp: TTreeNode; begin Tree.Items.BeginUpdate; if Directory '\' then Directory := Directory + …

When you create a file or directory, you become the owner of it. With GetFileOwner you get the owner of a file. function GetFileOwner(FileName: string; var Domain, Username: string): …

Replace a running DLL function SystemErrorMessage: string; var P: PChar; begin if FormatMessage(Format_Message_Allocate_Buffer + Format_Message_From_System, nil, GetLastError, 0, @P, 0, nil) 0 then begin Result := P; LocalFree(Integer(P)) end …

Retrieve UNC Paths // Method 1 ExpandUNCFileName returns the full path of the FileName with the network drive portion in UNC format. The pathname in the UNC-Format has the …

Get the Path to Program files uses Registry; function GetProgramFilesDir: string; var reg: TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False); Result := reg.ReadString('ProgramFilesDir'); finally reg.Free; …

Use TFileStream type TPerson = record Name: string; vorname: string; end; TComputer = record Name: string; cpu: string; end; var Form1: TForm1; Person: TPerson; Computer: TComputer; Stream: TFileStream; implementation …

Run a program or open an associated file Open a file or starts a programm (without parameters) procedure OpenFile(FileName: string); var c: array of Char; begin StrPCopy(c, FileName); ShellExecute(Application.Handle, …

Open the windows explorer and show the specified folder uses ShellApi; // strFolder is the folder you want to open procedure ShowFolder(strFolder: string); begin ShellExecute(Application.Handle, PChar('explore'), PChar(strFolder), nil, nil, …

Disable the Close button on a Form procedure TFMain.FormCreate(Sender: TObject); var hMenuHandle: Integer; begin hMenuHandle := GetSystemMenu(Handle, False); if (hMenuHandle 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;

This way you can drag and drop files to a specific control in a Delphi form. Just create a project and add a ListBox component to Form1. 1. First, …

Register a menu entry to a File uses Registry; procedure AddFileMenue(FilePrefix, Menue, Command: string); var reg: TRegistry; typ: string; begin reg := TRegistry.Create; with reg do begin RootKey := …