Добрый день! Есть программка, для работы с ресурсами, написанная на Delphi. Мне необходимо переписать ее на язык С++. Помогите кто чем может
Код |
---|
var ResHnd:THandle; ResLoc:THandle; ResSz:LongWord; ResFl:Pointer; buf:String; ... ResLoc := FindResource(hInstance, PAnsiChar('test'), RT_STRING); ResSz := SizeofResource(hInstance, ResLoc); ResHnd := LoadResource(hInstance, ResLoc); ResFl := LockResource(ResHnd); SetLength(buf, ResSz); MoveMemory(ResFl^, buf[1], Length(buf)); buf := 'test'+buf; GetMem(ResFl, Length(buf)); MoveMemory(buf[1], ResFl^, Length(Buffer)); FreeMem(ResFl); |
Изменено: Юрий Стахорский - 04.07.2010 12:54:10