Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: WinAPI
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
kapala
0 / 0 / 0
Регистрация: 23.12.2012
Сообщений: 10
1

Усложненная задача открытия файла в папке

10.01.2013, 11:49. Просмотров 584. Ответов 1
Метки нет (Все метки)

Вообщем.спасибо всем кто помог,в предыдущих моих вопросах,но усложнилась задача.
вот мой печальный код.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm5.Button2Click(Sender: TObject);
var
f:TextFile;
i,j: integer;
//max: integer ;
//buttonSelected : Integer;
begin
begin
For i:=0 to 500 do
begin
j:=i;
while FileExists(GetCurrentDir +'\Tests\'+ '\Test_' + IntToStr(j) + '.txt')  do
j:=j+1;
assignfile(f, GetCurrentDir +'\Tests\'+ '\Test_' + IntToStr(j) + '.txt');
Rewrite(f);
CloseFile(f);
 if MessageDlg('Создать еще?',mtConfirmation, [mbYes, mbNo], 0)= mrYes
 then  Continue
 else
 if MessageDlg('Создать еще?',mtConfirmation, [mbYes, mbNo], 0)= mrNo
 then break ;
end;
end;
end;
 
procedure TForm5.Button3Click(Sender: TObject);
 
 var
  s: Tstrings;
  i: Integer;
begin
 TestBox1.Clear() ;
  i:=0;
  while FileExists(ExtractFilePath(application.ExeName)+'\Tests\'+'\Test_'+inttostr(i)+'.txt') do  // проверяем файлы тестов
  begin
    TestBox1.Items.Add(ExtractFilePath(application.ExeName)+'\Tests\'+'\Test_'+inttostr(i)+'.txt'); // добавляем в группу тестов название теста
  inc(i);  // увеличиваем счетчик
  end;
end;
на 1 кнопку повешено создание текстового файла в папке,на 2 индексирование файлов в список.
Папка '\Tests\',должна быть под простым паролем виндовса,собсно вопрос-что нужно дописать ,если папка будет запаролена
Кликните здесь для просмотра всего текста
(пока писал решил погуглить и офигел,что на вин7 нет пароля на папку только сторонние приложения либо в Zip)
,то есть единственый вариант это зипнуть?программа может быть поставлена на любой компьютер.Подскажите вообщем как реализовать лучше.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2013, 11:49
Ответы с готовыми решениями:

Найти программу для открытия файла программы Tester
Здравствуйте. Есть программа тестированияTester.exe, файл теста для этой...

Поиск файла в папке
помогите !! Есть richedit в него вводится слово-код после нажатия на enter...

Усложненная задача на перестановки букв в слове
Добрый день! Посчастливилось столкнуться с такой задачей: "Cкoлькo paзличныx...

Усложненная задача - Найти силу торможения
Задача на одной "контрольной" была: Дано: S = 40m; m = 1000kg; t=4s;...

Запуск файла в папке, лежащий в папке с запускающим файлом, с предварительной скачкой данного файла
Вообщем, у меня есть программа, которая должна качать определённый файл с...

1
kapala
0 / 0 / 0
Регистрация: 23.12.2012
Сообщений: 10
12.01.2013, 19:17  [ТС] 2
никто не хочет помочьполазив по сайтам,нашол еще 1 метод-шифрование тхт файла ключом.как его лучше реализовать,чтоб запись и открытие велись на норм языке,а простое открывание в блокноте выдавало абракадабру.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2013, 19:17

Батник; открывать файлы в папке после каждого открытия ждать 2 мин
Помогите написать .bat-ник, который бы открывал файлы из папки через каждые 2...

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

AutoLogger закрывается сразу после открытия Internet Explorer, файл с логами не появляется в папке
Здравствуйте! Для получения помощи в лечении пытаюсь создать логи с помощью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru