Re: HotTips : Delphi XE4

Enumerate Path : Path.pas

ใช้เชื่อมโยงสู่ Directory Folder ต่างๆ ดังนี้
1. C:\
2. Windows
3. My Documents
4. Program Files
5. System32
6. Startup

Unit Path.pas Class namespace

unit Path;
interface
  uses
    Classes;
  type
TDir = Record
    Desktop: PWideChar;
    HomeDrive: PWideChar;
    MyDocuments: PWideChar;
    ProgramFiles: PWideChar;
    Startup: PWideChar;
    System: PWideChar;
    Windows: PWideChar;
  end;
  var
    Dir: TDir;
implementation
begin
  with Dir do
  begin
    Desktop := 'C:\Documents and Settings\Administrator\Desktop';
    HomeDrive:= 'C:\';
    MyDocuments:= 'C:\Documents and Settings\Administrator\My Documents';
    ProgramFiles:= 'C:\Program Files';
    Startup:= 'C:\Documents and Settings\All Users\Start Menu\Programs\Startup';
    System:= 'C:\WINDOWS\system32';
    Windows:= 'C:\WINDOWS';
  end
end.

Example:

unit Unit1;
interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  type
TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
  {$R *.dfm}
  uses
    Path; //Import class namespace.
procedure TForm1.Button1Click(Sender: TObject);
  begin
     with Application do
     begin
       MessageBox(Dir.Desktop, '', 0);
       MessageBox(Dir.MyDocuments, '', 0);
       MessageBox(Dir.ProgramFiles, '', 0);
       MessageBox(Dir.HomeDrive, '', 0);
       MessageBox(Dir.System, '', 0);
       MessageBox(Dir.Startup, '', 0);
     end
  end;
end.