Извините если пишу СОВСЕМ не в тему ..
Но какой мне код на дельфи надо вписать?? У меня есть лоудер и длл. И какой код вписать что бы лоудер без длл не загружался.. Например лоудер и длл в одной папке с названиями 1.exe и 1.dll , вот а если лоудер переименуют или длл то при запуске лоудера он будет писать Dll not found.
Вот пример тут dump.ru/file_catalog/682998.

Помогите пожалуйста...

P.S длл не моя ну нужно что бы она загружалася мести с exe.

| Сообщение посчитали полезным:

И какой код вписать что бы лоудер без длл не загружался..
Сделай тогда уж динамическую загрузку билиотеки из лоадера.
Дальше при DLL_PROCESS_ATTACH создавай атом, чтобы лоадер чекал его, если атома нет, то лоадер пробует заново загрузить билиотеу.
А вообще ДЛЛ можно и в лоадер засунуть, которая будет выгружаться при запуске,а дальше соверашть действия описанные выше

| Сообщение посчитали полезным:

Эммм... Я за делфи только 4 день сижу вот и хотел бы услыхать код

| Сообщение посчитали полезным:

Я за делфи только 4 день сижу вот
Тогда ты не с того программировать начал

| Сообщение посчитали полезным:

Ну а ты пример смотрел?? Там лоудер + длл вот если переименовать одно или другое то лоудер просто не запустица... Вот и мне этот код нужен

| Сообщение посчитали полезным:

З.Ы энто наверно смогут тока подсказать кто в кс играл... Так как там чит для неё

| Сообщение посчитали полезным:


procedure TForm1.FormCreate(Sender: TObject);
var
F: TSearchRec;
begin
FindFirst('mydll.dll', 0, F);
if F.name = '' then
begin
MessageBox(0,'Файл mydll.dll не найден!','Error!',0);
ExitProcess(0);
end;
FindClose(F);
end;


| Сообщение посчитали полезным:

hDLL := LoadLibrary(PChar('1.dll'));
if hDLL <> 0 then
begin
//длл присутствует
end
else
begin
//длл отсутствует
end;

-----
Сотрудник DHARMA

| Сообщение посчитали полезным: