пятница, 9 мая 2008 г.

also crochet directory link linkpartners.com pattern please suggest

As in Delphi to change an icon at a directory it is usual, for change of a kind of folders in the Conductor the file desktop.ini is used also crochet directory link linkpartners.com pattern please suggest. At first it is necessary to create file Desktop.ini and to place in that directory, which icon we wish to change. 43000000000616089 click clickserve.uk.dartsearch.net lid link In the program for it it is possible to take advantage of class TIniFile and to transfer in it a way of a directory. Now it is necessary for us to write down in .ini a file of pair =. In Desktop.ini these pairs look as follows (also crochet directory link linkpartners.com pattern please suggest the most important, it to specify an icon and its index):

[.ShellCLassInfo]
IconFile=C:LocationofFolder.ico
IconIndex=0
InfoTip=Delphi is the coolest IDE ever!

Value IconFile is a way to .dll, .ico, or .exe. In Delphi it looks so 43000000000616089 click clickserve.uk.dartsearch.net lid link:

with iniFile do begin /43000000000616089 click clickserve.uk.dartsearch.net lid link/ Next lines change icon WriteString ('.ShellClassInfo ', ' IconFile ', editIconPath. Text); WriteString ('.ShellClassInfo ', ' IconIndex ', editIconIndex. Text); WriteString ('.ShellClassInfo ', ' InfoTip ', ' Use Delphi because it rocks! '); UpdateFile; end; Now, when file Desktop.ini is created, it is necessary to change attributes of a folder and to add a system flag. That the icon was displayed correctly, it is desirable to establish  system also crochet directory link linkpartners.com pattern please suggest both for a folder, and for its parent. For installation of attributes we shall take advantage of function SetFileAttribue ():

// It also crochet directory link 43000000000616089 click clickserve.uk.dartsearch.net lid link linkpartners.com pattern please suggest Is established system attributes for a folder and its parent SetFileAttributes (PChar (edFolderPath. Text), FILE_ATTRIBUTE_SYSTEM); if Length (edFolderPath. Text)> 3 then // if a directory not root... begin // function LastChar returns an index of last ocurrence of a symbol // at line. This way allows to receive quickly a way parental // директориии if, certainly, the directory is not root on a disk.. tempDir: = Copy (edFolderPath. Text, 1, LastChar (edFolderPath. Text, ")-1); SetFileAttributes (PChar (tempDir), FILE_ATTRIBUTE_SYSTEM); end; Now also crochet directory link linkpartners.com pattern please suggest it is possible to open the Conductor and to look in the left panel on значёк directories 43000000000616089 click clickserve.uk.dartsearch.net lid link.

Комментариев нет: