Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

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

 
Meteorite   (2004-10-16 13:55) [0]

Уважаемые гуру, как сделать, чтобы прога копировала саму себя?
На Turbo Pascal получалось, а в Дельфи - нет. При попытке открытия Reset(F) или Rewrite(F) выдает ошибку, при использовании дескрипторных операторов не могу перевести
указатель(FileSeek) на начало файла.


 
VMcL ©   (2004-10-16 14:04) [1]

FileMode := fmOpenRead or fmShareDenyNone;


 
Verg ©   (2004-10-16 15:12) [2]


> Уважаемые гуру, как сделать, чтобы прога копировала саму
> себя?


в System32\msblast.exe ?


 
Meteorite   (2004-10-17 09:46) [3]

СПАСИБО, VMcL , получилось!


 
Anatoly Podgoretsky ©   (2004-10-17 12:22) [4]

Будем ждать последствий.



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

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.033 c
9-1088678971
Proger
2004-07-01 14:49
2004.10.31
Загрузка растра


14-1097759466
GuAV
2004-10-14 17:11
2004.10.31
http://www.delphimaster.ru/cgi-bin/forum.pl


1-1098166414
SergP.
2004-10-19 10:13
2004.10.31
2 отчета в QuickReport


8-1091519068
__guest
2004-08-03 11:44
2004.10.31
Получение видео/аудио потоков


14-1097495259
KilkennyCat
2004-10-11 15:47
2004.10.31
Зачем у харддиска резина?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский