Delphi взлом HELP.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi взлом HELP. - 2006-04-16 22:26:32
|
|
|
Mister_Reaper
Сообщений: 10
Оценки: 0
Присоединился: 2006-04-09 17:23:46
|
Я знаю что это не по теме,но все равно напишу!
Кто не знает Delphi может дальше не читать…
Я пишу фробу по типу,которая ищет файл и уничтожает(точнее это одно из многих функций фробы)
procedure TForm.FindAndDestroy Buttопс1iск{……};
var
h:hWnd;
begin
h:=Findwindоw(nil,''file'');
if h=0 then exit;
SendMessage(h, WM_DESTROY,0,0)
end;{собственно это и есть код}
Не знаю почему, но компилятор ругается страшным матом и дальше дело не идет..
просьба:помогите отбажить!
p.s.кстате это фроба будет создана для взлома!именно поэтому я эту тему пихнул сюда!
|
|
|
|
|
Delphi взлом HELP. - 2006-04-17 11:48:31
|
|
|
SLESH
Сообщений: 109
Оценки: 0
Присоединился: 2005-08-19 11:37:22
|
procedure TForm1.Button1Click(Sender: TоЬjесt);
var
h:hWnd;
begin
h:=windоws.Findwindоw(nil,'file');
if h=0 then exit;
SendMessage(h, WM_DESTROY,0,0)
end;
Ты тока этот текст напиши англискими буквами. А то хворум заменяет многие бункы на русские :)
|
|
|
|
|
Delphi взлом HELP. - 2006-04-19 13:11:30
|
|
|
Mister_Reaper
Сообщений: 10
Оценки: 0
Присоединился: 2006-04-09 17:23:46
|
Ответ возьму на заметку.Вообще ответ немного релативный!
|
|
|
|
|
Delphi взлом HELP. - 2006-04-19 18:36:30
|
|
|
SLESH
Сообщений: 109
Оценки: 0
Присоединился: 2005-08-19 11:37:22
|
<BR>Я знаю что это не по теме,но все равно напишу!<BR>Кто не знает Delphi может дальше не читать…<BR>Я пишу фробу по типу,которая ищет файл и уничтожает(точнее это одно из многих функций фробы)<BR>
Что такой файл?? в твоем понимании. Пишишь что ишишь файл, а код для поиска окна. Скажи нормально что хошь сделать и я тебе напишу эту функцию.
|
|
|
|
|
Delphi взлом HELP. - 2006-04-20 17:08:00
|
|
|
Mister_Reaper
Сообщений: 10
Оценки: 0
Присоединился: 2006-04-09 17:23:46
|
Я немного слагал не файл,а например папку с файлами(system32);
а вообще я имел ввиду любой файл–>который укажу сам!
|
|
|
|
|
Delphi взлом HELP. - 2006-04-20 17:13:23
|
|
|
Mister_Reaper
Сообщений: 10
Оценки: 0
Присоединился: 2006-04-09 17:23:46
|
блин я пострашному лагаю!Мне надо не окно уничтожить, а файл!
поэтому лучше помоги это написать!
|
|
|
|
|
Delphi взлом HELP. - 2006-04-20 22:53:29
|
|
|
SLESH
Сообщений: 109
Оценки: 0
Присоединился: 2005-08-19 11:37:22
|
Для удаление надло вот что:
function FullRemoveDir(Dir: string; DeleteAllFilesAndFolders,<BR> StopIfNotAllDeleted, RemoveRoot: boolean): Boolean;<BR>var<BR> i: Integer;<BR> SRec: TSearchRec;<BR> FN: string;<BR>begin<BR> Result := False;<BR> if not DirectoryExists(Dir) then<BR> exit;<BR> Result := True;<BR> // Добавляем слэш в конце и задаем маску - "все файлы и директории"<BR> Dir := IncludeTrailingBackslash(Dir);<BR> i := FindFirst(Dir + '*', faAnyFile, SRec);<BR> try<BR> while i = 0 do<BR> begin<BR> // Получаем полный путь к файлу или директорию<BR> FN := Dir + SRec.Name;<BR> // Если это директория<BR> if SRec.Attr = faDirectory then<BR> begin<BR> // Рекурсивный вызов этой же функции с ключом удаления корня<BR> if (SRec.Name <> '') and (SRec.Name <> '.') and (SRec.Name <> '..') then<BR> begin<BR> if DeleteAllFilesAndFolders then<BR> FileSetAttr(FN, faArchive);<BR> Result := FullRemoveDir(FN, DeleteAllFilesAndFolders,<BR> StopIfNotAllDeleted, True);<BR> if not Result and StopIfNotAllDeleted then<BR> exit;<BR> end;<BR> end<BR> else // Иначе удаляем файл<BR> begin<BR> if DeleteAllFilesAndFolders then<BR> FileSetAttr(FN, faArchive);<BR> Result := SysUtils.DeleteFile(FN);<BR> if not Result and StopIfNotAllDeleted then<BR> exit;<BR> end;<BR> // Берем следующий файл или директорию<BR> i := FindNext(SRec);<BR> end;<BR> finally<BR> SysUtils.FindClose(SRec);<BR> end;<BR> if not Result then<BR> exit;<BR> if RemoveRoot then // Если необходимо удалить корень - удаляем<BR> if not RemoveDir(Dir) then<BR> Result := false;<BR>end;<BR>
ВОт и все этот код удаляет все файлы в каталоге, вместе с подкаталогами
Пример использования:
FullRemoveDir('C:\a', true, true, true);
// Полное удаление папки C:\a со всем её содержимым,
// и с последующим удалением самой c:\a
|
|
|
|
|
Delphi взлом HELP. - 2006-04-21 15:31:26
|
|
|
Mister_Reaper
Сообщений: 10
Оценки: 0
Присоединился: 2006-04-09 17:23:46
|
Большое человеческое спасибо!
Я тока учусь программировать на Delphi,поэтому не суди строго![sm=em121.gif]
|
|
|
|
|
Delphi взлом HELP. - 2006-04-22 09:20:17
|
|
|
SLESH
Сообщений: 109
Оценки: 0
Присоединился: 2005-08-19 11:37:22
|
Если хочешь нормально програмить на Delphi, то скачай себе документацию - "5005 статей по Delphi" - Там все описано с исходниками. Практически на любой вопрос можно найти ответ. Все сделано ввиде программы.
http://www.mytroj.narod.ru/delphi.jpg -скриншот
Это дока В запакованом виде весит правдо 30 метров
|
|
|
|
|
|
