[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

на поставленный вопрос тебе дали ответ,
насчет aspack'a, да юзали и что?
обычный пакер... они их не расшифровывает, а распаковывает...
статья о загрузге проги в память была на wasm'e, но не думаю что тебе надо на асме и не дал ссылки ^_^

 

sps зделал.
krypt3r тебе пасибо )) но ты прям мега нахимичил )

 

+voron+, ты когда учиться начнешь? Даже темой ошибся. Код отписываю в личку. Проверяй.

 

есть ли какой нибудь мини делфи или компилятор для него. всю качать лень, есть тока dpr проекта. как можно скомпилить? тока оригинальной дэльфой?

 

Во !1! нашел )) теперь всё норм

_h*tp://slil.ru/25415618

 

тебе нужен dcc32, дельфовый компиллер
птом cmd-"dcc32.exe myProject.dpr"
_http://rapidshare.com/files/87637095/DCC32.rar
вот из седьмого делфи

 

Тебе понадобятся ещё как минимум два системных модуля System.dcu и SysInit.dcu. Так что одним dcc32 не обойтись.
если не хочешь качать, скинь, скомпилят

 

При использовании библиотеки KOL+MCK при компиляции проекта ошибка
[Fatal Error] test.dpr(6): File not found: 'ExptIntf.dcu' или
[Fatal Error] test.dpr(6): File not found: 'KOL.dcu'
Устанавливаю всё по инструкции. Может кто сталкивался, что нужно делать?

 

Гугль:
http://forum.telenet.ru/index.php?showtopic=100714
http://forum.sources.ru/index.php?showtopic=187920&view=showall&hl=

 

Возникла необходимость сделать снимок активного окна. Есть код как принтскринить рабочий стол, пытался переделать, не прёт что то (рисунок белый). Например окно с названием "Autorun" активно.

Code:

var
bmp: TBitmap;
 DC: HDC;
h:hwnd;

begin
 bmp:=TBitmap.Create;

 bmp.Height:=Screen.Height;//задаю размер
 bmp.Width:=Screen.Width;
//GetForegroundWindow; //типа получить активное окно, наверно не нужно здесь
 DC:=GetDC(h);   //подставляю хэндл
 bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,          //////////////
       DC, 0, 0, SRCCOPY);
 bmp.SaveToFile('Screen.bmp');

 ReleaseDC(0, DC);
end;

 

Хех, строчку

Code:

 DC:=GetDC(h);

замени на

Code:

 DC:=GetDC(0);

и все норм будет

###################################

Ну, а если надо только одно активное окно поймать, то:

Code:

procedure CaptureActiveWindow(_Bimap: TBitMap);
 var
   Im: TCanvas;
   _scRect, _winRect: TRect;
   hw: THandle;
 begin
  Im := TCanvas.Create;
   Im.Handle := GetWindowDC(GetDesktopWindow);
   hw := GetForeGroundWindow;
   if hw <> 0 then
     GetWindowRect(hw, _winRect);
   try
     _scRect := Rect(0, 0, _winRect.Right - _winRect.Left, _winRect.Bottom - _winRect.Top);
    _Bimap.Width  :=_winRect.Right - _winRect.Left;
    _Bimap.Height := _winRect.Bottom -_winRect.Top;
     _Bimap.Canvas.CopyRect(_scRect, Im, _winRect);
   finally
     ReleaseDC(0, Im.Handle);
     Im.Free;
   end;
 end;

//заюзаем
procedure TForm1.Button1Click(Sender: TObject);
var
 _Bmp:TBitmap;
begin
 Sleep(500);
 _Bmp:=TBitmap.Create;
 CaptureActiveWindow(_Bmp);
 _Bmp.SaveToFile('c:\pic.bmp');
 _Bmp.Free;
end;

 

Привет всем! скажите как перехватить запуск какого то файла и предотвратить это...
и как перехватывать и предотвращать запуск любых программ.
Тоесть если пользователь или какаято программа пытаются запустить каойто файл он не запускается...

 

1. привязать запуск программ. Т.е. расширение exe привязать к твоей проге.
2. Глобальный хук на CreateProcess.
3. ставить пасс на выход из ждущего режима.

пока в голову больше ничего не пришло =\

 

тебе нужно рыть в сторону Hooks
т.е.устанавливаешь hook в системе например на API OpenFile и обрабатываешь его при вызове апишки (ет для виднуса)

 

ага понятно спасибо... но если комунить будет не трудно выложите код на конкретном примере... но это не обязательно...

W!z@rD, rem Благодарю...

 

В Delphi глазами хакера пример был...Ща чёнть на компе посмотрю..

 

вот тут ставится хук на нажатие кнопок(прога открывает пароль под звёздочками):
http://slil.ru/25433048

 

я же написал белым по черному пример хука на запуск файлов.... если нет то и не надо....но все равно спасибо за какуюнибудь помощь...

 

привет. знакомый задачку загадал. склеил мп3 и jpeg. как мне картинку отсоединить и посмотреть?
http://slil.ru/25430192

 

декомплировал программку. открыл исходники в делфи но при комплите выдает ошибку-

как исправить?