[Alloc]

Сообщение от icWasya

А LoadSkin сам писал или ктото другой?

нет, я не автор. Вообще библиотека предназначена для известного инсталлятора Inno Setup в котором используется скриптовый язык точь-в-точь как Delphi. Библиотека просто устанавливает Скин приложению.

Для лучшего понимания я немного расскажу как оно работает..

В сам скрипт, в секцию [Files] добавляют два файла, саму библиотеку и скин.

Код:

[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy

; Add the Visual Style resource contains resources used for skinning,
; you can also use Microsoft Visual Styles (*.msstyles) resources.
Source: Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy

хранится все это в екзешнике инсталлятора
имеет следующие функции:

Код:

[Code_]
// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

вызывается при создании формы и при закрытии

Код:

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Office2007.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Office2007.cjstyles'), '');
  Result := True;
end;

procedure DeinitializeSetup();
begin
  // Hide Window before unloading skin so user does not get
  // a glimpse of an unskinned window before it is closed.
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

Инсталлятор при старте выгружает библиотеку и скин в ТЕМП после чего видимо подключает ее и устанавливает скин... вот и я этого добиваюсь.

Пока что получилось только загружать скин при запуске программы и выгружать при закрытии. При условии, что dll-библиотека лежит в папке с программой ..

Проще говоря, пытаюсь сделать следующее:
1.Dll - библиотека должна хранится в ресурсах программы вместе со Скином.
2.При запуске - распаковывать или загружать в память dll - библиотеку... в силу своего небольшого опыта в программировании я не знаю как лучше сделать...
3.Загружать Скин используя функцию из библиотеки
4.Выгружать из памяти\удалять при закрытии формы.


Я буду очень благодарен если поможете мне осуществить задуманное, ведь очень удобно иметь возможность в любое время сменить внешний вид программы.