ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
27.03.2009, 16:17
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от Nightmarе
Так всё-же может кто подкинуть код как скопировать файл если он занят другим процэссом???
Вот например:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
infs,outfs: tfilestream;
begin
infs := tfilestream.create( edit1.text, fmopenread );
outfs := tfilestream.create( edit2.text, fmcreate );
infs.free;
outfs.free;
end;
При занятости файла уведомляет ошибочкой, может fmopenread можно на что то заменить? ЧТобы было только чтение, а не открытие файла. Стоит попробовать заменить TFileStream на TMemoryStream и загружать методом loadFromFile вроде! Да кроме того кажется там есть флаг при открытии - fmRead!
|
|
|
27.03.2009, 17:27
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
MemoryStream - сегодня пробовал, тоже самое.
fmRead - нету такого.
|
|
|
|
27.03.2009, 17:48
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
попробуй так
infs := tfilestream.create( edit1.text, fmopenread, fmsharecompat );
вроде должно получится...
хотя может другая прога просто закрыла доступ к файлам. в принципе)))
|
|
|
|
28.03.2009, 12:00
|
|
Познающий
Регистрация: 28.03.2009
Сообщений: 30
Провел на форуме:
453605
Репутация:
1
|
|
Хелп, как определить системный каталог windows?
|
|
|
|
28.03.2009, 12:45
|
|
Новичок
Регистрация: 27.03.2009
Сообщений: 12
Провел на форуме:
17616
Репутация:
0
|
|
Сообщение от gLuk!
Хелп, как определить системный каталог windows?
Для этого необходимо использовать API-функцию:
GetSystemDirectory(Buffer: PChar; Size: Word);
Параметры
Buffer: Пpинимающий буфеp.
Size: Размеp буфеpа (не менее 144 символов).
|
|
|
|
28.03.2009, 13:48
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от gLuk!
Хелп, как определить системный каталог windows?
SelectDirectory, rxLib: TDirectoryEdit -вывод диалога выбора каталога
GetWindowsDirectory -каталог Windows
FillChar(PathArray,SizeOf(PathArray),#0);
GetWindowsDirectory(PathArray,255);
WindowsDirLabel.Caption:=Format('%s',[PathArray]);
Вместо WindowsDirLabel.Caption введешь то, куда тебе нужно написать путь к системному каталогу
Последний раз редактировалось KaZ@NoVa; 28.03.2009 в 15:27..
|
|
|
|
28.03.2009, 14:30
|
|
Познающий
Регистрация: 28.03.2009
Сообщений: 30
Провел на форуме:
453605
Репутация:
1
|
|
спс
|
|
|
|
28.03.2009, 16:56
|
|
Познающий
Регистрация: 21.03.2009
Сообщений: 32
Провел на форуме:
339263
Репутация:
1
|
|
как сделать в паскале вопросы...
через текстовый документ?
т.е я хочу сделать так=>
в блокноте записать:
вопрос
1)вариант ответа
2)вариант ответа
3)вариант ответа
первый-верный!
нужно сделать так что бы он (верный ответ) на экран не выводился...
надеюсь поняли...
|
|
|
|
28.03.2009, 17:35
|
|
Познающий
Регистрация: 28.03.2009
Сообщений: 30
Провел на форуме:
453605
Репутация:
1
|
|
Я тебя плохо понля, ты имеешь ввиду файл типа:
-------------------------
Вопрос
Вариант 1
вариант 2
вариант 3
Номер правильного ответа
-------------------------
?
Ты хочешь что ли сделать вывод вопросов с 3 вариантами ответа? я правильно понял ?
|
|
|
|
28.03.2009, 18:55
|
|
Познающий
Регистрация: 29.06.2008
Сообщений: 32
Провел на форуме:
22365
Репутация:
24
|
|
WiPztin
Я помню давненько писал приблизительную программку.Лови архив в нем исходники этой программы.Думаю разберешься,ничего сложного нет и если нужно допишешь по своему желанию.
_http://www.rapidshare.ru/984832
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
