Крах при выгрузке DLL

[prizrak1390]

Доброе время суток уважаемые программисты!
Вот столкнулся с проблемой...
Пишу DLL-ку,подключаю её в своей программе,вызываю форму из dll,форма ведёт себя адекватно,закрывается и открывается без ошибок. Но вот при закрытия окна программы из которой и вызывалась DLL, происходят ошибки сначала,что-то с Pointer, а затем run time error....

Вот код проги вызывающей функцию из dll:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,sharemem{Где-то вычитал,что это может помочь........};

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Function regist(Handle:Thandle):byte; Stdcall; External 'project1.dll';

procedure TForm1.FormShow(Sender: TObject);
begin
Regist(application.Handle)
end;

end.

Вот код DLL, но без кода форм и без шифрующих алгоритмов(вода):

library Project1;

uses
  SysUtils,Classes,registry,windows,forms,dialogs,sharemem,
  Unit1 in 'Unit1.pas' {registration},
  Unit2 in 'Unit2.pas' {manual};

{$R *.res}

...
{тут идет описание функций шифрования: MD5,BASE64 и функция для работы с реестром,получающая тип процессора}
...
function regist(Handle:Thandle):byte;stdcall;
var
Rform:Tregistration;
 begin
 Application.Handle:=Handle;
 rform:=Tregistration.Create(Nil);
 unit1.gapp:=Application; {в первой форме GAPP:TAPPLICATION}
 Rform.ShowModal;
 Rform.free;
 result:=1; 
end;


Exports regist;
begin

end.

Вот как-то так...

[Somebody]

ShareMem следует писать первым в uses.

[prizrak1390]

Somebody, не помогло....

[russian-stalker]

Попробуйте поставить брейк-поинты и отловить место с ошибкой

[prizrak1390]

russian-stalker, в программе всего 1-на строчка:

Regist(application.Handle)

Отлавливать в DLL не получится,так как у меня слегка крякнулся делфи и установить HostApplication не получается...Так что средств для отладки как таковых нетю...Да и явных ошибок нет и в процессе работы не возникает проблем...только при закрытии главной(вызывающей) программы.

[russian-stalker]

Ну я длл отлаживал установив после каждой строчку Showmessage('Nomer strochki'); и после смотрел где программа стопорится(не сочтите за мазохиста, но по мне это очень быстрый способ).

[prizrak1390]

russian-stalker,нас уже два таких мазохиста))))))))))))
Делал так же,не помогло.

[856100]

1. sharemem надо писать первым
2. писать его в длл и в ПРОЕКТЕ, а не форме (Проект-показать исходный текст)
3. помимо написания в uses sharemem, надо еще с собой таскать BORLNDMM.DLL (лежит рядом с дельфи (папка BIN))

а чтоб не возникало таких ошибок, прочитайте комментарии, которые дельфи пишет при создании длл.

[mutabor]

И я так отлаживал, можно клуб мазохистов открывать )

Еще как вариант, попробуй не из под отладчика запустить программу, т.е. не из под Дельфи. Бывает иногда ошибка именно из-за этого (в новых дельфях есть даже опция такая - запустить без отладки, и она там неспроста =).

sharemem можно и вовсе не использовать, смотря как строки передавать.

[russian-stalker]

Значит я не один такой
Сорри за флуд