Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.023 c
2-1202322604
Амир
2008-02-06 21:30
2008.03.02
время работы алгоритма


2-1202485682
Ksanf
2008-02-08 18:48
2008.03.02
Обход графа


2-1202323373
Efir
2008-02-06 21:42
2008.03.02
Событие исчезновения подсказки


2-1202575958
88Lion88
2008-02-09 19:52
2008.03.02
Обращение к ячеке Excel delphi


15-1201419830
Denis__
2008-01-27 10:43
2008.03.02
WMI SDK