1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

//Prozedur: Desktop.ini anlegen --> Änderungen speichern
procedure TForm1.SpeedButton4Click(Sender: TObject);
var
  tmpINI: TIniFile;
begin
if DirectoryExists(sUsedDirectory) then begin

tmpINI:= TIniFile.Create(sUsedDirectory+'Desktop.ini');
try
  with tmpINI do begin
    if s_NewIconFile<>'' then begin
      WriteString('.ShellClassInfo','IconFile',s_NewIconFile);
      WriteInteger('.ShellClassInfo','IconIndex',IconIndex);
    end;
    if Edit2.Text<>'' then
      WriteString('.ShellClassInfo','InfoTip',Edit2.Text);

    //WriteInteger('.ShellClassInfo','ConfirmFileOp',0);
    WriteString('ExtShellFolderViews','Default','{BE098140-A513-11D0-A3A4-00C04FD706EC}');
    if s_NewBackground<>'' then begin
      WriteString('{BE098140-A513-11D0-A3A4-00C04FD706EC}','IconArea_Image',s_NewBackground);
    end;
    WriteInteger('{BE098140-A513-11D0-A3A4-00C04FD706EC}','Attributes',1);
    if ColStr<>'' then
      WriteString('{BE098140-A513-11D0-A3A4-00C04FD706EC}','IconArea_Text',ColStr);
  end;
finally
tmpINI.UpdateFile;
    if Length(PChar(Edit1.text + 'Desktop.ini')) > 3 then
    begin
      SetFileAttributes(PChar(Copy( PChar(sUsedDirectory + 'Desktop.ini'), 1,LastChar(sUsedDirectory + 'Desktop.ini', '\')-1)), FILE_ATTRIBUTE_SYSTEM);
  end;
  tmpINI.Free;
  SetFileAttributes(PChar(sUsedDirectory + 'Desktop.ini'),FILE_ATTRIBUTE_HIDDEN);

end;
if FileExists(sUsedDirectory+'Desktop.ini') then
  ShowMessageDlgEx('Der Speichervorgang war erfolgreich!','Speichern erfolgreich',101,MB_OK)
else
  ShowMessageDlgEx('Speichern war leider nicht erfolgreich!'+sLineBreak+'Bitte versuchen Sie es noch einmal!','Speichern fehlgeschlagen',101,MB_OK);
end
else
ShowMessageDlgEx('Das angegebene Verzeichnis existiert nicht!','ungültiges Verzeichnis',101,mb_ok);
end;