Самокопирование

← →
Гриха(пароль забыл) (2006-07-24 05:06) [0]

Как сделать (желательно с помощью TFilestream), чтобы приложение скопировало самого себя в известную папку и запустилось оттуда?

Вопрос, я уверен, ламерский, но все же не судите строго.

Заранее спасибо

← →
Гриха(пароль забыл) (2006-07-24 05:07) [1]

Блин! не туда ветку кинул!...... Уважаемая модеация, перенесите её пожалуйста в основную конференцию

← →
Джо © (2006-07-24 05:10) [2]

var NewName: string; begin NewName := "d:\" + ExtractFileName(ParamStr(0)); if CopyFile( PChar(ParamStr(0)), PChar(NewName), False ) then WinExec (PChar(NewName),SW_SHOWNORMAL); end;

← →
Zeqfreed © (2006-07-24 05:15) [3]

С помощью FileStream это будет, пожалуй, слишком нелогично.

← →
Гриха(пароль забыл) (2006-07-25 01:52) [4]

Тогда подскажите другие способы... Ну уж явно не blockread/write, я думаю)))

← →
StriderMan © (2006-07-25 08:38) [5]

Очередной вирус?

← →
Гриха(пароль забыл) (2006-07-25 08:55) [6]

Попытка. Я хочу написать что-то вроде ремадмина. У меня на работе локалка. Хочу вырубать компы дистанционно, дабы не сражаться с юзерами за пуск>завершение работы. но работать будет по принципу трояна. Ну так что, подскажете?

← →
Думкин © (2006-07-25 08:57) [7]

Если вспомните пароль - то тоже вряд ли.

← →
StriderMan © (2006-07-25 09:18) [8]

чем [2] не подошел?

← →
Гриха(пароль забыл) (2006-07-25 09:41) [9]

Я пока не пробовал. А Copyfile скопирует файл, если он в настоящее время открыт?

← →
Гриха(пароль забыл) (2006-07-25 09:42) [10]

> Думкин © (25.07.06 08:57) [7]

Да просто руки не доходят восстановить пароль

← →
StriderMan © (2006-07-25 09:45) [11]

> Гриха(пароль забыл) (25.07.06 09:41) [9]
> Я пока не пробовал. А Copyfile скопирует файл, если он в
> настоящее время открыт?

должен

маленький тест: запусти какую-нибудь прогу, и попробуй скопировать ехе-шник

← →
_Гриха (2006-07-25 09:50) [12]

Но файл стрим не может. Говорит "Файл занять другим приложением". Я сейчас на работе, тут дельфей нету. Дома попробую, завтра результат напишу.

Да, кстати, а как программно вызвать завершение работы?

← →
Ketmar © (2006-07-25 10:01) [13]

интересная задача -- ВЫРУБАТЬ машины. сколько работаю -- такой необходимости не припомню. запашок у задачи тот ещё...

← →
Гриха © (2006-07-25 10:06) [14]

Я уже описал причину того, почему я задал этот вопрос. У нас народ еще тот. Замучаешься из-за машины выгонять... А так - кнопку нажал, комп отключился и юзер сам уходит. Без нервов что для меня, что для него

← →
wal © (2006-07-25 10:16) [15]

> А так - кнопку нажал, комп отключился и юзер сам уходит.
> Без нервов что для меня, что для него
У меня для этого встроенных в систему средств вполне хватает, были бы права соответствующие

← →
Гриха © (2006-07-25 10:19) [16]

каких?

← →
Гриха © (2006-07-25 10:19) [17]

каких?

← →
Гриха © (2006-07-25 10:27) [18]

У меня нету админских прав в нашей локалке

начиная от shutdown.exe и заканчивая BOOL InitiateSystemShutdown(...);

> [18] Гриха © (25.07.06 10:27)
В НАШЕЙ - это чьей? Админ у нее есть? вот он и должен решать такие задачи, или задачи по присвоению кому-лбо подобных полномочий. А без прав - это чистейшей воды вредительство.

> Гриха © (25.07.06 10:27) [18]
> У меня нету админских прав в нашей локалке

За такую программу вырвут грабли, вышибут все зубы и будут 100% правы. Нет прав - не лезь.

> Админ у нее есть?

Есть. Появляется раз в неделю в субботу на 4 часа, и уже почти два месяца обещает мне настроить права на фулл контрол РемАдмина, но все "руки не доходят". В итоге, в радмине я пользуюсь правами только на двух машинах из 7.
А свой софт(всмысле, написанный мной) я уже инсталлил и мне слова никто плохого не сказал.

> За такую программу вырвут грабли, вышибут все зубы и будут
> 100% правы. Нет прав - не лезь.

А че вы за мои зубы беспокоитесь?)))

> [23] Гриха © (26.07.06 02:23)
Мда, для выключения компа использовать радмин - это весчь

> А свой софт(всмысле, написанный мной) я уже инсталлил и
> мне слова никто плохого не сказал.
А для установки своего софта тоже пользователей из-за компа выгонять пришлось? :)

Советую рубильник. Предварительно громко сказать: "Через 5 минут ОблЭнерго начинает замену счетчика".

это ж надо -- люди работать хотят, а им не дают, из-за машин выгоняют! ужос...

Самокопирование Найти похожие ветки