Saját filekiterjesztés /.jpg/

Saját filekiterjesztés /.jpg/
2006-11-13T18:43:43+01:00
2006-11-14T11:08:30+01:00
2022-11-02T06:25:40+01:00
hkaressz
Sziasztok!

A következőt kellene megvalósítanom:

- .jpg fájl megnyitása
- a .jpg kiterjesztés lecserélése saját kiterjesztésre /mondjuk: .hhk - ra/.
- az új fájl elmentése.

Sajnos nem elég, ha a kiterjesztést lecserélem, mert egy ingyenes képnézegető is felismeri, hogy igazából
egy .jpg fájlról van szó. Azt szeretném, ha a .hhk kiterjesztésű fájlt csak az én programommal lehetne megnyitni. Addig már eljutottam, hogy a File fejlécében kell valamit átírni, de mit és hogyan?

Tud erre valaki megoldást?

Előre is köszönöm a segítséget!

Üdv: Karesz
Mutasd a teljes hozzászólást!
gondolom open read write close muveletek


procedure TForm1.CopyFile(); var F1, F2: TextFile; Ch: Char; begin if OpenDialog1.Execute then begin AssignFile(F1, OpenDialog1.Filename); Reset(F1); if SaveDialog1.Execute then begin AssignFile(F2, SaveDialog1.Filename); Rewrite(F2); while not Eof(F1) do begin Read(F1, Ch); ; itt valtoztasd meg a ch tartalmat Write(F2, Ch); end; CloseFile(F2); end; CloseFile(F1); end; end; // of procedure TForm1.CopyFile()
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd