function LoadResData;
var
hResource: NativeInt;
begin
//s := 'hello world';
//Result := @s[1];
hResource := LoadResource( hInstance, FindResource(hInstance,PChar(name), PChar(100)));
Result := LockResource(hResource);
FreeResource(hResource);
end;
Ответов: 4628
Рейтинг: 749
|
|||
MAV, достаточно в Share.pas:
|
|||
карма: 26 |
| ||
Голосовали: | MAV |
Редактировалось 7 раз(а), последний 2016-10-14 14:24:17