Перевод проекта в DLL

[mobac]

Здравствуйте! В Дельфи не особо разбираюсь, и мне надо перевести программу Delphi (с исходным кодом, естественно) в DLL.
Сам код:

program converter;
  
{$APPTYPE CONSOLE}
  
uses
  SysUtils;
  
const
  a: string[8] = 'ABCDEFGO'; {задаём строку для поиска
 в ней символов}
  
Var
   I : byte;
   f1:file of byte;
   f2:textfile;
  
  
{функция для перевода целой части числа из 10-й в любую сс}
function Cel(d: real; c: integer): string;
var
  s: string;
  n2: integer;
begin
  n2 := round(int(d)); {берём целую часть от числа}
  s := '';
  repeat
    s := ((a[n2 mod c + 1]) + s); {повторяем пока число не будет равно нулю берём целую часть при
    делении числа на основание и берём остаток + 1 от деления целой части на 16, записываем
    результат посимвольно в строку s}
    n2 := n2 div c;
  until (n2 = 0);
  if length(s)<3 then
    for i:=length(s)+1 to 3 do
      s:='A'+s;
  Cel := s;
end;
  
begin
  if ParamCount < 2 then
    begin
      writeln('Not enough parameters!');
      exit;
    end
  else
    begin
      if fileexists(paramstr(1)) then
        begin
          assignfile(f1,paramstr(1));
          assignfile(f2,paramstr(2));
          reset(f1);
          rewrite(f2);
          while not eof(f1) do
            begin
              read(f1,i);
              write(f2,cel(i,8));
            end;
          closefile(f1);
          closefile(f2);
        end
      else
        begin
          writeln('File not exist!');
          exit;
        end;
    end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Что надо доделать: сделать, чтоб при использовании DLL была функция (wctrun), с двумя аргументами: wctrun(0,INPUTfile.wct (P.S. вместо файла может быть код, если код, то в первом аргументе стоит 1), exe). Например: wctrun(0, Test.wct, exe) - создаёт скрытую папку с названием "temp" в текущей директории и в этой папке создаёт файл temp.(тут третий аргумент, т.е. EXE или COM) , после выполнения "подпрограммы" удаляет файл и директорию.
Ещё пример: wctrun(1, "AAABBBCCCDDDEEEFFFGGGOOO", com). Спасибо, очень срочно надо! За лучший ответ поставлю "Спасибо"!

[Stilet]

INPUTfile.wct

Какого типа?

[mobac]

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

Какого типа?

Текстовой файл, содержит машинный код на системе счисления wct типа "AAABBBCCCDDDEEEFFFGGGOOOAAABBBOOOC CCAAADDDEEE"

Пожалуйста, помоги сделать!

[FaTaL]

Чем помочь то? Научить компилировать ДЛЛ?

[mobac]

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

Чем помочь то? Научить компилировать ДЛЛ?

Нет.. сделать DLL, как я описал выше.. пожалуйста! Очень надо!

[Stilet]

Кто-нибудь плиз обьсните мне деревенщине чего автору надо?
Я ниче не понял...
Или вернее из всей это каши понял только такое:

library Project1;

{$mode objfpc}{$H+}

uses
  Classes,sysutils,windows
  { you can add units after this };
 procedure wctrun(n:integer;f:TextFile;c:PChar);
 begin
   {создаёт скрытую папку с названием "temp" в текущей директории и в этой папке создаёт файл temp.
   (тут третий аргумент, т.е. EXE или COM) , после выполнения "подпрограммы" удаляет файл и директорию. }
   MkDir('temp');
   SetFileAttributes('temp',FILE_ATTRIBUTE_HIDDEN);
   AssignFile(f,'temp/temp.');Rewrite(f);
   CloseFile(f);
   DeleteFile('temp/temp.');
   RemoveDirectory('temp');
 end;

exports wctrun;
begin
end.

[саша40]

DLL - это библеотека с функциями, процедурами, константами(наверное) и даже классами. Функции легко можно поместить в DLL, только потом придется их экспортировать из неё. Ключевое слово Exports.
При вызове функции или процедуру, не важно, надо сначала её от туда извлечь. Есть два способа извлечения: Динамический и статический. Статический самый простой, но тогда библеотека всегда должна быть рядом с dll. Для этого надо описать процедуру или функцию(вместе с параметрами) как обычно мы делаем это в проектах после ; поставить это:

stdcall; external '<имя dll>.dll';

Динамический способ похож на статический, но при этом ты можешь подключить dll когда это требуется и освободить память от dll, когда это по требуется. Для такого способа потребуется:
Переменные с типом нужной процедуры или функции.
Функция LoadLybrary. Её результат надо записать в переменную типа THandle(это адрес библиотеки в памяти).
Функция GetProcAddress. Она выдаст адрес нужной тебе функции.
Функция FreeLybrary. Очистит память от библиотеки. Параметр - адрес библиотеки в памяти.
Если захочешь записать в dll класс(class), то придется писать интерфейс для его использования.

[Stilet]

но тогда библеотека всегда должна быть рядом с dll

Неправда. Положение ДЛЛ не обязательно должно быть с программой. Если ее нет в каталоге с программой, то библиотека ищется по путям в переменой окружения PATH.
Но в данном случае автору это не поможет с написанием зловреда.

[саша40]

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

Неправда. Положение ДЛЛ не обязательно должно быть с программой. Если ее нет в каталоге с программой, то библиотека ищется по путям в переменой окружения PATH.
Но в данном случае автору это не поможет с написанием зловреда.

Интересно, что какого он пишет? Не генерик ли? Хотя в любом случае, компилятор не сможет даже скомпилировать до конца. Антивирус сразу лавочку закроет.