[mobac]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

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). Спасибо, очень срочно надо! За лучший ответ поставлю "Спасибо"!

[NumLock]

из файла справки:

Writing dynamically loadable libraries

The following example shows a library with two exported functions, Min and Max.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

library MinMax; function Min(X, Y: Integer): Integer; stdcall; begin   if X < Y then Min := X else Min := Y; end; function Max(X, Y: Integer): Integer; stdcall; begin   if X > Y then Max := X else Max := Y; end; exports   Min,   Max; begin end.

[min@y™]

А зачем нужна такая DLL?
Зачем удалять созданный файл (текстовый, набитый восьмеричным отображением байтов исходного файла)?

Чот подозрительно...