Панель быстрого запуска, буфер обмена, путь до ресурсов и Ini

var
CFileName: array[0..MAX_PATH] of Char;
//...
procedure TForm2.WmDropFiles(var Msg: TWMDropFiles);
var
 iconindex: word;
 icon: hicon;
    begin
      F:=CfileName; 
      Label1.Caption:=ExtractFileName(F);
      Msg.Result:=0;
    DragFinish(Msg.Drop);
  iconindex:=1;
  Image1.Picture.Icon.Handle:= ExtractAssociatedIcon(HInstance, Pchar(F), iconIndex);
  DrawIcon(Canvas.Handle,10,10,icon);
  end;

uses iniFiles;
 
var Ini:TIniFile;
      L:TStringList;
 
 
L:=TStringList.Create;
try
  ini:=TIniFile.Create(extractFilePath(Paramstr(0)) + 'files.ini');
  ini.ReadSectionValues('Files',L);
  showMessage(l.values['File1']); /// C:\zzxx.exe
finally
  ini.free;
  l.free;
end;

ini.WriteSectionValues('Files',L);

begin
ini.WriteSectionValues('Files',L);
end;

TCustomIniFile = class(TObject)
  private
    FFileName: string;
  protected
    const SectionNameSeparator: string = '\';
    procedure InternalReadSections(const Section: string; Strings: TStrings;
      SubSectionNamesOnly, Recurse: Boolean); virtual;
  public
    constructor Create(const FileName: string);
    function SectionExists(const Section: string): Boolean;
    function ReadString(const Section, Ident, Default: string): string; virtual; abstract;
    procedure WriteString(const Section, Ident, Value: String); virtual; abstract;
    function ReadInteger(const Section, Ident: string; Default: Longint): Longint; virtual;
    procedure WriteInteger(const Section, Ident: string; Value: Longint); virtual;
    function ReadBool(const Section, Ident: string; Default: Boolean): Boolean; virtual;
    procedure WriteBool(const Section, Ident: string; Value: Boolean); virtual;
    function ReadBinaryStream(const Section, Name: string; Value: TStream): Integer; virtual;
    function ReadDate(const Section, Name: string; Default: TDateTime): TDateTime; virtual;
    function ReadDateTime(const Section, Name: string; Default: TDateTime): TDateTime; virtual;
    function ReadFloat(const Section, Name: string; Default: Double): Double; virtual;
    function ReadTime(const Section, Name: string; Default: TDateTime): TDateTime; virtual;
    procedure WriteBinaryStream(const Section, Name: string; Value: TStream); virtual;
    procedure WriteDate(const Section, Name: string; Value: TDateTime); virtual;
    procedure WriteDateTime(const Section, Name: string; Value: TDateTime); virtual;
    procedure WriteFloat(const Section, Name: string; Value: Double); virtual;
    procedure WriteTime(const Section, Name: string; Value: TDateTime); virtual;
    procedure ReadSection(const Section: string; Strings: TStrings); virtual; abstract;
    procedure ReadSections(Strings: TStrings); overload; virtual; abstract;
    procedure ReadSections(const Section: string; Strings: TStrings); overload; virtual;
    procedure ReadSubSections(const Section: string; Strings: TStrings; Recurse: Boolean = False); virtual;
    procedure ReadSectionValues(const Section: string; Strings: TStrings); virtual; abstract;
    procedure EraseSection(const Section: string); virtual; abstract;
    procedure DeleteKey(const Section, Ident: String); virtual; abstract;
    procedure UpdateFile; virtual; abstract;
    function ValueExists(const Section, Ident: string): Boolean; virtual;
    property FileName: string read FFileName;
  end;

 L:=TStringList.Create;
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
  ini.ReadSectionValues('Files',L);
  for i := 0 to L.Count-1 do
    l[i]:=l.ValueFromIndex[i];
  ini.free;
  L.Free;
 
  L:=TStringList.Create;
  L.Add('nnn.txt');
  L.Add('mmm.eee');
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
  ini.EraseSection('Files');
  for i := 0 to L.Count-1 do
    ini.writestring('Files','File'+Inttostr(i+1), l[i]);
  ini.free;
  L.Free;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ShellApi, Vcl.StdCtrls, Vcl.ExtCtrls, iniFiles;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure OnCreate(Sender: TObject);
    procedure OnClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure WmDropFiles( var Msg: TWMDropFiles); message WM_DropFiles;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  CFileName: array[0..MAX_PATH] of Char; // Переменная с именем перетаскиваемого файла
   F: string;     //переменная для работы с ляблой
   i:integer;     //переменная для работы инишника
  Ini:TIniFile;  //подключаем создание инишника
  L:TStringList; // переменная строк
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.OnClose(Sender: TObject; var Action: TCloseAction); //закрытие формы
begin
 L:=TStringList.Create;   //создаем лист
  L.Add(CFileName);      // добавляем строку о пути к файлу, для которого выводим ярлык
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');  //создаем тело, положение и имя инишника
  ini.EraseSection('Files');                         //Удаляем заглавие из инишника
  for i := 0 to L.Count-1 do                       //создаем строку под данные
    ini.writestring('Files','File'+Inttostr(i+1), l[i]);  //записываем строку с путем до файла
  ini.free;                                                       //очищаем
  L.Free;                                                      
end;
 
procedure TForm1.OnCreate(Sender: TObject);         //создание формы
begin
 
L:=TStringList.Create;                    //аналогично верхнему блоку
 ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');  
  ini.ReadSectionValues('Files',L);       //записываем из секции Files строку 
  for i := 0 to L.Count-1 do
    l[i]:=l.ValueFromIndex[i];
  ini.free;                                   //освобождаем процесс
  L.Free;
 DragAcceptFiles(handle, true); // Включаем режим Drag-and-drop
end;
 
procedure TForm1.WmDropFiles(var Msg: TWMDropFiles);      //процедура драг/дроп на форму
var
  icon: hicon; //Иконка файла
  iconindex: word;
begin
    if DragQueryFile(Msg.Drop,0, CfileName, Max_Path)> 0 then //Если перетащили файл
    begin
      F:=CfileName; // Конвертируем Array of Char -> String
      Label1.Caption:=ExtractFileName(F); // Получаем имя файла из его полного пути
      iconindex:=1;
  Image1.Picture.Icon.Handle:= ExtractAssociatedIcon(HInstance, Pchar(F), iconIndex);  //получаем путь до файла
  DrawIcon(Canvas.Handle,10,10,icon); //Рисуем картинку
  DragFinish(Msg.Drop); //Говорим что приняли файл
   end
   else                     //если файл не перетащили, то
  begin 
      F:=CfileName; // Конвертируем Array of Char -> String
      Label1.Caption:=ExtractFileName(F); // Получаем имя файла из его полного пути
      iconindex:=1;
  Image1.Picture.Icon.Handle:= ExtractAssociatedIcon(HInstance, Pchar(F), iconIndex);
  DrawIcon(Canvas.Handle,10,10,icon); //Рисуем картинку
  end;
 
 
end;
 
end.

function ImageFromFile(const AFileName: string): boolean; // true в случае успеха