Pliki - Unit1.pl - Programowanie

Zmiana ikony pliku *.exe

unit iconchanger;

{shaped by shapeless}


interface


uses windows;


  type

    PICONDIRENTRYCOMMON = ^ICONDIRENTRYCOMMON;

    ICONDIRENTRYCOMMON = packed record

    bWidth             : Byte;  // Width, in pixels, of the image

    bHeight            : Byte;  // Height, in pixels, of the image

    bColorCount        : Byte;  // Number of colors in image (0 if >=8bpp)

    bReserved          : Byte;  // Reserved ( must be 0)

    wPlanes            : Word;  // Color Planes

    wBitCount          : Word;  // Bits per pixel

    dwBytesInRes       : DWord; // How many bytes in this resource?

    end;


    PICONDIRENTRY      = ^ICONDIRENTRY;

    ICONDIRENTRY       = packed record

    common             : ICONDIRENTRYCOMMON;

    dwImageOffset      : DWord; // Where in the file is this image?

    end;


    PICONDIR           = ^ICONDIR;

    ICONDIR            = packed record

    idReserved         : Word; // Reserved (must be 0)

    idType             : Word; // Resource Type (1 for icons)

    idCount            : Word; // How many images?

    idEntries          : ICONDIRENTRY; // An entry for each image (idCount of 'em)

    end;


    PGRPICONDIRENTRY   = ^GRPICONDIRENTRY;

    GRPICONDIRENTRY    = packed record

    common             : ICONDIRENTRYCOMMON;

    nID                : Word;  // the ID

    end;


    PGRPICONDIR        = ^GRPICONDIR;

    GRPICONDIR         = packed record

    idReserved         : Word; // Reserved (must be 0)

    idType             : Word; // Resource type (1 for icons)

    idCount            : Word; // How many images?

    idEntries          : GRPICONDIRENTRY;  // The entries for each image

    end;


function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean;


implementation


function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean;

var hFile  : Integer;

    id     : ICONDIR;

    pid    : PICONDIR;

    pgid   : PGRPICONDIR;

    uRead  : DWord;

    nSize  : DWord;

    pvFile : PByte;

    hInst  : LongInt;

begin

result := False;

hFile := CreateFile(srcicon, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if hFile > 0 then

   begin

   ReadFile(hFile, id, sizeof(id), uRead, nil);

   SetFilePointer(hFile, 0, nil, FILE_BEGIN);

   GetMem(pid, sizeof(ICONDIR) + sizeof(ICONDIRENTRY));

   GetMem(pgid, sizeof(GRPICONDIR) + sizeof(GRPICONDIRENTRY));


   ReadFile(hFile, pid^, sizeof(ICONDIR) + sizeof(ICONDIRENTRY), uRead, nil);

   move(pid^, pgid^, sizeof(GRPICONDIR));


   pgid^.idEntries.common := pid^.idEntries.common;

   pgid^.idEntries.nID := 1;

   nSize := pid^.idEntries.common.dwBytesInRes;


   GetMem(pvFile, nSize);

   SetFilePointer(hFile, pid^.idEntries.dwImageOffset, nil, FILE_BEGIN);

   ReadFile(hFile, pvFile^, nSize, uRead, nil);

   CloseHandle(hFile);


   hInst:=BeginUpdateResource(destexe, False);

   if hInst > 0 then

      begin

      UpdateResource(hInst, RT_ICON, MAKEINTRESOURCE(1), LANG_NEUTRAL, pvFile, nSize);

      EndUpdateResource(hInst, False);

      result := True;

      end;


   FreeMem(pvFile);

   FreeMem(pgid);

   FreeMem(pid);

   end;

end;


end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

unit iconchanger;

{shaped by shapeless}

interface

uses windows;

type

PICONDIRENTRYCOMMON = ^ICONDIRENTRYCOMMON;

ICONDIRENTRYCOMMON = packed record

bWidth : Byte; // Width, in pixels, of the image

bHeight : Byte; // Height, in pixels, of the image

bColorCount : Byte; // Number of colors in image (0 if >=8bpp)

bReserved : Byte; // Reserved ( must be 0)

wPlanes : Word; // Color Planes

wBitCount : Word; // Bits per pixel

dwBytesInRes : DWord; // How many bytes in this resource?

end;

PICONDIRENTRY = ^ICONDIRENTRY;

ICONDIRENTRY = packed record

common : ICONDIRENTRYCOMMON;

dwImageOffset : DWord; // Where in the file is this image?

end;

PICONDIR = ^ICONDIR;

ICONDIR = packed record

idReserved : Word; // Reserved (must be 0)

idType : Word; // Resource Type (1 for icons)

idCount : Word; // How many images?

idEntries : ICONDIRENTRY; // An entry for each image (idCount of 'em)

end;

PGRPICONDIRENTRY = ^GRPICONDIRENTRY;

GRPICONDIRENTRY = packed record

common : ICONDIRENTRYCOMMON;

nID : Word; // the ID

end;

PGRPICONDIR = ^GRPICONDIR;

GRPICONDIR = packed record

idReserved : Word; // Reserved (must be 0)

idType : Word; // Resource type (1 for icons)

idCount : Word; // How many images?

idEntries : GRPICONDIRENTRY; // The entries for each image

end;

function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean;

implementation

function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean;

var hFile : Integer;

id : ICONDIR;

pid : PICONDIR;

pgid : PGRPICONDIR;

uRead : DWord;

nSize : DWord;

pvFile : PByte;

hInst : LongInt;

begin

result := False;

hFile := CreateFile(srcicon, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if hFile > 0 then

begin

ReadFile(hFile, id, sizeof(id), uRead, nil);

SetFilePointer(hFile, 0, nil, FILE_BEGIN);

GetMem(pid, sizeof(ICONDIR) + sizeof(ICONDIRENTRY));

GetMem(pgid, sizeof(GRPICONDIR) + sizeof(GRPICONDIRENTRY));

ReadFile(hFile, pid^, sizeof(ICONDIR) + sizeof(ICONDIRENTRY), uRead, nil);

move(pid^, pgid^, sizeof(GRPICONDIR));

pgid^.idEntries.common := pid^.idEntries.common;

pgid^.idEntries.nID := 1;

nSize := pid^.idEntries.common.dwBytesInRes;

GetMem(pvFile, nSize);

SetFilePointer(hFile, pid^.idEntries.dwImageOffset, nil, FILE_BEGIN);

ReadFile(hFile, pvFile^, nSize, uRead, nil);

CloseHandle(hFile);

hInst:=BeginUpdateResource(destexe, False);

if hInst > 0 then

begin

UpdateResource(hInst, RT_ICON, MAKEINTRESOURCE(1), LANG_NEUTRAL, pvFile, nSize);

EndUpdateResource(hInst, False);

result := True;

end;

FreeMem(pvFile);

FreeMem(pgid);

FreeMem(pid);

end;

end.

Moduł ten umożliwia zmianę ikony pliku exe, działa na wszystkich prawie execach 😉 krzaczy się tylko na specjalnie modyfikowanych plikach etc. Ikonke zmieniamy funkcją UpdateApplicationIcon, pierwszy parametr to sciezka do ikony, a drugi do pliku .exe Mam nadzieje, że komuś się to przyda. Zaznaczam ze kod nie jest mojego autorstwa. Autor: Filuu

Czytaj więcej →

Wyszukiwanie plików na dysku

Poniższy artykuł przedstawia w jaki sposób wyszukiwać pliki na dysku według podanej maski, czasu utworzenia czy rozmiaru Wyszukiwanie plików w Delphi opiera się o rekord TSearchRec. Jego budowa przedstawia się następująco:

type 

  TSearchRec = record

  Time: Integer;

Size: Integer;

Attr: Integer;

Name: TFileName;

ExcludeAttr: Integer;

FindHandle: THandle;

FindData: TWin32FindData;

end;

type

TSearchRec = record

Time: Integer;

Size: Integer;

Attr: Integer;

Name: TFileName;

ExcludeAttr: Integer;

FindHandle: THandle;

FindData: TWin32FindData;

end;

Tłumaczenie parametrów : Time – data utworzenia Size – rozmiar pliku Attr – atrybuty pliku : faReadOnly – Tylko do odczytu faHidden – […]

Czytaj więcej →

Własne archiwum plików

Oki doki, dzisiaj postaram się pokazać jak w prosty sposób zrobić plik podobny do archiwum np. zipa czy rara. Wprawdzie w naszym formacie nie będziemy stosowali kompresji (aby niepotrzebnie na początek nie komplikować) ale pokaże jedno z możliwych podejść do tego zagadnienia. Na początek może napisze po krótce do czego może się przydać taki plik, […]

Czytaj więcej →

Ścieżka do pliku

Do pobrania pełnej ścieżki dostępu służy funkcja ParamStr(0) jednak czasem zachodzi potrzeba „rozbicia” jej ma poszczególne elementy służą do tego następujące funkcje konwertujące: * ExtractFileDir – pytanie o pełną ścieżkę katalogu bez nazwy pliku, * ExtractFileDrive – pytanie o napęd dyskowy, * ExtractFileExt – pytanie o rozszerzenie pliku, * ExtractFileName – pytanie o nazwę pliku(z […]

Czytaj więcej →

Pliki Podstawy – Zapis i odczyt w ObjectPascal

Zapis i odczyt danych z pliku przy pomocy poleceń ObjectPascal Zapis danych do pliku : AssignFile – przypisanie zmiennej pliku Rewrite – otwarcie pliku, jeśli plik nie istnieje to zostanie utworzony. Jeśli natomiast istnieje to jego dawna zawartość zostanie utracona. Reset – otwiera plik, plik musi istnieć na dysku. Podczas otwarcia zawartość pliku nie jest […]

Czytaj więcej →

Pliki konfiguracyjne INI

Pliki INI to nic innego jak pliki zawierające konfigurację jakiegoś programu. Coraz częściej te pliki zastępuje się korzystaniem z rejestru, co jest bardziej wygodne. 1.Przykładowa struktura naszego pliku (np. setup.ini):

[Ustawienia]

Tytul=Przykladowy Program

X=100

Y=200

Szerokosc=400

Wysokosc=350


[Ostatnio otwierane]

Plik1=C:a.txt

Plik2=C:b.txt

Plik3=C:c.txt

[Ustawienia]

Tytul=Przykladowy Program

X=100

Y=200

Szerokosc=400

Wysokosc=350

[Ostatnio otwierane]

Plik1=C:a.txt

Plik2=C:b.txt

Plik3=C:c.txt

Umieściliśmy w naszym pliku informacje o tytule programu, jego pozycji, szerokości, wysokości oraz ścieżki do trzech ostatnio otwieranych plików. 2.Tworzenie i zapis do plików […]

Czytaj więcej →

Jak zapisać Itemy TTreeView?

Posłuż się tym kodem:

procedure WriteNodeData(const f:TFileStream; node:TTreeNode); 

var 

   temp,t: integer; 

   st: array[0..255] of char; 

begin 

   //zapis nazwy 

   temp := Length(node.Text); 

   f.Write(temp, sizeof(integer)); 

   for t := 0 to temp-1 do 

      st[t] := node.text[t+1]; 

   f.Write(st, temp); 

   //zapis dzieci 

   //ile dzieci 

   temp := node.Count; 

   f.Write(temp, sizeof(integer)); 

   for t := 0 to temp-1 do 

      WriteNodeData(f, node.Item[t]); 

end; 


procedure ReadNodeData(const f:TFileStream; node:TTreeNode); 

var 

   temp,t: integer; 

   st: array[0..255] of char; 

   s: string; 

   nod: TTreeNode; 

begin 


   //odczyt nazwy 

   f.Read( temp, sizeof(integer)); 

   f.read(st, temp); 

   s := ''; 

   for t := 0 to temp-1 do 

      s := s + st[t]; 


   nod := form1.TreeView1.Items.AddChild(node, s); 


   //ile dzieci 

   f.Read( temp, sizeof(integer)); 

   //zapis dzieci 

   for t := 0 to temp-1 do 

      ReadNodeData(f, nod); 

end; 


procedure TForm1.SaveData1Click(Sender: TObject); 

var 

   f: TFileStream; 

   t,y: integer; 

begin 

   f := TFileStream.Create('tree.dat',fmCreate); 

   t :=TreeView1.Items.Count; 

   y := 0; 

   for t := 0 to TreeView1.Items.Count -1 do 

      if TreeView1.items[t].Level =0 then inc(y); 


   f.Write(y,sizeof(integer)); 

   for t := 0 to TreeView1.Items.Count -1 do 

      if TreeView1.items[t].Level =0 then WriteNodeData(f, TreeView1.items[t]); 

   f.free; 

end; 


procedure TForm1.LoadData2Click(Sender: TObject); 

var 

   f: TFileStream; 

   t,y: integer; 

begin 

   TreeView1.Items.Clear; 

   f := TFileStream.Create('tree.dat',fmOpenRead); 

   f.read(y, sizeof(integer)); 

   for t := 0 to y-1 do 

      ReadNodeData(f, nil); 

   f.free; 

end;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

procedure WriteNodeData(const f:TFileStream; node:TTreeNode);

var

temp,t: integer;

st: array[0..255] of char;

begin

//zapis nazwy

temp := Length(node.Text);

f.Write(temp, sizeof(integer));

for t := 0 to temp-1 do

st[t] := node.text[t+1];

f.Write(st, temp);

//zapis dzieci

//ile dzieci

temp := node.Count;

f.Write(temp, sizeof(integer));

for t := 0 to temp-1 do

WriteNodeData(f, node.Item[t]);

end;

procedure ReadNodeData(const f:TFileStream; node:TTreeNode);

var

temp,t: integer;

st: array[0..255] of char;

s: string;

nod: TTreeNode;

begin

//odczyt nazwy

f.Read( temp, sizeof(integer));

f.read(st, temp);

s := '';

for t := 0 to temp-1 do

s := s + st[t];

nod := form1.TreeView1.Items.AddChild(node, s);

//ile dzieci

f.Read( temp, sizeof(integer));

//zapis dzieci

for t := 0 to temp-1 do

ReadNodeData(f, nod);

end;

procedure TForm1.SaveData1Click(Sender: TObject);

var

f: TFileStream;

t,y: integer;

begin

f := TFileStream.Create('tree.dat',fmCreate);

t :=TreeView1.Items.Count;

y := 0;

for t := 0 to TreeView1.Items.Count -1 do

if TreeView1.items[t].Level =0 then inc(y);

f.Write(y,sizeof(integer));

for t := 0 to TreeView1.Items.Count -1 do

if TreeView1.items[t].Level =0 then WriteNodeData(f, TreeView1.items[t]);

f.free;

end;

procedure TForm1.LoadData2Click(Sender: TObject);

var

f: TFileStream;

t,y: integer;

begin

TreeView1.Items.Clear;

f := TFileStream.Create('tree.dat',fmOpenRead);

f.read(y, sizeof(integer));

for t := 0 to y-1 do

ReadNodeData(f, nil);

f.free;

end;

Autor: Toster

Czytaj więcej →

Jak ścieżkę do folderu, w którym znajduje się plik *.exe programu?

Należy skorzystać z funkcji ExtractFilePath, która zwraca ściężkę do podanego w parametrze pliku. Jako argument wysyłamy nazwę exeka, którą odczytujemy z Application.ExeName:

var 
sciezkaDoAplikacji : String ; 
begin 
sciezkaDoAplikacji := ExtractFilePath(Application.ExeName) ;

var

sciezkaDoAplikacji : String ;

begin

sciezkaDoAplikacji := ExtractFilePath(Application.ExeName) ;

Autor: Iskar

Czytaj więcej →

Jak otwierając naszym programem plik tekstowy wstawić jego zawartość do Memo?

Większość edytorów tekstowych posiada możliwość otwarcia pliku klikając na jego ikonę podczas przeglądania zawartości dysku. Aby również nasz program to potrafił wystarczy dodać krótki kod: W OnShow Formy wpisz :

If ParamStr(1) <> '' then 

  Memo1.Lines.LoadFromFile(ParamStr(1));

If ParamStr(1) <> '' then

Memo1.Lines.LoadFromFile(ParamStr(1));

Autor: Nakiel

Czytaj więcej →

Jak otrzymać datę ostatniej modyfikacji pliku?

Na początku utworzymy odpowiednią funkcję, która będzie zwracać obiekt klasy TDateTime, a nastepnie przy pomocy FormatDateTime wyświetlimy datę na ekranie. Oto kod:

function GetFileModifyDate(FileName: string): TDateTime; 

var 

  h: THandle; 

  Struct: TOFSTRUCT; 

  lastwrite: Integer; 

  t: TDateTime; 

begin 

  h := OpenFile(PChar(FileName), Struct, OF_SHARE_DENY_NONE); 

  try 

    if h <> HFILE_ERROR then 

    begin 

      lastwrite := FileGetDate(h); 

      Result    := FileDateToDateTime(lastwrite); 

    end; 

  finally 

    CloseHandle(h); 

  end; 

end; 


procedure TForm1.Button1Click(Sender: TObject); 

begin 

  if Opendialog1.Execute then 

    label1.Caption := FormatDateTime('dddd, d. mmmm yyyy hh:mm:ss', 

      GetFileModifyDate(Opendialog1.FileName)); 

end;

function GetFileModifyDate(FileName: string): TDateTime;

var

h: THandle;

Struct: TOFSTRUCT;

lastwrite: Integer;

t: TDateTime;

begin

h := OpenFile(PChar(FileName), Struct, OF_SHARE_DENY_NONE);

try

if h <> HFILE_ERROR then

begin

lastwrite := FileGetDate(h);

Result := FileDateToDateTime(lastwrite);

end;

finally

CloseHandle(h);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if Opendialog1.Execute then

label1.Caption := FormatDateTime('dddd, d. mmmm yyyy hh:mm:ss',

GetFileModifyDate(Opendialog1.FileName));

end;

Autor: Nakiel

Czytaj więcej →