Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
Hacker.   (2003-05-03 08:37) [0]

Как извлекать все из ресурсов? умею только иконки, BMP-шки и курсоры, но если в иконке несколько иконок, то извлечь не получается.


 
Morfein   (2003-05-03 08:40) [1]

Hacker, ты бы хоть код привёл, которым ты делаешь это великое дело :))


 
Hacker.   (2003-05-05 10:38) [2]

Какое? иконки достаю? если да, то:


function CursorFromRes(Instance: THandle; ResID: PChar): TCursor;
var
Handle: HCursor;
begin
Handle := LoadCursor(Instance, ResID);
if Handle = 0 then ShowMessage("Ресурс не найден");
for Result := 100 to High(TCursor) do { Look for an unassigned cursor index }
if (Screen.Cursors[Result] = Screen.Cursors[crDefault]) then begin
Screen.Cursors[Result] := Handle;
Exit;
end;
DestroyCursor(Handle);
ShowMessage("Некуда создать курсор");
end;

function BitmapFromRes(Module: THandle; ResID: PChar): TBitmap;
var
S: TStream;
begin
Result := TBitmap.Create;
try
if Module <> 0 then begin
if LongRec(ResID).Hi = 0 then
Result.LoadFromResourceID(Module, LongRec(ResID).Lo)
else
Result.LoadFromResourceName(Module, StrPas(ResID));
end
else begin
Result.Handle := LoadBitmap(Module, ResID);
if Result.Handle = 0 then ResourceNotFound(ResID);
end;
except
Result.Free;
Result := nil;
end;
end;

function IconFromRes(Module: THandle; ResID: PChar): TIcon;
begin
Result := TIcon.Create;
Result.Handle := LoadIcon(Module, ResID);
if Result.Handle = 0 then begin
Result.Free;
Result := nil;
end;
end;



 
крот   (2003-05-05 11:23) [3]

ExtractIcon


 
Hacker.   (2003-05-06 09:39) [4]


> крот © (05.05.03 11:23)
> ExtractIcon

Тогда только первая иконка(хоть и так нормально), а как извлекать Звуки строковые константы, Версию, Gif-ы, AVI-шки, и просто всякую фигню.


 
крот   (2003-05-06 11:02) [5]

В DELPHI 5 был пример в папке Demos\Resxplor. Эта программа вытаскивала все ресурсы. А вообще, в MSDN опубликован формат заголовка исполняемого файла (где точно не помню). Там описано как храняться ресурсы.


 
Hacker.   (2003-05-07 12:13) [6]


>
> крот © (06.05.03 11:02)
> В DELPHI 5 был пример в папке Demos\Resxplor. Эта программа
> вытаскивала все ресурсы. А вообще, в MSDN опубликован формат
> заголовка исполняемого файла (где точно не помню). Там описано
>


Точно!!! Какже я сам недодумался, СПАСИБО!!!



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
3-83396
Lefan
2003-05-06 11:37
2003.05.26
TDataModule


3-83408
Jaxtor
2003-05-06 14:00
2003.05.26
Вопрос по проектированию БД


14-83679
-=DeMoH=-
2003-05-04 12:56
2003.05.26
КАК УЗНАТЬ, ЧТО НУЖНО ПРОГЕ?


1-83446
HydraMarat
2003-05-14 18:40
2003.05.26
Оригинальный TList


4-83793
Шоломицкий
2003-03-07 18:53
2003.05.26
Переименование у адление каталога. Запрет!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский