VPF::Вопросы по ярлыкам на рабочем столе

Данкинг

Дата 15.3.2008, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Решил 2 вопроса объединить в одну тему. Итак, как можно:
1) Узнать число ярлыков на рабочем столе?
2) Задать координаты для того или иного ярлыка?

--------------------

There's nothing left but silent epitaphs.

kemiisto

Дата 15.3.2008, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

Цитата(Данкинг @ 15.3.2008, 19:28

)

1) Узнать число ярлыков на рабочем столе?

Может просто подсчитать суммарное количество *.lnk в С:\Documents and Settings\User\Рабочий стол\ и C:\Documents and Settings\All Users\Рабочий стол\ ?

Цитата(Данкинг @ 15.3.2008, 19:28

)

2) Задать координаты для того или иного ярлыка?

А такое вообще возможно?

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

THandle

Дата 15.3.2008, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Код


function ListLinks(Dir: string) : integer;
var
  rSearchRec: TSearchRec;
begin
  result := 0;
  Dir := IncludeTrailingBackslash(Dir);
  if FindFirst(Dir + '*.*', faAnyFile, rSearchRec) = 0 then
    repeat
        if CompareText(ExtractFileExt(rSearchRec.Name) , '.lnk') = 0 then
          inc(result);
    until FindNext(rSearchRec) <> 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(ListLinks('C:\\Documents and Settings\THandle\Рабочий стол\')));
end;

На второй не буду отвечать по двум причинам:
1. Один топик - один вопрос

kemiisto

Дата 15.3.2008, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

Вот нашел что-то по сабжу: http://www.delphisources.ru/pages/faq/base..._links_pos.html

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

Данкинг

Дата 15.3.2008, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(THandle @ 15.3.2008, 19:44)

На второй не буду отвечать по двум причинам:
1. Один топик - один вопрос

А вторая причина какая? smile

Я просто не вижу смысла две похожих темы создавать. За процедуру спасибо, когда попробую - скажу.

Добавлено через 46 секунд

Цитата(kemiisto @ 15.3.2008, 19:48)

Вот нашел что-то по сабжу: http://www.delphisources.ru/pages/faq/base..._links_pos.html

Так это и в Delphiworld есть, только я не понял, при чём там ListView и как вообще сиё юзать...

--------------------

There's nothing left but silent epitaphs.

THandle

Дата 15.3.2008, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Цитата(Данкинг @ 15.3.2008, 20:37

)

Так это и в Delphiworld есть, только я не понял, при чём там ListView и как вообще сиё юзать...

Так ведь рабочий стол это и есть ListViev.

Данкинг

Дата 15.3.2008, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(THandle @ 15.3.2008, 20:40)

Так ведь рабочий стол это и есть ListViev.

Значит, прямо так и юзать, как там написано, что ли. ОК, попробуем тоже.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »