Как программе скопировать саму себя не зная местонахождение

← →
Jimal © (2003-06-14 01:15) [0]

Народ подскажте!Вот дапустим я дал тебе свою прогу и я веть незнаю куда ты её сохранил и эта прога должна скопировать саму себя в директорию C:\windows\system
подскажите как мне бить^???
с уважением Jimal!!!

← →
Нуу (2003-06-14 02:02) [1]

На "как мне бить^???" у меня нет ответа. Кого бить - только себя, если не знаешь как определить каталог, из которого запущена программа! См. ParamStr(0).

← →
Jimal © (2003-06-14 02:37) [2]

gde smotretj v Helpe

← →
Вадим © (2003-06-14 02:54) [3]

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

← →
Нуу (2003-06-14 02:57) [4]

2 Jimal © (14.06.03 02:37)
И что еще Вам нужно? Огненные письмена в небе?
ParamStr(0) дает имя файла с путем его запуска.
Или Вы не можете набрать в поисковике Хэлпа "ParamStr"?

← →
Юрий Зотов © (2003-06-14 03:20) [5]

> Вадим © (14.06.03 02:54)
> Очередной вирус с VCL, да?

Видимо, да ( http://delphimaster.net/view/1-1055536212/ ).

Правда, назвать это чудо "вирусом" довольно сложно. Даже на плохонький вирус оно не тянет. Шаловливые ручонки из ближайшего детского сада, не более.

> Jimal

Советую - займитесь все же делом, а не фигней всякой. Для начала хотя бы научитесь хелпом пользоваться. Вам же все уже сказали, осталось только F1 нажать.

← →
Jimal © (2003-06-14 03:34) [6]

Да умею я хелпом пользаватся вот только у меня с Английским не лади вот если вы мне хоть кто не будь посаветовал где можно скачать Русский хелп для Делпхи 6.0 сразу бы решилось уимо вопросов в моей плавищюися бошке.мозет кто знает где мозно скачать РУС хелп.

← →
Jimal © (2003-06-14 05:26) [7]

Юрий Зотов кстати это только первые мои шаги в Delphi так что жистоко не суди океи

← →
Юрий Зотов © (2003-06-14 05:32) [8]

А я и не сужу. Многие через это проходят, это просто такое временное заболевание, типа ветрянки. Главное - это то, к чему человек все же приходит в итоге.

А насчет справки по Delphi см. здесь:
http://delphimaster.net/view/1-1055536212/

← →
Jimal © (2003-06-14 05:50) [9]

а ты мне неможешь объяснить как определить каталог, из которого запущена программа?Ну или напиши код!!!
жду ответа!
а вот ещё что не обращаися ко мне на вы :))
С уважением Jimal

← →
Юрий Зотов © (2003-06-14 06:27) [10]

ExtractFileDir(ParamStr(0)).
Вот и все.

← →
Jimal © (2003-06-14 06:42) [11]

Ххм.. неплохо но как мне ею ExtractFileDir(ParamStr(0)); восполбзаватся???????? х3 надо бы помазговать но всёравно snx.

← →
Ghost © (2003-06-14 08:09) [12]

> . неплохо но как мне ею ExtractFileDir(ParamStr(0)); восполбзаватся????????

label1.caption:=ExtractFileDir(ParamStr(0));

да ....

← →
k-man © (2003-06-14 08:55) [13]

> надо бы помазговать но всёравно snx.

Да уж не помешает...

← →
Kit (2003-06-14 09:24) [14]

procedure CopySelfToSysDir;
var SysDir: PChar;
begin
SysDir:=StrAlloc(MAX_PATH);
GetSystemDirectory(SysDir,MAX_PATH);
CopyFile(PChar(Application.ExeName),PChar(String(SysDir)+"\"+ExtractFileName(Application.ExeName)),True);
StrDisPose(SysDir);
end;

"А если вы бочку на него покатите, то этим уже трансагентсво занимается..." © Печкин

← →
cyborg © (2003-06-14 11:15) [15]

Помоему тебе и РУСхелп не поможет :).

← →
drnet (2003-06-14 11:22) [16]

;) НЕТ СЛОВ!!!!

По последним наблюдениям 1985 год был очень богат на всяких "гениев".

и 2001-2003 это пик их активности. Наступает время "гениев"87".

← →
Пасмурный ослик (2003-06-14 15:23) [17]

