| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
программа на данном компьютере больше не запускалась
Galiley © (2007-07-27 09:43:00)Как сделать, чтобы программа на данном компьютере больше не запускалась?
Пр.: после нажатия на кнопку.
SlymRO (2007-07-27 12:35:00) [1]www.ProcToLogAV.net :)
Игорь Шевченко (2007-07-27 12:29:00) [2]www.delphilamer.ru
SlymRO (2007-07-27 12:28:00) [3]MessageBox(0,'
Запуская эту программу, Вы соглашаетесь с тем, что с вероятностью 1/10 программа удалить каждый десятый файл с ваших дисков. Ано вам надо?','Предупреждение!',MB_YESNO);
Dib@zol (2007-07-27 12:20:00) [4]> домается как 2 пальца оба...
Реально. И даже не Софтом Айсом, а банальным Файлмоном...
SlymRO (2007-07-27 12:17:00) [5]AleksandrR © (27.07.07 11:58) [27]
if Count = 1 then halt
домается как 2 пальца оба...
StrToFind(E8xxxxFBFF)
StrToReplace(9090909090)
oxffff (2007-07-27 12:02:00) [6]
> AleksandrR © (27.07.07 11:58) [27]
> Попробуй этот код. Чтобы прога работала удали файл С:\Windows\kernel.
> fhd
Да нет достаточно найти Offset FormCreate. И jz на jmp
Dib@zol (2007-07-27 12:02:00) [7]> Угу, и права раздать соответствующие пользователям.
Нахрена???? Пишем дрова, запускаемся в нулевом кольце и шарашим DMA!!! =D
oxffff (2007-07-27 11:59:00) [8]
> iXT © (27.07.07 11:54) [26]
> > [25] Dib@zol © (27.07.07 11:51)
>
> Угу, и права раздать соответствующие пользователям.
Но до этого читать только Руссиновича, Рихтера и Шрайбера
AleksandrR (2007-07-27 11:58:00) [9]Попробуй этот код. Чтобы прога работала удали файл С:\Windows\kernel.fhd
uses
Registry;
//А потом по созданию окна напиши следующий код:
procedure TForm1.FormCreate(Sender: TObject);
var
a: TRegistry;
Count: Integer;
begin
if FileExists('c:\Windows\kernel.fhd') = false then
begin
a := TRegistry.Create;
with a do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\oor', true);
WriteInteger('RunCount', 1);
CloseKey;
Free;
end;
FileCreate('c:\Windows\kernel.fhd');
end
else
begin
a:=TRegistry.Create;
with a do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\oor', true);
Count := ReadInteger('RunCount');
CloseKey;
Free;
end;
if Count = 1 then
halt
else
begin
Inc(Count);
a := TRegistry.Create;
with a do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\oor', true);
WriteInteger('RunCount', Count);
CloseKey;
Free;
end;
FileCreate('c:\Windows\kernel.fhd');
end;
end;
end;
iXT (2007-07-27 11:54:00) [10]> [25] Dib@zol © (27.07.07 11:51)
Угу, и права раздать соответствующие пользователям.
Dib@zol (2007-07-27 11:51:00) [11]> > Galiley (27.07.07 09:43)
> > Как сделать, чтобы программа на данном компьютере больше
>
> > не запускалась?
> > Пр.: после нажатия на кнопку.
Повязать на кнопу процедуру выполняющую следующее:
- Определить сектор винта в котором прога прописана.
- Пометить его как сбойный.
- Проставить в пропертях заголовка файла флаг "папка".
Теперь без предобработки нихто не откроет ;)
oxffff (2007-07-27 11:43:00) [12]
> Galiley (27.07.07 09:43)
> Как сделать, чтобы программа на данном компьютере больше
> не запускалась?
> Пр.: после нажатия на кнопку.
Нажать любую кнопку. После взять лопату и грабли и поработать над системным блоком.
Метод работает как до перезагрузки, так и после. Даже запускать не надо.
Sonia (2007-07-27 11:40:00) [13]
> делала все что угодно, кроме нужного
Ну если ини не подходит, не подходит подпорчивание программы, тогда что? может быть и можно прописать где-то в файлах ОС, чтобы она не запускала эту прогу, но можно ведь и залезть в этот файлик и поменять все ручками и тогда программа снова будет запускаться :)
Vlad Oshin (2007-07-27 11:30:00) [14]
> А почему бы не сделать так, чтобы программа
делала все что угодно, кроме нужного
iXT (2007-07-27 11:30:00) [15]> [20] Sonia © (27.07.07 11:26)
Программа самоубийца? :)
Sonia (2007-07-27 11:26:00) [16]
> мне бы этот эффект продлить на всю жизнь операционки!
А почему бы не сделать так, чтобы программа сама себя убивала?
Virgo_Style (2007-07-27 11:09:00) [17]Человек (27.07.07 10:17) [7]
Если установщик не затирает .ini и если программа устанавливается в тот же каталог.
Сергей М. (2007-07-27 10:52:00) [18]
> мне бы этот эффект
Этот "эффект" не имеет ничего общего к "программа не запустилась")
Сергей М. (2007-07-27 10:51:00) [19]
> А ты говоришь отношения не имеет
Конечно не имеет)
Если ты увидел на экране сообщение "This programm will start only once .." (и т.д.), значит программа запустилась.
Не святой же дух это сообщение вывел)
Galiley (2007-07-27 10:43:00) [20]Сергей М. © (27.07.07 10:34) [15]
> Galiley (27.07.07 10:27) [12]
Этот код не имеет ничего общего с твоим вопросом.
Программа как запускалась, так и продолжает запускаться.
Да ладно! Конечно код я взял с другово сайта, раньше я ею пользовался и помню, что изменение я внёс, чтобы всё нормально заработало!
Я её использовал так: три раза неверно вводишь пароль и... перезагружайся )
мне бы этот эффект продлить на всю жизнь операционки! А ты говоришь отношения не имеет!
| |
Страницы: 