CMD/BAT

Iska · Отправлено: **13:56, 30-07-2013** | #2

Нет. Только с помощью каких-либо приложений или утилит, встроенных, або сторонних. Можете сделать сие на PowerShell.

Цель глобальная какова?

icq99999999 · Отправлено: **14:07, 30-07-2013** | #3

Цитата Iska:

Цель глобальная какова? »

просто нужно на несколько секунд показать картинку

Iska · Отправлено: **14:57, 30-07-2013** | #4

icq99999999, я спрашивал про глобальную цель, а не частную. Зачем нужно показывать картинку на несколько секунд?

NibelungXXX · Отправлено: **16:12, 30-07-2013** | #5

Код:

start /wait /b C:\1.jpg
timeout /t 05
taskkill /F /IM FSViewer.exe

C:\1.jpg - путь к файлу
timeout /t 05 - задержка, 5 секунд поставлена тут;
taskkill /F /IM FSViewer.exe - закрытие программы через которую запустилась картинка, у меня по умолчанию стоит программа FSViewer, через нее открывается, и через 5 секунд закрывается.

Или я тебя не понял и тебе надо, чтоб анимация по рабочему столу бегала твоя без всяких приложений? тогда это уже не батник тебе надо

Iska · Отправлено: **16:22, 30-07-2013** | #6

Цитата NibelungXXX:

Через которую открывалась у тебя можешь глянуть: свойство картинки-там сразу написано, через что по умолчанию открывается »

Например, через Adobe Photoshop

.

NibelungXXX · Отправлено: **16:35, 30-07-2013** | #7

Iska, так не понятно же что он хочет) и врятли через фотошоп открывается по умолчанию картинка))) но думаю он хочет чтоб у него картинка бегала его по рабочему столу))) делфи в помощь))

Как минимум Delphi 2007в нее входит модуль GifImg, который позволяет проигрывать Gif анимацию.

Ниже привожу пример его использования (Gif анимация в Delphi) :

На форме надо разместить компонент TImage и TButton и в папку с проектом скопировать Gif файл.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, GifImg;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Gif: TGifImage;

implementation

{$R *.dfm}

//При нажатии на кнопку загружаем анимацию в Image1
procedure TForm1.Button1Click(Sender: TObject);
begin
//создаем объект gif
    Gif := TGifImage.Create;
//загружаем gif файл
    Gif.LoadFromFile('имя файла.gif');
//включаем анимацию
    Gif.Animate := True;
//задаем ширину и высоту объекта Image1 по размерам Gif
    Image1.Width:=Gif.Width;
    Image1.Height:=Gif.Height;
//Подключаем Image1 к Gif
    Image1.Picture.Assign(Gif);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//освобождаем объект Gif
 Gif.Free;
end;

end.

шаблон прикрепил, закрывается через диспетчер задач