Напишет кто-либо (которому лет 14-16) что-либо размером эдак в 400Кб, обзовет это "творение" гордым именем "траян" (обязательно через "а") или "вирь", а потом начинает рассылать это по почте. Надеясь, что какой-то дурак это запустит...
Дети!!! Не занимайтесь фигней!!! Поверьте мне наслово, что знание баз данных и программирования под них принесет вам гораздо больше пользы в дальнейшем по жизни. В том числе и денежной пользы. А написание "кульных программ по выдвиганию-задвиганию CD-Rom-a или перезагрузки компа"- это отстойное занятие.
2 Юрий Зотов. Насчет ветрянки- это ты верно подметил :-) Только начинается эта ветрянка с прочтения журналов итересных, типа "Хакер"-а. Довайте обзовем все это дело "Хакерянка" :-)

← →
Jimal © (2003-06-14 16:43) [18]

Ну вы парни даётеб а если мне нравется етим заниматся и паганить другие компы а тебе Осёл вот что я скажу ни чего я не разылаю просто нету у меня мыслей какую программу(полезную) начать писать!

← →
Anatoly Podgoretsky © (2003-06-14 16:46) [19]

Как прикажешь понимать тебя Абдулла?

Jimal © (14.06.03 00:30)
koro4e ja napisal takuju podljanku tipo vot v nizu ja privel wto ona dol#na delatj:

← →
Jimal © (2003-06-14 16:50) [20]

Ghost спасибо за преведенный выше пример но я уже сам додумался еще сёня ночью!!!

← →
Юрий Зотов © (2003-06-14 17:06) [21]

Посмотрел анкету...

Ох, боюсь, все-таки не быть ему программистом. Слишком большой у него... ну, то, что он в анкете написал. Больше, чем голова, а с программированием это плохо совмещается.

Ну, да это не страшно. Обществу ведь разные специалисты нужны.

Но радует то, что "вири" и "траяны" чаще всего пишут именно такие "спецы". К счастью, ничего действительно опасного они написать просто не могут.

Особенно, если не помогать им делать гадости, которые им так патологически "нравется".

← →
HolyGlory (2003-06-14 17:16) [22]

> Да умею я хелпом пользаватся вот только у меня с Английским
> не лади вот если вы мне хоть кто не будь посаветовал где
> можно скачать Русский хелп для Делпхи 6.0 сразу бы решилось
> уимо вопросов в моей плавищюися бошке.мозет кто знает где
> мозно скачать РУС хелп.
>
>
> Jimal © (14.06.03 05:26)
> Юрий Зотов кстати это только первые мои шаги в Delphi так
> что жистоко не суди океи

Да и с русским у тебя не лучше.

> Посмотрел анкету...
>
> Ох, боюсь, все-таки не быть ему программистом. Слишком большой
> у него... ну, то, что он в анкете написал. Больше, чем голова,
> а с программированием это плохо совмещается.

Мешает на клавиатуре набирать :)

А та типо самый мозг HolyGlory идиот я всето лишь еще в 5-ом классе мислешь о чём ето я!!!

ремнем бы тебя...

← →
gagarin (2003-06-15 08:06) [25]

> Пасмурный ослик (14.06.03 15:23)

> А написание "кульных программ по выдвиганию-задвиганию CD-Rom-a
> или перезагрузки компа"- это отстойное занятие.

Отстойное - не отстойное, но начинающим и это стоит попробовать, чтобы в будущем возможно, применить это с пользой.

>Jimal
Знаешь после прочтения етой ветки и твоей анкеты мне стало стыдно за Украину и за будущее поколение!

P.S.: К счастью таких дебилов не так много.

Знаете эта вот "Хакерянка" это всё же таки не общий диагноз, я вот занялся программированием в 8-ом классе, и начал с изучения BP руководствуясь хелпом, а потом пошол в направлении сложных алгоритмичесских задач.

> Jimal © (14.06.03 22:29)

Идея полезной программы: англо-русский словарь. Лично для себя, лично свой, кульный. С самокопированием в windows\system, разумеется. При этом заметь, что у меня каталог с Win98 называется d:\win98_se (можешь зашить в программу, т.к. иначе твой вирус на моем компе не сработает. Обидно будет.)

← →
Никита Анатольевич (2003-06-16 12:50) [28]

Посмотри в исходниках проги по адресу: http://www.spirt-vodka.narod.ru/DownLoad/Myprogramms/beta.zip
Если не хочешь проблем, то прежде чем запустить - проверь как работает

← →
HolyGlory (2003-06-17 10:13) [29]

> А та типо самый мозг HolyGlory идиот я всето лишь еще в
> 5-ом классе мислешь о чём ето я!!!

Как я ни пытался - постичь смысла этой фразы я не смог :(

Ты просто не мислешь

← →
Borman (2003-06-17 12:24) [31]

Справка для еврея - читай справку.

Как программе скопировать саму себя не зная местонахождение Найти похожие ветки