Скачать: CL | DM;

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

← →
Гриха(пароль забыл)   (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]

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

---

← →
wal ©   (2006-07-25 10:32) [19]

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

---

← →
wal ©   (2006-07-25 10:38) [20]

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

---

← →
Плохиш ©   (2006-07-25 10:57) [21]

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

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

---

← →
Ketmar ©   (2006-07-25 11:56) [22]

>Гриха ©   (25.07.06 10:27) [18]
ROTFL.

---

← →
Гриха ©   (2006-07-26 02:23) [23]

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

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


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


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

---

← →
wal ©   (2006-07-26 10:27) [24]

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

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

---

← →
pasha_golub ©   (2006-07-26 12:43) [25]

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

---

← →
Ketmar ©   (2006-07-26 13:33) [26]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.51 MB
Время: 0.027 c