DLL самовыгружается... проблема с DLLProc

[Человек_Борща]

Доброго времени суток!

Есть программа которая подхватывает dll.
Пишу свою dll:

library TestLib;


uses
  Windows, Classes,SysUtils;

var
 myDir:string;

{$R *.res}


function GetMydir:string;
var
  Buff:array[0..MAX_PATH] of Char;
begin
  GetModuleFileName(hInstance,@Buff,MAX_PATH);
  Result:=StrPas(Buff);
end;

procedure log(aStr:string);
var
ts:TStringList;
begin
  ts:=TStringList.Create;
  try
  if FileExists(myDir+'Log.txt') then
  begin
  ts.LoadFromFile(myDir+'Log.txt');
  end;
  ts.Add(aStr);
  ts.SaveToFile(myDir+'Log.txt');
  finally
    FreeAndNil(ts);
  end;
end;


procedure MyDLLMain(dwReasson:DWORD);
begin
 case dwReasson of
   DLL_PROCESS_ATTACH:
   begin
    myDir:=ExtractFilePath(GetMydir);
    Log('myDir is "'+myDir+'"');
    log('Log STARTED!');
    log('DLL_PROCESS_ATTACH');
    //

   end;

   DLL_PROCESS_DETACH:
   begin
     Log('DLL_PRCESS_DETTACHED!');
     //
     log('Log CLOSED!');
   end;
 end;
end;

begin
  DllProc:=@myDLLMain;
  //MyDLLMain(DLL_PROCESS_ATTACH);
end.

Почему dll самовыгружается?
При запуске программы, создаётся мой log.txt
и там запись:

DLL_PRCESS_DETTACHED!
Log CLOSED!

[_Troy]

Тут явно неудавшаяся инициализация. А как загружаешь ее в программе?

[Человек_Борща]

Программа не моя. Программа сама подхватывает dll и загружает их.
Почему выгружается моя dll?

[_Troy]

В таком случае навряд ли смогу тебе помочь.
Нужен кто лучше в этом соображает))
Могу только предположить что программа инициализирует какие-то определенные процедуры/функции из dll, к каковым твои не относятся.

[Человек_Борща]

нет таковых нет. Так уж получилось, что программа хватает все файлы с опр. расширением и пытается их загрузить в себя. При этом требуется инициализация с моей стороны.

Почему выгружается моя dll?

[_Troy]

И где кстати у тебя экспорт функции/процедуры?

По идее надо так:

exports MyDLLMain;

begin

end.

[Человек_Борща]

а зачем её экспорт....?
Она является DLLProcкоторый вызывается при инициализации dll в процессе

[Asinkrit]

Сдается мне экспорт как раз является ключевым моментом здесь... По идеи дллка выгружается из-за того, что система считает что она больше не нужна, а не нужна она потому, что в ней нет того, ради чего она вообще создана - внешних функций, то есть экспортируемых. Насколько я помню из теории, винда выгружает библиотеки, в случаях если они больше не нужны, а ваша библиотека не может быть нужна, она ничего не дает, вы ее написали как отдельную программу, но так она работать не будет.

а функцией Log(aStr:string); вы переплюнули даже индусский код. Вы создаете стринглист и загружаете весь лог файл, только для того, что бы добавить одну строку. жесть. Поверьте, банальные append и writeln, дадут в 1000000 раз больше производительности.

[Человек_Борща]

Asinkrit, попробую указать stdcall,и сделать экспортируемой..

А процедура лог просто для дебага того, что троворится внутри. Потом уберу её...

[GunSmoker]

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

Наверное, при этом она видит, что твоя DLL - не то, что она ожидает. Вот и выгружает. Как ненужное. Программа понятия не имеет, что делать с твоей DLL.