Форум: "Начинающим";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];

Вниз

ExtractRes   Найти похожие ветки 

← →
Res   (2008-05-16 20:52) [0]

Здравствуйте. Подскажите пожалуйста, как сделать так, чтобы функция вернула ресурс.

function ExtractRes(ResType, ResName: string): string;
var
 Htemp,HResInfo,HGlobal: THandle;
 Ptr: Pointer; Size: Longint;
begin
 HResInfo := FindResource(Htemp, PAnsiChar(ResName), PAnsiChar(ResType));
 if HResInfo = 0 then exit;
 HGlobal := LoadResource(Htemp, HResInfo);
 if HGlobal = 0 then exit;
 ptr:=LockResource(HGlobal);
 size:=SizeOfResource(HTemp, HResInfo);

end;


---

← →
KilkennyCat ©   (2008-05-17 04:11) [1]

ExtractRes := ....
или
result := ...

---

← →
Res   (2008-05-17 13:43) [2]

Ну это понятно, ток я незнаю как вернуть строковую...

---

← →
guav ©   (2008-05-17 13:59) [3]

SetString(Result, ptr, size);

Warning: не будет работать когда Delphi станет юникодным.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.055 c