Форум: "WinAPI";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
ВнизРесурсы Найти похожие ветки
← →
}|{yk (2003-11-03 16:40) [0]Никто не сохранял настройки проги в самой проге (в ресурсах)?
UpdateResource,LockResource etc?
Если пробовал, киньте исходник, плз
← →
Nick Denry (2003-11-03 18:44) [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.
← →
}|{yk (2003-11-03 18:50) [2]Что это за константа такая 463872, не подскажите?
← →
Nick Denry (2003-11-03 18:53) [3]Wd:=GetFileSize(resfile,nil); и 463872 - одно и то же - размер записываемого файла...
← →
Suntechnic (2003-11-03 20:30) [4]Да в "самой проге" несколько проблематично будет. Выдержка из MSDN
pFileName
[in] Pointer to a null-terminated string that specifies the executable file in which to update resources. An application must be able to obtain write access to this file; it cannot be currently executing.
← →
}|{yk (2003-11-04 12:25) [5]Т.е. программа не может писать сама в себя? А в dll можно ресурсы записывать?
← →
Игорь Шевченко (2003-11-04 13:09) [6]Если DLL не загружена, то можно, иначе нельзя.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c