| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с ресурсами... [D6, D7, Win95/98, WinXP]

Юрий Ж. ©   (2003-10-01 16:02:00) 

Всем здрасти!
Есть ли у кого-нибудь процедуры(а скорее функции) или FAQ для получения, обновления, добавления и т.д. ресурсов из файла.
Что-то типа:
function GetStrResource(FileName,ResName: String): string;

Заранее благодарен!

---

Nick Denry   (2003-10-04 22:57:00) [1]

Сорри, что задержал:

Примерно1:

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, AppEvnts, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
UpdateFile:Hfile;

vir : array of Char;
mem : cardinal;
tmp: pointer;

resfile,myfile:hfile;
str:ofstruct;
wd,wdd:dword;
result: cardinal;
i:integer;

{f : file of pointer;
m : array of pointer;}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
{vir := nil;}

{mem:=GlobalAlloc(GMEM_FIXED,463872);

tmp:=GlobalLock(mem);
button1.Caption:=inttostr(GlobalSize(mem));
if mem=0 then ShowMessage("GlobalAlloc error") else showmessage("GlobalAlloc done");}

{AssignFile(F, "runs.exe");
Reset(F);
SetLength(m, FileSize(F));
wd:=FileSize(F);
BlockRead(F, m[0],wd );
CloseFile(F); }

{data:=vir;}
{AssignFile(f,"runs.exe");
Reset(f);
Seek(f,0);
BlockRead(f,tmp,512);
closefile(f); }

{wd:=463872;
wdd:=0;
Resfile:=OpenFile("Runs.exe",str,of_read);
Wd:=GetFileSize(resfile,nil);
Form1.Caption:=IntToStr(wd);
ReadFile(resfile,tmp^,wd,wdd,nil);

MyFile:=CreateFile("1.txt",GENERIC_WRITE ,FILE_SHARE_WRITE,nil,
CREATE_Always,FILE_ATTRIBUTE_NORMAL,0);
WriteFile(MyFile,tmp^,wd,wdd,nil);}
OpenDialog1.Execute;
If OpenDialog1.FileName<>"" then begin

UpdateFile:=BeginUpdateResource(PCHAR(OpenDialog1.fileName),false);
ShowMessage("UpdateFile");
UpdateResource(UpdateFile,RT_RCDATA,PChar(Edit1.Text),0,nil,0);
EndUpdateResource(UpdateFile,false);
ShowMessage("UpdateResource");
end
else ShowMessage("NofileToDo");

{if res=false then showmessage("res ok") else begin showmessage("res fail");
ShowMessage(IntToStr(GetLastError));
end;}

{GlobalUnlock(mem);
result:=GlobalFree(mem);
if result=0 then showmessage("all ok") else messagebeep(mb_iconhand);}

end;

end.

Много лишнего, но есть над чем подумать.

Спрашивай.

---

Nick Denry   (2003-10-04 13:40:00) [2]

Вечером часиков в 7 по москве сегодня.

---

Юрий Ж.   (2003-10-03 20:39:00) [3]

Удалено модератором
Примечание: Offtopic

---

Юрий Ж.   (2003-10-03 01:43:00) [4]

А можно конкретнее(примерчик бы я то я в ресурсах полный 0)...

---

Nick Denry   (2003-10-01 17:37:00) [5]

BeginUpdateResource
UpdateREsource
EndUpdateResource

далее F1>Win32... or MSDN & RTFM

---

clickmaker   (2003-10-01 17:35:00) [6]

LoadString, FindResource, LoadResource, UpdateResource

---

Наверх