Hi guys.I explain my problem below.
When i push Button1 , textfile is created at
"C:\me.txt" but my Exe closes itself.I do not
want my Exe closes itself!!!
Please help me...


// My EXE Project

Procedure EveryThingOk;
type
TSaveItself = Function (fullmessage:String):Boolean; stdcall;
var
SaveItself: TSaveItself;
LibHandle: THandle;
var mestring;
begin
mes:='Hi Jack how are you?';
LibHandle := LoadLibrary(PChar('Project1.dll'));
if LibHandle <> 0 then
@SendMail := GetProcAddress(LibHandle, 'SaveItself')
else
begin
MessageDlg('Failed to load Project1.dll.', mtError, [mbOK], 0);
end;
if @SaveItself <> nil then
SaveItself(mes);
FreeLibrary(LibHandle);
@SaveItself := nil;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
EveryThingOk;
end;

// My DLL Project

library Project1;

uses
Windows,
SysUtils,
Classes;

{$R *.res}

Function (fullmessage:String):Boolean;
var
list:TStringList;
begin
list:=TStringList.Create;
list.Add(mesaj);
list.SaveToFile('C:\me.txt');
result:=True;
end;
exports
SendMail;

begin
end.