home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / dsl / NVinst.exe / Scripts / Scripter / CopyImgExport.nvs < prev    next >
Encoding:
Text File  |  2007-02-10  |  519 b   |  26 lines
  1. program CopyImgExport;
  2.  
  3. {
  4. This script copies Visual Map images after export to specified by CopyToPath directory
  5. }
  6.  
  7. const CopyToPath='C:\MapExport\';
  8. var e,v1,v2:integer;
  9.     lst:TNVList;
  10. Begin
  11. CreateDirectory(CopyToPath);
  12. lst:=TNVList.Create;
  13. repeat
  14.  e:=WaitEvent(v1,v2);
  15.  if(e=NMNP_ACTION)and(v2<>0)then
  16.   begin
  17.   lst.GETLIST(v2,0);
  18.   if lst.id=v2 then
  19.    begin
  20.    CopyFile(nv_directory+'Export\'+lst.lname+'.gif',CopyToPath+lst.lname+'.gif',false);
  21.    end;
  22.   end;
  23.  until e=0;
  24. lst.Free;
  25. End.
  26.