ресурсы

[StartMis]

у меня есть скампилированый exe как можно программно заменить ресурсы на делфи. так сказать обновить ресурсы у exe ?

[Stilet]

Я знаю только одну функцию - WinAPI UpdateResource. Но увы все мои попытки:

var pc:pchar;h:THandle;
begin
 pc:='123';
 h:=BeginUpdateResource('project1.exe',false);
 if h=NULL then RaiseLastWin32Error;
 if UpdateResource(h,RT_STRING,'1',(LANG_RUSSIAN),pc,length(pc)) then RaiseLastWin32Error;
 EndUpdateResource(h,false);
end;

Оказались неудачными.
Если найдешь способ рабочий поделись - тоже интересно

[bitSoft]

http://www.torry.net/pages.php?id=42
http://www.wilsonc.demon.co.uk/d10resourceeditor.htm
Google Search...
Tak?

[Korben5E]

Сообщение от Stilet

Я знаю только одну функцию - WinAPI UpdateResource. Но увы все мои попытки:

function MAKELANGID(p:Word; s:Word): longint;
begin
Result := (s shl 10) or p;
end;



var pc:pchar;h:THandle;
begin
 pc:='123';
 h:=BeginUpdateResource('project1.exe',false);
 if h=NULL then RaiseLastWin32Error;
 if UpdateResource(h,RT_STRING,MakeIntResource('1'),MAKELANGID(LANG_RUSSIAN, SUBLANG_DEFAULT),pc,length(pc)) then 
     EndUpdateResource(h,false)
 else
     RaiseLastWin32Error;
end;

Оказались неудачными.
Если найдешь способ рабочий поделись - тоже интересно

так-же

All data containing strings or text must be in Unicode format; lpData must not point to ANSI data.

[StartMis]

вот нашел библиотеку кто может обьяснить что делает эта функция

function CreateFileX(fileName: PWideChar; write, create: boolean) : dword;
var c1, c2, c3 : dword;
begin
  if write then begin
    c1 := GENERIC_READ or GENERIC_WRITE;
    c2 := 0;
  end else begin
    c1 := GENERIC_READ;
    c2 := FILE_SHARE_READ or FILE_SHARE_WRITE;
  end;
  if create then c3 := CREATE_ALWAYS
  else           c3 := OPEN_EXISTING;
  if GetVersion and $80000000 = 0 then
       result := CreateFileW(fileName,                            c1, c2, nil, c3, 0, 0)
  else result := CreateFileA(pchar(string(wideString(fileName))), c1, c2, nil, c3, 0, 0);
end;

и можно ли файл брался не из файла fileName а например из image?

[Пепел Феникса]

открывает файл.

и можно ли файл брался не из файла fileName а например из image?

а разве image это файл?

[StartMis]

нет не файл просто я не правеьно выразелся. можно ли переделать так что бы данные брались не из файла а из image . вообще непойму что конкретно эта функция делает но нужно что бы данные брались из image и возращались в функци как dword.

[Пепел Феникса]

функция открывает файл и возвращает хендл открытого файла, так яснее?(его потом используем в ReadFile и тд)
это АПИ(CreateFileA/CreateFileW)

вы можете сохранить изображение image в поток/файл.

[StartMis]

я вообще не вьязжаю можно какнибудь это разрулить под мои нужды (можно пример) буду вам очень благодарен

[Пепел Феникса]

это открытие файла, к названию темы отношения не имеет.
(нужно чтоб читать/писать файл(и не только файл, но и например пайпы или дисковые томы)).
она используется например у THandleStream(и его потомка TFileStream)