Да уж.... Ответ А.Н. информативен до безобразия.....
Вообщем ничего лучшего как исправить родной system.pp (точнее syswin.inc)
и перекомпилировать RTL я не нашел.
Найдено 2 результата
- 31.08.2010 14:22:53
- Форум: Lazarus
- Тема: как принудительно предотвратить загрузку dll (ExitCode := 1)
- Ответы: 3
- Просмотры: 3182
- 29.08.2010 15:07:15
- Форум: Lazarus
- Тема: как принудительно предотвратить загрузку dll (ExitCode := 1)
- Ответы: 3
- Просмотры: 3182
как принудительно предотвратить загрузку dll (ExitCode := 1)
Добрый день.
На delphi прекрасно работает такой код
begin
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.
..............................................
procedure DLLMain(Reason: DWORD);
begin
Case Reason Of
DLL_PROCESS_ATTACH :
begin // DLL_PROCESS_ATTACH
// if ..... then // какое-то ...
На delphi прекрасно работает такой код
begin
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.
..............................................
procedure DLLMain(Reason: DWORD);
begin
Case Reason Of
DLL_PROCESS_ATTACH :
begin // DLL_PROCESS_ATTACH
// if ..... then // какое-то ...