改变文件夹图标

说白修改文件里的隐藏文件desktop.ini
下面是源代码
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
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
iniFile : TStrings ;
begin
CreateDir(''''C:\YourFolder'''') ;
iniFile := TStringList.Create;
with iniFile do
begin
Add(''''[.ShellClassInfo]'''') ;

Add(''''IconFile = '''' GetEnvironmentVariable(''''Windir'''')
''''\system32\SHELL32.DLL'''') ;

Add(''''IconIndex = 38'''') ;

Add(''''InfoTip = This is folder with icon'''') ;
SaveToFile(''''C:\YourFolder\Desktop.ini'''');
end;

SysUtils.FileSetAttr(''''C:\YourFolder'''', SysUtils.faReadOnly) ;
SysUtils.FileSetAttr(''''C:\YourFolder\Desktop.ini'''',
SysUtils.faSysFile or SysUtils.faHidden) ;
iniFile.Free ;
end;

end.

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有