VPF::Как установить иконку на рабочем столе

DIMONSOFT

Дата 22.7.2005, 20:12 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: -1
Всего: -3

сабж

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

Poseidon

Дата 22.7.2005, 20:52 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Чо-то не совсем я понял. А понял так.
Иконка - .ico файл
Её название и координаты - путь к этому файлу
Установить на рабочем столе - ???

Что имеется ввиду?
Если просто скопировать иконку на рабочий стол, то http://vingrad.ru/DELPHI-DLP-001014
Если создать на рабочем столе ярлык, то http://vingrad.ru/DELPHI-DLP-000620

PS. Путь к рабочему столу можно получить с помощью этой функции:

Код

uses ShlObj;

function GetPathStartUpFolder(Folder:integer):string;
var
  s: PChar;
  p: PItemIDList;
begin
  s := StrAlloc(128);
    p := nil;
    SHGetSpecialFolderLocation(Form1.Handle,Folder, p);
    SHGetPathFromIDList(p, s);
    Result:= s;
end;

В Folder, для рабосего стола, нужно передавать CSIDL_DESKTOPDIRECTORY

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

DIMONSOFT

Дата 25.7.2005, 20:18 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: -1
Всего: -3

Извеняюсь, не установить, а изменить координаты иконки на рабочем столе(например "Мой компьютер"...)

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

Rrader

Дата 26.7.2005, 04:09 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Код


...
Uses CommCtrl;
...
Procedure TForm1.Button1Click(Sender: TObject);
Var
 {Позиция от начала ListView}
  FPoint: TPoint;
  Desktop: THandle;
Begin
  FPoint.X := 100;
  FPoint.Y := 100;
  Desktop := FindWindowEx(FindWindowEx(FindWindow('Progman', NIL),
    0 , 'SHELLDLL_DefView', NIL), 0, 'SysListView32', NIL);
  SendMessage(Desktop, LVM_SETITEMPOSITION32, {индекс}0, LongInt(@FPoint));
End;

Принцип понятен, если что, то смотри ListView Reference.

Это сообщение отредактировал(а) Rrader - 26.7.2005, 07:56

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

Let's do this quickly!
Rest in peace, Vit!

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