안녕하세여..고수님들께 질문을..
제가 300개정도의 텍스트 화일을 리소스로 묶었습니다..
procedure ~~~~~
var
HResInfo : THandle;
MemHandle : THandle;
Test : String;
begin
ABOUT.Memo1.Clear;
HResInfo := FindResource(HInstance, 'Main_Const' , 'TEXT');
MemHandle := LoadResource(HInstance, HResInfo);
ABOUT.Memo1.Text := PChar(LockResource(MemHandle));
FreeResource(MemHandle);
}
end;
이렇게 테스트는 해보았는데..쩝..이것을 이제 하나씩 텍스트화일로
저장을 할려면 어케 해야되는지 그냥 스트림으로 하니까 에러가..쩝..사실
어케 쓰는지도 몰르는데 그냥 해서..아시는 분들계시면 알려주세여..
그럼 수고하세여..
|