[saurn]

habib2302, дословно: "Неизвестный идентификатор ImgLoad". Копайте в сторону ботвы.

читать дальше »

Код:

function ImgLoad(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
//загружает изображение в память, сохраняет переданные параметры
//Wnd          - хэндл окна, в котором будет выведено изображение
//FileName     - файл изображения
//Left,Top     - координаты верхнего левого угла вывода изображения (в координатах клиентской области Wnd)
//Width,Height - ширина, высота изображения
//               если Stretch=True, то изображение будет растянуто/сжато в прямоугольной области
//               Rect.Left:=Left;
//               Rect.Top:=Top;
//               Rect.Right:=Left+Width;
//               Rect.Bottom:=Top+Height;
//               если Stretch=False, то параметры Width,Height игнорируются и вычисляются самой ImgLoad, т.е. можно передать 0
//Stretch      - масштабировать изображение или нет
//IsBkg        - если IsBkg=True, изображение будет выведено на фоне формы,
//               поверх него будут отрисованы графические объекты (TLabel, TBitmapImage и т.д.),
//               затем поверх всего будут выведены изображения с флагом IsBkg=False
//возвращаемое значение - указатель на структуру, хранящей изображение и его парметры, приведенный к типу Longint
//изображения будут выведены в той последовательности, в которой вызывается ImgLoad

[innot20]

Здравствуйте, подскажите пожалуйста как сделать backup папки res-mods

[saurn]

innot20

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.


[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}\res-mods; Flags: external overwritereadonly ignoreversion;


[Code]
#define A = (Defined UNICODE) ? "W" : "A"


function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFile{#A}@kernel32.dll stdcall';


procedure IsBackup(const FromDir: String; const ToDir: String);
var
    fileArray: array of String;
    FindFiles: TFindRec;
    i, Len: Integer;
begin
    if not DirExists(FromDir) then Exit;
    fileArray := ['*'];
    Len := GetArrayLength(fileArray) - 1;
    for i := 0 to Len do
    begin
        if FindFirst(FromDir + fileArray[i], FindFiles) then
        try
            repeat
                if not DirExists(ToDir) then CreateDir(ToDir);
                  MoveFile(FromDir + FindFiles.Name, ToDir + FindFiles.Name);
            until not FindNext(FindFiles);
        finally

            FindClose(FindFiles);
        end;
    end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssInstall: IsBackup(ExpandConstant('{app}\res-mods\'), ExpandConstant('{app}\Backup\'));
    end;
end;

[Ivan_009]

Как удалить иконку в левом верхнем углу...

[saurn]

Ivan_009

Код:

WizardForm.BorderStyle := bsDialog; //или BorderIcons := [];

[Ivan_009]

saurn, А чтобы кнопка свернуть и закрыть только осталась...

[Nordek]

Ivan_009, Когда же ты перейдёшь на расширенную версию и воспользуешься Дизайнером диалогов:

[Ivan_009]

Как зделать вот так без использования различных библиотек включая IsPicture2...

[saurn]

Ivan_009, http://forum.oszone.net/post-2074787-1586.html

[diman_21Ru]

innot20 ,Здравствуйте, подскажите пожалуйста как сделать backup папки res-mods , А можно ли кнопку добавить к сохранением папки модов ?