Delphi - Resources - Piero Tofy.it

Forum - Delphi - Resources

formyvale (Normal User)
Rookie

Messaggi: 28
Iscritto: 19/11/2010

Postato alle 14:15
Sabato, 30/04/2011

Come si lavora in delphi con le resources? x esempio modificare stringhe di un'altro exe fatto in delphi..oppure l'icona?

grazie!

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 15:37
Sabato, 30/04/2011

per il cambio dell'icona ti rimando a http://www.pierotofy.it/pages/extras/forum/171/1024190-%5B ... dove ho già risposto, per le stringhe se prendi spunto dal cambio dell'icona credo che dovresti riuscirci, avevo fatto qualcosa un po' di tempo fa .. se trovo qualcosa lo posto

Ibis redibis non morieris in bello

formyvale (Normal User)
Rookie

Messaggi: 28
Iscritto: 19/11/2010

Postato alle 17:00
Sabato, 30/04/2011

Non sono riuscito a capire. Il programma non cambia icona ad un'altro exe sempre fatto in delphi.

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 19:49
Sabato, 30/04/2011

il programmino è solo un esempio, cambia l'icona di qualsiasi file exe sia che sia fatto in delphi che in qualsiasi altro linguaggio

Ibis redibis non morieris in bello

formyvale (Normal User)
Rookie

Messaggi: 28
Iscritto: 19/11/2010

Postato alle 1:38
Domenica, 01/05/2011

Allora sono riuscito a trovare un esempio googlando ancora...
X ki farà una ricerca su google e troverà questo topic ecco la soluzione..

Fate un programma e chiamatelo Server(ma nn è un server) e mettete questo code:

Codice sorgente - presumibilmente Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Type TServerSettings = Record
        szIpAddress             :String[255];
 end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Function ReadResourceFile(var ServerSettings:TServerSettings):Boolean;
Var
 hResInfoBlock  :Longword;
 hResource                :Longword;
begin
 hResInfoBlock := FindResource(hInstance, 'MYSETTINGS', RT_RCDATA);
 if hResInfoBlock <> 0 then
  begin
   hResource := LoadResource(hInstance, hResInfoBlock);
   if hResource <> 0 then
    begin
      CopyMemory(@ServerSettings,LockResource(hResource),SizeOf(TServerSettings));
    end;
  end;
end;
var
 ServerSettings :TServerSettings;
begin
ReadResourceFile(ServerSettings);
Memo1.Text:='IP:'+ServerSettings.szIpAddress;
end;
 
end.

invece x l'edit questo:

Codice sorgente - presumibilmente Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type TServerSettings = Record
        szIpAddress             :String[255];
end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
Function MakeLangID(P, S: Word): Integer;
 Begin
  Result := (S shl 10) or P;
 End;
 
function WriteToResourceFile(ServerSettings:TServerSettings):Boolean;
Var
        hResource :Longword;
Begin
  Result := False;
 
  hResource := BeginUpdateResource('Server.exe',False);
 if hResource <> INVALID_HANDLE_VALUE then
  begin
  if  UpdateResource(hResource, RT_RCDATA, 'MYSETTINGS', MakeLangID(LANG_NEUTRAL, SUBLANG_DEFAULT), @ServerSettings, SizeOf(TServerSettings)) then
  Result := True;
                EndUpdateResource(hResource, False);
  end;
end;
Var
 ServerSettings :TServerSettings;
begin
FillChar(ServerSettings,SizeOf(TServerSettings),#0);
  ServerSettings.szIpAddress  := Edit1.text;
  if WriteToResourceFile(ServerSettings) = True then ShowMessage('Ip modificato con successo.')
  else ShowMessage('Impossibile modificare l''ip.');
  Halt(0);
end;
 
end.