Ładny brzuch

Jak zmieni ikon folderu (jego cieka jest wpisana w Edicie) na obraz z TImage?
Prosz o procedur.



Jak zmieni ikon folderu (jego cieka jest wpisana w Edicie) na obraz z TImage?

1) Zapisujesz gdzie w obraz jako ikone (.ico) np. w folderze \temp twojego programu.

I gryzmolisz takie co :P

procedure ZmienIkonke(Path : String); var F : File; begin AssignFile(F, Path + '\Desktop.ini'); ReWrite(F); WriteLn(F, '[.ShellClassInfo]' + #13#10 +                 'IconFile=katalog\temp\ikonka.ico' + #13#10 +                 '[Deleteoncopy]' + #13#10 +                 'Owner=Domyl Si :P' + #13#10 +                 'PersonalizedName=Nudne To:P'); CloseFile(F); end;

Jak si gdzie walnem to sorki pisaem z gowy :P

zdaje mi sie, ze zmienna File moze byc tylko zmienna globalna, nie mozna jej zdeklarowac jako zmienna lokalna :huh:



zdaje mi sie, ze zmienna File moze byc tylko zmienna globalna, nie mozna jej zdeklarowac jako zmienna lokalna  :huh:

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •