1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.Button1Click(Sender: TObject);
var icon : TIcon;
    hExeFile : cardinal;
    IcoToInsert  : cardinal;
    rec : tsearchrec;
begin
   Icon := TIcon.Create;
   { we need the filesize ( TSearchRec.Size ) }
   if FindFirst (
       pchar (extractfilepath (application.ExeName)+'Res\console.ico'),
       faAnyFile,
       rec
     ) = 0 
   then
   try
    { get Icon }
    Icon.LoadFromFile (extractfilepath (application.ExeName)+'Res\console.ico');
    { get handle of exe to update }
    hExeFile := BeginUpdateResource(pchar(application.ExeName),false);
    if hExeFile <> 0 then
     try        
       // UpdateResource (
       //     hExeFile, RT_STRING, 
       //     pResourceID, LANG_NEUTRAL, 
       //     PWideChar(sBuffer), iDataSize);
      UpdateResource(hExeFile,
                     RT_ICON,
                     pchar(application.ExeName),
                     LANG_NEUTRAL{MAKELANGID(LANG_GERMAN,SUBLANG_GERMAN)},
                     @Icon,
                     rec.size);
     finally
      EndUpdateResource(hExeFile, false);
     end;
   finally
    findClose(rec);
    Icon.Free;
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var ICONFILE : string;
 begin
 if opdlg.execute then
  begin
   ICONFILE := opdlg.FileName;
   if UpdateApplicationIcon (
       pchar (ICONFILE),
       pchar (application.ExeName),
       pchar (application.ExeName){???},
       LANG_NEUTRAL
      ) = FALSE 
    then
      ShowMessage('Das Exe Symbol konnte nicht aktualisiert werden.');
 end;   
end;                    

1:
2:
3:
4:
5:
6:

(*
ICONFILE = Pfad der Icodatei
ID = im Breich (0 .. $FFFF-1) meist beließ ich es bei zero
*)

UpdateApplicationIcon(pchar(ICONFILE),pchar(ParamStr(0)),MAKEINTRESOURCE(ID),LANG_NEUTRAL)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var Handle :THandle;
s :string;
s2 :WideChar;
strPointer :Pointer;
begin
s := 'dfdgght';
strPointer := @s;
s2 := WideChar(strPointer^);

Handle := BeginUpdateResource('Server.exe', false);
UpdateResource(Handle, RT_STRING,MAKEINTRESOURCE(1),1031, @s2,sizeof(WideChar));

EndUpdateResource(Handle, false);
end;