convert a video.avs to a desktop shortcut that vdub can read [SOLVED]

[vhelp]

[SOLVED]

is there a way to manipulate the shortcut so that i can drag it into virtualdub so that it can open the video file ?

-history-
i have a tool that creates very short avisynth scripts..couple lines worth. the tool just helps me open/view the more advanced video files like flv, mpeg2, move, mkv, avc, etc. but without having to go through the complicated steps of preporation. just a simple drag/drop of the video file into the tool and it creates the script. ok. so i have the tool always write the same script filename: video.avs and i put it in the root c:\ drive so its that much simple to get to w/out navigating to complicated folders.

-the problem-
occurs when i go the next step, which is, drag the video.avs file into virtualdub. what i'd like to do is copy the video.avs file as a shortcut on my desktop. the file is no longer recignised. vdub see's .lnk as an unrecignised file. and that's the problem.

other than the mentioned problem, the tool works great. i can drag almost any video file into its window, (it writes the script on screen) and i can do this with many videos very quickly. this is something i always imagined but didn't have the time or energy to start the project.

thank you in advanced.

EDIT: i found an alternate method which saves me from even more juggeling of things.

by finding a windows handle, i.e., virtualdub's, we can send keystrokes to virtualdub's menu and open the last file. this is the method i am using to open the same avs script although the script has a different video filename. at the next juncture, i might look into creating a video viewer built-in. but the method i'm using now is more than enough for my needs.

in case it helps others in similar situation, here's the code i used for my tools purpose:

interface

type
  TForm1 = class(TForm)
    procedure OpenVideo(WinName: string);
  private
    { Private declarations }
    AV: TStrings;
  public
    { Public declarations }
  end;

var
  Form1 : TForm1;

implementation

procedure TForm1.OpenVideo(WinName: string);
var
  fWindow: HWnd; // window handle...i.e., virtualdub
begin
  fWindow := FindWindow(pchar(WinName), nil);
  if IsWindow(fWindow) then begin   // test if wind exist..
    SetForegroundWindow(fwindow);   // ..set focus the found window
    keybd_event(VK_menu, 0, 0, 0);  // alt key press
    keybd_event(Ord('F'), 0, 0, 0); // f key press
    keybd_event(VK_menu, 0, KEYEVENTF_KEYUP, 0); // release alt+f key
    keybd_event(Ord('1'), 0, 0, 0); // 1 key press, from File menu
  end;
end;

procedure TForm1.vdubClick(Sender: TObject);
begin
  // open virtualdub, and send keystroke for \File\1.default.avs
  OpenVideo('VirtualDub');
end;