Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Незнаю как зделать.... Запуск программы.....копирование её в др 
:(
    Опции темы
X-Vlad
Дата 24.4.2002, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Привет всем!
Дело вот в чём:
1. Надо срочно написать прогу которая при первом запуске будет себя копировать в другое место....и удалять прежний файл.....как ето зделать?
2. как зделать в программе что бы она удаляла файлы по маске *.* в указаной дериктории?

зарание благодарен.


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
remax
Дата 24.4.2002, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доцент
**


Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5
Цитата(X @ 24.4.2002, 15:12)
1. Надо срочно написать прогу которая при первом запуске будет себя копировать в другое место....и удалять прежний файл.....как ето зделать?

После копирования:
 1) Запустить прогу с нового места (с неким параметром)
 2) Выйти из старой проги
 3) Исходя из значения параметра (например - полное наименование старой проги) новая прога удаляет указанный файл.

P.S. В старом форуме было несколько обширных дискуссий на подобные темы


--------------------
Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку
PM MAIL ICQ Skype   Вверх
Vit
Дата 24.4.2002, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
1) Проверяем программу (нужно ли ее копировать) - это ваша логика - название, расположение программы, параметры запуска и т.п.
2) Если надо копировать - копируем файл
3) Запускаем файл с каким-нибудь параметром командной строки который заставит ее запустится без зацикливающегося копирования
4) выходим из программы и удаляем ее саму (об этом я уже писал здесь на форуме http://www.forum.vingrad.ru/cgi-bin....2;t=108 )


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
X-Vlad
Дата 24.4.2002, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Спасибо за ответы.... но нельзя ли написать ето напримере (код)? и по пункту 2 что посоветуете?

Спасибо....

P.S. Если есть кто со Львова (Украина) с меня пиво.... :D


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Vit
Дата 24.4.2002, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Код

program Project1;

uses
 Forms,  classes,  windows,  Sysutils,  ShellApi,
 Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}
var f:textFile;
    FileName:String;


begin
 if paramstr(1)<>'/runasis' then
   begin
     CopyFile(PChar(Paramstr(0)),PChar('c:\'+extractFilename(paramstr(0))),True);
     shellexecute(0, 'Open', PChar(extractFilename(paramstr(0))), '/runasis', 'c:\',sw_restore);
     FileName:=changefileext(paramstr(0),'.bat');
     assignFile(f,FileName);
     rewrite(f);
     writeln(f,':1');
     writeln(f,format('Erase "%s"',[paramstr(0)]));
     writeln(f,format('If exist "%s" Goto 1',[paramstr(0)]));
     writeln(f,format('Erase "%s"',[FileName]));
     closefile(f);
     ShellExecute(0, 'Open', PChar(FileName), nil, nil, sw_hide);
   end
 else
   begin
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.Run;
   end;
end.



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Mikel
Дата 25.4.2002, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2
Если, я не ошибаюсь, то в реестре можно написать чтобы при следующей загрузке удалить файл.


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
X-Vlad
Дата 25.4.2002, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Микель! про реестр я знаю и без тебя! мне надо что-бы прога сразу себя перенесла в другое место.......
кстати ты бы нелез со своими советами.......


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Vit
Дата 25.4.2002, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(X @ 25.4.2002, 07:42)
кстати ты бы нелез со своими советами.......

Не надо грубить. На форум ходят именно за советами и каждый вправе высказать свое мнение, если кому не нравятся советы то на форум ходить не надо. Кстати замечание по поводу реестра совершенно правильное, а то что ты это знаешь это никак со стороны не видно. Как модератор сразу предупреждаю еще одно проявление грубости и не терпимости к другим участникам и для тебя этот форум будет закрыт.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
neutrino
  Дата 25.4.2002, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62
"nе лез" пишется раздельно, потому что это глагол.  ;)


--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
X-Vlad
Дата 25.4.2002, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Уважаемый модер! Я никому не грубил! Я высказывал своё мнение......
а насчет советов...я спрашивал конкретно и хотел бы по возможности конкретный ответ.....помоему ето правильно.....


необижайтесь если что не так......
просто я человек прямой и всё что думаю - говорю....:))
в некоторых ситуациях ето плохо, а в некоторых хорошо! :cool


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0501 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.