Как заставить работать dll ?

[Volkogriz]

Доброе время суток!
Пытаюсь написать dll не чево не получается!!
Код из dll:

PHP код:

{$R  RCFile.RES} //Файл с ресурсами

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free; 
end;

Function Extract:Integer;
begin
ExtractRes('exe', 'Chess', 'We Extract/Chess.exe');
end;
exports Extract;
end. 


Назвал dll 'Extract.dll'
И код программы:

PHP код:

Function Extract:Integer;
external 'Extract.dll';

procedure TForm1.Button2Click(Sender: TObject);
begin
Extract;
end; 


И не чиво кроме ошибки!!
Кто знает помогите пожелусто где ошибка и чаво я неправельно делаю!?
За рание блогодарен!!!
С уважением Volkogriz!

[komex]

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

Доброе время суток!
Пытаюсь написать dll не чево не получается!!
Код из dll:

PHP код:

{$R  RCFile.RES} //Файл с ресурсами

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free; 
end;

Function Extract:Integer;
begin
ExtractRes('exe', 'Chess', 'We Extract/Chess.exe');
end;
exports Extract;
end. 


Назвал dll 'Extract.dll'
И код программы:

PHP код:

Function Extract:Integer;
external 'Extract.dll';

procedure TForm1.Button2Click(Sender: TObject);
begin
Extract;
end; 


И не чиво кроме ошибки!!
Кто знает помогите пожелусто где ошибка и чаво я неправельно делаю!?
За рание блогодарен!!!
С уважением Volkogriz!

А какая ошибка?

[Sibedir]

Может изменить имя функции или библиотеки, чтобы они не совпадали?

[Volkogriz]

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

А какая ошибка?

Excepction EResNotFound in Module Extract.dll at 00011785!

[Volkogriz]

Sibedir Менял называл по разному!

[komex]

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

Excepction EResNotFound in Module Extract.dll at 00011785!

Попробуй заменить {$R RCFile.RES} на {$R *.res}

[Sibedir]

Не уверен на счет типа ресурса ('exe'). Может уместнее что-то типа
TResourceStream.Create (Hinstance, 'Chess.exe', RT_RCDATA);

[Volkogriz]

Ни чево не памагает!
Мне хоцаца понять гдето у меня ошибка меня смущает 'Не Обнаружины в Module Extract.dll'
Я всю ночь Е_Мучился так и не понял!!!
Аешо я менял Function на procedure соответственно и в ехе тоже не пашет
Памагите пожалусто!!!

[Volkogriz]

Всем огромное спасибо!!!
дагнал наконец токи ни прошло и года!
Во первых я так понял что название ресурса недолжно быть '1' '2' '3' и исправил немного код он тепнрь рабочий!
Если кого заинтересует вот он dll:

library Project2;

uses
  SysUtils,
  Classes;

{$R *.res}
{$R  RCFile.RES }//Файл с ресурсами
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
ERes : TResourceStream;
begin
ERes := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
ERes.SavetoFile(ResNewName);
ERes.Free;

end;

function Extract:Integer;
begin
ExtractRes('TDATA', 'Viv', 'Chess.bmp');
result:= 0;
end;
exports Extract;
end.

exe

unit Unit1;

interface

uses
  Windows, Messages,....;

function Extract:Integer;
external 'Destr.dll';




type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 result: Integer;
implementation
{$R RCFile.RES }
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Extract;
result:= 1;
end;

end.

С уважением Volkogriz!

[Volkogriz]

Кстати ешо вопросик!?
Кто знает API!?
Как подобную Dll ку написать API а ни VCL!?
Вопрос не просто зкалавы просто потому, что происходит дублирование кода модулей VCL в экзешнике и Dll.
За рание блогодарен!!!
С уважением Volkogriz!