CreateFileX

[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;

мне уже писал Пепил Феникса в другой теме ну так как там название не совподает с данной темой создаю новую и прошу у вас помощи. Пепел феникса писал

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

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

Как можно возратить хендел не открытого файла а хендел image.(или я опятьчто то непонял?)

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

графический обьект это другое.
что вм нужно?
сохранить картинку в файл?

[StartMis]

вот модуль внем нужно изменить что то что бы картинка бралась не из файла а из компонента image / могите как это сделать

[Altera]

Не, а вообще, зная хендел изображения как записать его в файл зная хендел файла?