Компиляция L2updater

[Magister]

Все-таки нашел эту библиотеку, выкладываю.

[panaceya]

Скачал этот архив с форума автора. Кинул в дельфю 2010 - куча ошибок. Правил-правил. задобался поставил делфи 7. Ошибка пока что только одна.

[Warning] Misc.pas(33): Return value of function 'DelDir' might be undefined

Где-то тут....

function DelDir(dir: string): Boolean;

implementation

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
if (DirectoryExists(dir)) then begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;
end;

Может кто-то знает как лечить?

[PROGRAMMATOR]

Ну, во-первых это не ошибка, а замечание. Говорит что функция может не вернуть результат. И правильно, ведь Result отдаст если каталог будет найден. В общем ничего серьезного, нужно просто добавить в начало функции Result := 0;

[Taku]

Что-то исходник дюжо карявый или я использую нету версию дельфи?

[PROGRAMMATOR]

Проверял, компилируется на 7-й Делфе.

[Taku]

М... Позвольте вопрос задать - в дельфи новеньки и непойму как работать с изображениями. Неподскажете пажалуста, в какую мне степь нырять?

[Tiger]

В общем спасибо Magister за исходники и компонент ImgBtn, но всё равно возникает следующая ошибка:

[Error] GetFilesThr.pas(94): Undeclared identifier: 'ImgBtn1'
[Error] GetFilesThr.pas(95): Undeclared identifier: 'ImgBtn2'
[Error] GetFilesThr.pas(96): Undeclared identifier: 'ImgBtn5'
[Error] GetFilesThr.pas(101): Undeclared identifier: 'ImgBtn1'
[Error] GetFilesThr.pas(102): Undeclared identifier: 'ImgBtn2'
[Error] GetFilesThr.pas(103): Undeclared identifier: 'ImgBtn5'
[Warning] GetFilesThr.pas(225): Combining signed and unsigned types - widened both operands
[Warning] GetFilesThr.pas(232): Combining signed and unsigned types - widened both operands
[Warning] GetFilesThr.pas(257): Combining signed and unsigned types - widened both operands
[Fatal Error] UnitMain.pas(56): Could not compile used unit 'GetFilesThr.pas'

Может кто-нибудь сталкивался и знает как решить?
Использую 7 версию делфи.

[Xen]

Просто заменить эти не стандартные бутоны на стандартные и "переназначить" события этих "нестандартных" кнопок на новые стандартные.

[Umoney]

Ненадо ничего изменять и править, все отлично работает!

Что надо для этого сделать:

1) Скачать библиотеку которую выложил магистр и разархивировать
2) Запустить 7 делфу. В меню найти Компоненты (Component), далее выбрать установить компонент(Install Component).
3) В открившемся окне в первом окне выбираем наш компонент а собственно фалй ImgBtn.pas
4) Дальше ничего не трогаем и жмем ОК
5) компонент добавлен в библеотеку Делфи

6) Закрываем Делфи, открываем папку с нашим проектом, запускаем файл L2Updater.dpr и Вуаля, все гуд открылось и работает, правим кому что где надо и компилим)

Удачи в начинаниях!

[derefas]

проблема с компиляцией
w1 := WinExec(p2, SW_Restore); на это ругается