Пятница, 29.03.2024, 16:42 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Как программно удалить ярлыки с рабочего стола? (Маленькая шутка)
Как программно удалить ярлыки с рабочего стола?
DelДата: Понедельник, 20.08.2012, 14:01 | Сообщение # 1
Участник
Зарегистрирован: 20.08.2012
Группа: Пользователи
Сообщений: 69
Статус: Offline
Здравствуйте! Я хотел бы узнать как программно удалить ярлыки с рабочего стола. Может кто ни-будь знает?
 
xXxSh@dowxXxДата: Понедельник, 20.08.2012, 16:25 | Сообщение # 2
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Quote (Del)
Я хотел бы узнать как программно удалить ярлыки с рабочего стола. Может кто ни-будь знает?

так же как и любой другой файл из папки "C:\Documents and Settings\Администратор\Рабочий стол" (только вместо Администратор имя вашей учетной записи), и расширение у удаляемых файлов будет .ink


Сообщение отредактировал xXxSh@dowxXx - Понедельник, 20.08.2012, 16:38
 
anunimus2Дата: Понедельник, 20.08.2012, 16:32 | Сообщение # 3
Группа: Удаленные



Code
procedure linkdelete;
var
s: string;
SR:TSearchRec;
FindRes:Integer;
            begin
s:=GetEnvironmentVariable(userprofile) +'/Рабочий стол/'
       FindRes:=FindFirst(s+'*.*',faAnyFile,SR);        

       While FindRes=0 do        
          begin
              if ((SR.Attr and faDirectory)=faDirectory) and       
             ((SR.Name='.')or(SR.Name='..')) then        
                begin       
                   FindRes:=FindNext(SR);        
                   Continue;        
                end;

  if FileGetAttr(s+SR.Name) and faSymLink > 0  then  DeleteFile(s+SR.Name)       

              
             FindRes:=FindNext(SR);       
          end;       
       FindClose(SR);

end;
как то так


Сообщение отредактировал anunimus2 - Понедельник, 20.08.2012, 16:56
 
DelДата: Понедельник, 20.08.2012, 18:40 | Сообщение # 4
Участник
Зарегистрирован: 20.08.2012
Группа: Пользователи
Сообщений: 69
Статус: Offline
Спасибо.
 
dolphinДата: Пятница, 24.08.2012, 11:06 | Сообщение # 5
Администратор
Сообщений: 906
Статус: Offline
Удалит все ярлыки
 
DelДата: Пятница, 24.08.2012, 11:42 | Сообщение # 6
Участник
Зарегистрирован: 20.08.2012
Группа: Пользователи
Сообщений: 69
Статус: Offline
Так и надо.
 
delphicode » Delphi » Вопросы по Delphi » Как программно удалить ярлыки с рабочего стола? (Маленькая шутка)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz