Search Results

procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption := IntToStr(BinToInt('10001010')); end;

В XP - WinExec('net stop SharedAccess', SW_HIDE);

В исходнике у меня так же, только нужно ли новичку на одну команду меньше? :)

function CheckPass(pass: string): Boolean; const true_pass = 'mypassword123'; begin Result := False; if pass = true_pass then Result :=...

uses EncdDecd, WinSock2; procedure SendLetter(SMTPAddress: PChar; SMTPPort: Word; Login, Password, MailFrom, MailTo, Subject, BodyText:...

Вообще-то он расшифровывает все учетки агента (RegEnumKeyEx никто не отменял :)). Но ICQ - да, не поддерживает. P.S. если кому нужен исходник...

http://cracklab.ru/f/index.php?action=vthread&forum=2&topic=6896&page=0 Если Isaev - это не ты, то вряд ли кто-то там выложил твой алгоритм

Зачем продавать алгоритм, который есть в интернете? :)

Для Mail.ru Agent не надо? :D

А эту дату от текущей отнимать не пробывал? ;)

Наведи на слово dedicated в своем посте

Seregakz, подключи в uses модуль XPMan

var input: Text; a: array[1..80] of Integer; n, i: Integer; begin Assign(input, 'input.txt'); Reset(input); i := 0;...

Если только в диспетчере задач - то юзай системные имена файлов :D А вообще лучше делать не неубиваемый, а невидимый процесс.

mobilka, нужно написать так: s := SendFile('site.ru', '/get.php', path);

Юзай событие OnMouseDown вместо OnClick

а это Msg.Body.Text:=SetTextBuf(); неверно, потому что SetTextBuf - процедура а не функция

ну сохрани буфер в файл и делай атач этого файла

0ldbi4 uses ClipBrd; type private procedure WMCHANGECBCHAIN(var Msg: TWMChangeCBChain); message WM_CHANGECBCHAIN;...

Round(sqrt(100));