[Johny777]

Ivan_009,
её нужно отключать во время работы той, что отвечает за эффекты
в этом сообщении El Sanchez в первом "читать далее" показано как это сделать (отключить стиль)
http://forum.oszone.net/post-1904450.html#post1904450

[ASheff]

Доброго времени суток всем, помогите с проблемой:

---------------------------
Ошибка
---------------------------
Runtime Error (at -1:0):


Cannot Import dll:<utf8>C:\Users\usrname\AppData\Local\Temp\is-8C3H3.tmp\mydll.dll.
---------------------------
ОК
---------------------------





в скрипте:

--------------------------------------------------
[Files]
Source: "D:\Projects\mycomp\prod\Utils\mydll\Release\mydll.dll"; DestDir: "{app}"; Flags: ignoreversion

[code]
function somefunc(str: string): Integer; external 'somefunc@files:mydll.dll stdcall';
--------------------------------------------------






Mydll написана как unicode с++ проект, экспорт ф-ции происходит вот так:

Код:

__declspec(dllexport) int somefunc(LPCTSTR szInstLocation);

В чем может быть проблема? Пол дня уже бьюсь..

[Ivan_009]

Johny777 можно поподробней ато все равно эфекты почемуто глючат

[Serega]

В чем может быть проблема? Пол дня уже бьюсь.. »

LPCTSTR = PAnsiChar;
Одним словом, надо так:

Код:

[Files]
Source: "D:\Projects\mycomp\prod\Utils\mydll\Release\mydll.dll"; Flags: dontcopy

[Code]
function somefunc(str: PAnsiChar): Integer; external 'somefunc@files:mydll.dll stdcall';

[El Sanchez]

все равно эфекты почемуто глючат »

Ivan_009, отключайте стиль, прежде чем начнутся эффекты. Код покажите.

[Ivan_009]

Вот

[El Sanchez]

Ivan_009, ок. В процедуре CurPageChanged2 перед InitializeSlideShow отключаете стиль, а после DeinitializeSlideShow включаете назад.

Код:

procedure CurPageChanged2(CurPageID: Integer);
begin
 If CurPageID=wpInstalling then
  begin
   SetWindowLong(WizardForm.Handle, (-20), GetWindowLong(WizardForm.Handle, (-20)) xor $2000000);
   InitializeSlideShow(WizardForm.Handle, 0, 100, scaleX(778), ScaleY(358), {#Animation}, {#Stretch});
   ...
   if CurPageID=wpFinished then
  begin
   ...
   DeinitializeSlideShow;
   SetWindowLong(WizardForm.Handle, (-20), GetWindowLong(WizardForm.Handle, (-20)) or $2000000);
   ...
end;

[LinkOFF]

Лександер,

if not FileExist('твой файл') then if MsgBox('Файл не найден, прервать установку?',mbError, MB_OKCANCEL) = IDOK then // тут прерываем установку, если нажата кнопка ОК »

[Gnom_aka_Lexander]

LinkOFF, ну так. Это нужно писать туда, где ты распаковываешь архивы. теоретически можно вообще на запуске проверить их все на наличие, и если хоть одного не хватает - можно смело полностью отменять установку.

[ASheff]

LPCTSTR = PAnsiChar; Одним словом, надо так: Код: [Files] Source: "D:\Projects\mycomp\prod\Utils\mydll\Release\mydll.dll"; Flags: dontcopy [code] function somefunc(str: PAnsiChar): Integer; external 'somefunc@files:mydll.dll stdcall';

В общем докладываю: поменял на PAnsiChar вместо string - ничего не изменилось.. Может это тоже внесло конечно свою лепту..

Далее начал ковырять свою dll: вместо _declspec(dllexport) сделал экспорт через .def-файл - всё заработало!
в Depends пропал знак вопроса перед именем моей экспортируемой функции, не силен, не знаю, с чем это связано..

Как то так