Текущий архив: 2008.03.02;
Скачать: CL | DM;

Вниз

Как сохранить текстовый ресурс?   Найти похожие ветки 

← →
new1   (2007-04-02 20:05) [0]

Здравствуйте мастера. Такая собственно задача, нужно в ресурс *.ехе файла добавить текстовый ресурс.
В обшем, много справок почитал ничего существенного не нашел, толко как выдернуть ресурс и все,
подскажите в каких хелпах поискать, или посоветуйте код.

---

← →
Чапаев ©   (2007-04-02 23:25) [1]

Такое когда-то писал:
program Project1;

{$APPTYPE CONSOLE}

uses
 Windows,
 SysUtils;

type
 TStrIndex=0..15;
 TStrArr=array [TStrIndex] of PWideChar;

procedure StringsToResource(Strings:TStrArr;out Result:WideString;out Len:Integer);
var
 I:TStrIndex;
begin
 Result:="";
 Len:=0;
 for I := Low(TStrIndex) to High(TStrIndex) do begin
   if Strings[I]<>nil
     then begin
       Result:=Result+WideChar(Length(Strings[I]))+Strings[I];
       Len:=Len+Length(Strings[I]);
     end
     else begin
       Result:=Result+WideChar(0);
       Len:=Len+2;
     end;
   Len:=Len+2;
 end;
end;

var
 Lib:THandle;
 MyStr:WideString;
 Len:Integer;
 Strings:TStrArr;

begin
 FillChar(Strings,SizeOf(Strings),0);
 Strings[0]:="qwe";
 Strings[1]:="asd";
 StringsToResource(Strings,MyStr,Len);
 Lib:=BeginUpdateResource(PChar(ExtractFilePath(ParamStr(0))+"lib.dll"),True);
 UpdateResource(Lib,RT_STRING,MAKEINTRESOURCE(1),0,@MyStr[1],Len);
 EndUpdateResource(Lib,False);
end.


---

Страницы: 1 вся ветка

Текущий архив: 2008.03.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.02 c