VPF::Win32::Shortcut - странное поведение ярлыков

aksined

Дата 11.9.2008, 19:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Добрый день
Код рабочий. Ярлыки создаются. Непонятный аспект:
Ярлыки для папок и ехе-шника работают адекватно.
А вот с ярлыками на файлы cmd что-то совсем непонятное. При клике по ним вроде бы ничего не происходит (ожидается открытие консольного окна). На самом деле скрипт запускается и отрабатывает то, что от него требуется. Если в конце поставить pause, то в менеджере задач висит процесс. Такое ощущение, что окно консоли просто скрыто (hidden). Если его активировать, то весь вывод цмд-шника в нём будет.
Если же открыть свойства ярлыка и произвести незначащие действия, например удалить комментарий, после этого ярлык ведёт себя нормально - при старте открывается окно консоли (всё как обычно).
Получается, что перл создаёт какой-то странный ярлык

Для полноты картины привожу полный листинг:

Код


#!perl -w
use strict;
use Win32::Shortcut;
my $target = $ARGV[0];
my %h = ( 'open' => 'open',
            'secret' => 'secret',
            'crypt.cmd' => 'зашифровать',
            'decrypt.cmd' => 'расшифровать',
            'notepad.exe' => 'блокнот',
        );
for my $cur (keys %h) {
    my $link = Win32::Shortcut->new();
    $link->{'Path'} = "$target\\$cur";
    $link->{'WorkingDirectory'} = "$target";
    $link->{'Description'} = $h{$cur};
    (my $path = $ENV{'userprofile'}) =~ s!\\!/!g;
    if(-d "$path/Desktop"){ $path .= '/Desktop' }
    elsif(-d "$path/Рабочий стол"){ $path .= '/Рабочий стол' }
    else {
        print "There isn't 'Desktop' in userprofile, therefore you should create links manually\nPress <Enter> for exit...";
        <>;
        exit;
    }
    $link->Save("$path/$cur.lnk");
    $link->Close();
}

Это сообщение отредактировал(а) aksined - 11.9.2008, 19:57

nitr

Дата 12.9.2008, 01:03 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 2
Всего: 84

Да, интересно. Проблема есть. А начинает работать ярлык при любом изменении ярлыка, т.е. когда вы применяете изменения, то Windows корректно записывает этот ярлык.lnk.

Добавлено через 12 минут и 51 секунду
Да и размер разный получается...

Добавлено через 13 минут и 10 секунд
Если никто не подскажет smile

то пишите в bugtrack автору.

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

I love ArchLinux

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