Использование внутренних ресурсов

← →
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

Использование внутренних ресурсов Найти похожие ветки