Кто знает, как экспортировать функцию программы из exe файла, желательно пример если есть....

KILsoft Ты эту функцию выдели в ДЛЛ или в отдельный юнит, а затем используй в другой программе.

Она по умолчанию экспортируется. Ничего писать не надо.

Нет я не прото Вот:

В DPR файле совершенно обычного проэкта дельфи можно указать функцию (процедуру) и объявить ее как экспортируемую - синтаксис точно такой-же как при создании стандартной DLL. С таким довеском EXE совершенно нормально компиллируется и работает и как EXE и как DLL (т.е. из нее можно импортировать описанные функции). Зачем это нужно? Была одна задача - делал консоль которая связывала воедино несколько приложений, так экспортные функции позволяли существенно расширять функциональность комплекса. Правда такой EXE все же имеет недостаток - EXE упаковщики сохраняют исполняемую часть и неправильно упаковывают экспортированную...

Попробуйте - у меня не получается, может чего не хватает...

KILsoft ... Пробовали. Все получается. О чем тогда и поговорили на форуме...

Что именно "не получается"?

Не получаться может много чего. Вот недавно долго не получалось найти и нажать букву "Щ" на клавиатуре - лень придвигать было, а издали, и вилкой ну никак не получалось...

Смысол в том что невыходит именно вызов - т.е проекты компилятся но когда патаюсь вызвать функцию программы (вызывающая) выдает ошибку!


Всели у меня зделано так?

program Project1;
uses
Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};

function test:pchar;
begin
result := pchar('test1');
end;

exports test;

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.



//Project2

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function test:pchar; external 'project1.exe';

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption := test; // Все время "" т.е ничего не получает!
end;

end.

KILsoft ... Что-то очень уж знакомый пример... Не ты ли как-то спрашивал об этом же на исходниках.ру ? Так тебе там уже давно все отвечено. И с примерами и с разъяснениями...