Форум: "KOL";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];
Вниз
Использование внутренних ресурсов Найти похожие ветки
← →
MTsv DN (2004-12-27 20:12) [0]Всем привет...
Чувствую вопрос не совсем по KOL"у, но все же думаю кто-нибудь мне поможет...
Как использовать внутренние ресурсу ехе-шника. Как добавить знаю, создать resource.res, подключить его...и в ехе-шнике появятся ресурсы.Но как добраться до них?..
Конкретно, добавил курсор и текстовый файл...Как использовать свой курсор и считать данные из текстовика...
С Уважением MTsv DN
← →
miek © (2004-12-27 20:30) [1]LoadFromResourceID
← →
MTsv DN (2004-12-27 23:24) [2]Не то... LoadFromResourceID только в TBitmap и TIcon... Курсор я может и загружу... А как мне с LoadFromResourceID, текстовый файл надо считать?..
Если я что-то не до понимаю, объясните с приведением элементарного кода...
Спасибо
С уваженимем MTsv DN
← →
z007 (2004-12-28 01:32) [3]
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-28 08:46) [4]Всем Доброго Времени Суток...Лично у меня раннее утро :о)...
По поводу ресурсов, все оказалось гораздо проще...
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
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.052 c
