Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: programmer  
have okno
13GetДата: Воскресенье, 22.02.2009, 20:49 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 19
Награды: 0
Репутация: « 0 »
Статус: Offline
Как сделать: хочу, чтоб появлялось окно, при нажатии на кнопку в папку извлекались файлы?
 
programmerДата: Понедельник, 23.02.2009, 21:09 | Сообщение # 2
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
Quote (13Get)
извлекались файлы?

Откуда?
Ты хочешь инстанилятор сделать?
 
13GetДата: Вторник, 24.02.2009, 19:11 | Сообщение # 3
Новичок
Группа: Пользователи
Сообщений: 19
Награды: 0
Репутация: « 0 »
Статус: Offline
Нет, просто окно, при нажатии на кнопку в папку извлекаются файлы. Просто хочу заделать программу, которая бы извлекала мои флешки
 
programmerДата: Вторник, 03.03.2009, 16:55 | Сообщение # 4
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
тебе какие файлы надо копировать?Сейчас попробовал создать процедуру копирования файлов - копирует тока
.txt
 
programmerДата: Воскресенье, 08.03.2009, 10:43 | Сообщение # 5
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
блин.это я тупил.сейчас попробую.Тока надо будет чтобы на флэхе файлы в корне хранились.
 
programmerДата: Понедельник, 09.03.2009, 12:05 | Сообщение # 6
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
вот процедура копирования файла

procedure copyfile(what:string;new:string);
var a,b:file;c:integer;
begin
assign(a,what);
assign(b,new);
reset(a,1);
rewrite(b,1);
repeat
blockread(a,c,1);
blockwrite(b,c,1);
until Eof(a);
end;

 
programmerДата: Суббота, 04.04.2009, 10:34 | Сообщение # 7
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
а дальше незнаю surprised надо как то список файлов получить...
 
  • Страница 1 из 1
  • 1
Поиск: