| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Использование внутренних ресурсов
MTsv DN © (2004-12-27 20:12:00)Всем привет...
Чувствую вопрос не совсем по KOL'у, но все же думаю кто-нибудь мне поможет...
Как использовать внутренние ресурсу ехе-шника. Как добавить знаю, создать resource.res, подключить его...и в ехе-шнике появятся ресурсы.Но как добраться до них?..
Конкретно, добавил курсор и текстовый файл...Как использовать свой курсор и считать данные из текстовика...
С Уважением MTsv DN
MTsv DN (2004-12-28 08:46:00) [1]Всем Доброго Времени Суток...Лично у меня раннее утро :о)...
По поводу ресурсов, все оказалось гораздо проще...
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
Strm: PStream;
begin
Strm := NewMemoryStream;
Resource2Stream( Strm, hInstance, PChar( 'TXT' ), RT_RCDATA );
Strm.Position := 0;
repeat
Memo1.Add(Strm.ReadStrZ); //Считывание txt
until Strm.ReadStr = '';
Strm.Free;
ScreenCursor := LoadCursor(hInstance, PChar('ARROW')); //Загрузка указателя
end;
Всем СПАСИБО
С уважением MTsv DN
z007 (2004-12-28 01:32:00) [2]
ResStream:=NewMemoryStream;
StrList1:=NewStrList;
Resource2Stream(ResStream, Hinstance,'ANY_RES_DATA',RT_RCDATA);
StrList1.LoadFromStream(ResStream, false);
ShowMEssage(StrList1.Text);
StrList1.Free;
ResStream.Free;
{не проверял, но в целом оно так}
MTsv DN (2004-12-27 23:24:00) [3]Не то... LoadFromResourceID только в TBitmap и TIcon... Курсор я может и загружу... А как мне с LoadFromResourceID, текстовый файл надо считать?..
Если я что-то не до понимаю, объясните с приведением элементарного кода...
Спасибо
С уваженимем MTsv DN
miek (2004-12-27 20:30:00) [4]LoadFromResourceID
| |
