Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c