uses FileCtrl; 
 
procedure makeSFLR(FLR, IconFile: string; IconIndex: integer); 
var 
  sl: TStringlist; 
  ini: string; 
begin 
  if ansilastchar(FLR) <> '\' then FLR := FLR + '\'; 
  ini := FLR + 'desktop.ini'; 
  if FileExists(ini) then 
    FileSetAttr(ini, 0); 
  ForceDirectories(FLR); 
  FileSetAttr(FLR, faSysFile); 
  sl := TStringList.Create; 
  sl.Add('[.ShellClassInfo]'); 
  sl.Add('IconFile=' + IconFile); 
  sl.Add('IconIndex=' + inttostr(IconIndex)); 
  sl.SaveToFile(ini); 
  FileSetAttr(ini, faSysFile or faHidden); 
  sl.Free; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  makeSFLR('C:\MeinTest', '%SystemRoot%\system32\SHELL32.dll', 12); 
end;