Возникла проблема с dll

[Alexandr17]

Вот код DLL

library ColorsToCodsColors;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Windows,
  Dialogs,
  Graphics;

{$R *.res}

Type TCMYK = record
  C, M, Y, K: Byte;
end;
Type THLS = record
  H, L, S : byte;
end;

function max(P1, P2, P3: double): Double;
begin
  if (P1 > P2) then
  begin
    if (P1 > P3) then
    begin
      Result := P1;
    end
    else
    begin
      Result := P3;
    end;
  end
  else if P2 > P3 then
  begin
    result := P2;
  end
  else
    result := P3;
end;

function min(P1, P2, P3: double): Double;
begin
  if (P1 < P2) then
  begin
    if (P1 < P3) then
    begin
      Result := P1;
    end
    else
    begin
      Result := P3;
    end;
  end
  else if P2 < P3 then
  begin
    result := P2;
  end
  else
    result := P3;
end;

function RGBToHLS(R: byte; G: byte; B: byte): THLS;
var
  LR, LG, LB, LH, LL, LS, LMin, LMax: double;
  LHLS: THLS;
  i: Integer;
begin
  LR := R / 256;
  LG := G / 256;
  LB := B / 256;
  LMin := min(LR, LG, LB);
  LMax := max(LR, LG, LB);
  LL := (LMax + LMin) / 2;
  if LMin = LMax then
  begin
    LH := 0;
    LS := 0;
    Result.H := round(LH * 256);
    Result.L := round(LL * 256);
    Result.S := round(LS * 256);
    exit;
  end;
  if LL < 0.5 then
    LS := (LMax - LMin) / (LMax + LMin);
  if LL >= 0.5 then
    LS := (LMax - LMin) / (2.0 - LMax - LMin);
  if LR = LMax then
    LH := (LG - LB) / (LMax - LMin);
  if LG = LMax then
    LH := 2.0 + (LB - LR) / (LMax - LMin);
  if LB = LMax then
    LH := 4.0 + (LR - LG) / (LMax - LMin);
  Result.H := round(LH * 42.6);
  Result.L := round(LL * 256);
  Result.S := round(LS * 256);
end;

Function RGBTOCMYK(R: byte; G: byte; B: byte):TCMYK;
begin
  With Result do begin
    C := 255 - R;
    M := 255 - G;
    Y := 255 - B;
    if C < M then
      K := C
    else
      K := M;
    if Y < K then
      K := Y;
    if k > 0 then
    begin
      c := c - k;
      m := m - k;
      y := y - k;
    end;
  end;
end;

Function ColorToHex(Color:TColor):String;
Begin
  Result :=
      IntToHex(GetRValue(Color), 2) +
      IntToHex(GetGValue(Color), 2) +
      IntToHex(GetBValue(Color), 2) ;
end;

function GetXORColor(const aColor: TColor): TColor;
Type TRec=
   packed record
   r, g, b, dummy: byte
 end;
begin
 Result := aColor;
 with TRec((@Result)^) do
 begin
   if r > 127 then r := 0 else r := 255;
   if g > 127 then g := 0 else g := 255;
   if b > 127 then b := 0 else b := 255;
 end;
end;

function DesktopColor(const x,y: integer): TColor;
var
   c:TCanvas;
begin
   c:= TCanvas.Create;
   c.Handle:= GetWindowDC(GetDesktopWindow);
   result:= GetPixel(c.Handle, x, y);
   c.Free;
end;

function GetKAMColor(Color:TColor):String; stdcall;
begin
  Result :='[$'+
      IntToHex(GetBValue(Color), 2) +
      IntToHex(GetGValue(Color), 2) +
      IntToHex(GetRValue(Color), 2)+']';
end;
exports
  max, min, RGBToHLS, RGBTOCMYK, ColorToHex, GetXORColor,
  DesktopColor, GetKAMColor;
begin
end.

А вот проблемы
Build
[Warning] ColorsToCodsColors.dpr(101): Variable 'LH' might not have been initialized
[Warning] ColorsToCodsColors.dpr(103): Variable 'LS' might not have been initialized
[Hint] ColorsToCodsColors.dpr(73): Variable 'LHLS' is declared but never used in 'RGBToHLS'
[Hint] ColorsToCodsColors.dpr(74): Variable 'i' is declared but never used in 'RGBToHLS'

[Arigato]

Первые два предупреждения - переменные не инициализированы.
Последние - переменные объявлены, но не используются.

[Alexandr17]

С последними понял и решил проблему а как с первыми быть

[Vad33]

    LH := 0;
    LS := 0;

Перенести в самое начало функции.

[northener]

А вот проблемы

Это не проблемы. Проблемы еще будут и весьма вероятно очень большие. Комментарий в начале модуля dll для кого Дельфи пишет?

[Alexandr17]

пишу на Delphi 7

Скажите а как собственно использовать эти функции из программы но мне надо перед этим делать проверку есть она или нет ее если есть то делаем кнопку активной.

[Arigato]

Чтобы проверить наличие функций, надо динамически DLL подключить в программу.

[Alexandr17]

Можете написать код но чтобы программа запускалась и работала и без этого длл

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

Можете написать код но чтобы программа запускалась и работала и без этого длл

Мне не нужно проверять функции мне нужно проверка длл. если он есть то кнопка активна если нет то заблокирована.

[raxp]

TC, обратите внимание на пост #5 или воспользуйтесь переводчиком, http://translate.google.ru подойдет. Если и это не поможет, то подсказка - string -> pchar.

Можете написать код но чтобы программа запускалась и работала и без этого длл

А где тут знаки препинания? Неоднозначно воспринимается.

если он есть то кнопка активна если нет то заблокирована

fileexists(), как вариант. Либо проверка по loadLibrary().

[Alexandr17]

procedure TMain1.ADDCOLORKAMExecute(Sender: TObject);
Var GetKAMColor: Function(Color:TColor):String;
  LibHandle: Hmodule;
begin
  LibHandle:=dsLoadLibrary('ColorsToCodsColors\ColorsToCodsColors.dll');
  if LibHandle <> 0 then
  begin
    @GetKAMColor:=GetProcAddress(LibHandle, 'GetKAMColor');
    if @GetKAMColor <> nil then
      If CD1.Execute Then
        MemoText.SelText:=GetKAMColor(CD1.Color);
    FreeLibrary(LibHandle);
  end;
end;

Function dsLoadLibrary(NameFile:String):Hmodule;
Begin
  Result:=Windows.LoadLibrary(PAnsiCHar(ExtractFilePath(ParamStr(0))+'library\'+NameFile));
end;

Как исправить и что я не так делаю