[Delphi]/[Pascal] Задай вопрос, получи ответ

17.05.2009, 16:12

art2222

Участник форума

Регистрация: 28.04.2008

Сообщений: 172

С нами: 9492347

Репутация: 270

-Hormold-

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  i: Integer;
  pth: String; //Папка
begin
  pth:=ExtractFilePath(ParamStr(0)); //Папка с программой.
  i:=FindFirst(pth+'*',faAnyFile or faDirectory,sr);
  while i=0 do
  begin
    if (sr.Name='.') or (sr.Name='..') then
    begin
      i:=FindNext(sr);
      Continue;
    end;
    if DirectoryExists(pth+sr.Name) then //Если папка
      ListBox1.Items.Add('<a href="/dir-<'+sr.Name+'>">'+sr.Name+'</a>') //Ну или pth+sr.Name (т.е. полный путь)
    else ListBox1.Items.Add('<a href="/file-<'+sr.Name+'>">'+sr.Name+'</a>');
    i:=FindNext(sr);
  end;
  FindClose(sr);
end;

В общем не сильно ругай, компилятора сейчас нет =\

𝕏 Twitter Reddit Telegram Копировать ссылку

Последний раз редактировалось art2222; 17.05.2009 в 16:15..

17.05.2009, 16:17

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

2 art2222
1) DirectoryExists - смысл? если можно сразу проверить при поиске папка это или файл
2) Твой алгоритм заточен для юзанья модуля sysutils а это лишние почти 20 кил к размеру проги )

2 -Hormold- p.s. забыл еще const faDirectory = $00000010;
это чтобы вообще не юзать sysutils; А вообще подобный код я выкладывал в своём micspy он тоже делал поиск файлов и передавал в сокет сразу данные, но там было настроено всё на поиск mp3 файлов

17.05.2009, 16:23

art2222

Участник форума

Регистрация: 28.04.2008

Сообщений: 172

С нами: 9492347

Репутация: 270

Цитата:

1) DirectoryExists - смысл? если можно сразу проверить при поиске папка это или файл

А я забыл как по другому проверить)

17.05.2009, 18:16

$Аватар для /Boom\$

/Boom\

Познающий

Регистрация: 14.02.2008

Сообщений: 62

С нами: 9599589

Репутация: 4

Как сделать ctrl+alt+delete неактивным?

Последний раз редактировалось /Boom\; 17.05.2009 в 18:37..

17.05.2009, 18:43

art2222

Участник форума

Регистрация: 28.04.2008

Сообщений: 172

С нами: 9492347

Репутация: 270

Цитата:

Т.е. например в ячейках СтрингГрида записаны в столбик слова, если какое-либо слово содержится в тексте msg, то записать это слово в memo1, если не содержится, то записать это слово в Мемо2.

Вот так вроде:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to StringGrid1.RowCount do
  //Тут смотрим только первую колонку.
  if pos(StringGrid1.Cells[1,i], MSG) <> 0 then memo1.Lines.Add(StringGrid1.Cells[1,i])
    else memo2.Lines.Add(StringGrid1.Cells[1,i]);
end;

Цитата:

Как сделать ctrl+alt+delete неактивным?

Так

Код:

var 
i : integer;
begin
  i := 0;
  {Отключаем Ctrl-Alt-Del}
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @i, 0);
end.
// Нужен unit WinProcs
// Для Alt-Tab: SPI_SETFASTTASKSWITCH

Последний раз редактировалось art2222; 17.05.2009 в 18:53..

18.05.2009, 10:06

$Аватар для /Boom\$

/Boom\

Познающий

Регистрация: 14.02.2008

Сообщений: 62

С нами: 9599589

Репутация: 4

Помогите плз! Мне надо поставить пароль на программу обычным edit'ом,допустим ввел пароль в едит если он правельный то вылазиет сообщение если нет то выхоит из программы.Искал в гугле с passsworddlg у меня ниего не получается.
Заранее очень благодарен!

18.05.2009, 11:33

RumShun

Постоянный

Регистрация: 27.10.2008

Сообщений: 380

С нами: 9231117

Репутация: 149

у эдита ставишь свойство passwordchar равным *
простая проверка
if pass=edit1.text then application.MessageBox(PChar('твое сообщение'),'заголовок')
else exit;