太平洋来的风

如何在程序里判断一个打印作业已经进入打印队列（也就是可以在打印管理程序里看到该作业的信息），或者说如何察看打印队列里已有的作业信息？  
   
  看下面的这个例程。还有测试代码。  
   
  uses   WinSpool;    
  type   JOB_INFO_1_ARRAY   =   Array   of   JOB_INFO_1;    
  Function   GetSpoolerJobs(sPrinterName   :   String)   :   JOB_INFO_1_ARRAY;    
  var    
  i   :   Integer;    
  hPrinter   :   THandle;    
  bResult   :   Boolean;    
  cbBuf   :   DWORD;    
  pcbNeeded   :   DWORD;    
  pcReturned   :  

  Shelltpara='a   -ad   -y  -dh  -ep1  '+' "'+allt(thisform.bkfile.value)+'" '+'    "'+thisform.comment+'\sur"'  &&messageb("rar.exe  "+Shelltpara)
  oShell=Createobject("Wscript.shell")
  oShell.Run("rar.exe  "+Shelltpara,0,.T.)

if director('&filen0.')
   commandstr= 'dele file   '+  ' "&filen0.\*.*" '   &&   messagebox(commandstr)
   &commandstr.
   commandstr= 'rd '+'  "&filen0."'  &&    messagebox(commandstr)
  

s = new Sound();
s.attachSound("aaaa");
s.start(0,1);

s :Sound= new Sound();
s.attachSound("aaaa");   // 不能用=
s.start(0,1);

var song_sound:Sound = new Sound();
song_sound.attachSound("aaaa");
S.onRelease = function() {
    song_sound.start();
};
SS.onRelease = function() {
    song_sound.stop();
};

1。创建一个图片元件

2。拉入场景，属性改为movie ,命名n

3。选中n,F9

onClipEvent (mouseDown) {
    colorA   =   new   Color(_root.n);
    colorA.setTransform(ChangeOrange());
 }
onClipEvent (keyDown) {
    colorA   =   new   Color(_root.n);
    colorA.setTransform(ChangeOrange());
 } 
onClipEvent (load){
 function   ChangeOrange   ()   {  
  change_color   =   new   Object();  
  change_color.rb   =   random(255);    
  change_color.gb 

制作过程：

1.添加一个文本框（动态）,邦定变量 AA

2.建立一个文本文件 aa.txt 内容为: AA=XXXXXXXXXXXXXXXXXXX

3.拉入三个按钮(共一帧)

第一帧代码：

System.useCodepage = true;
loadVariablesNum("AA.txt", 0);
//loadVariables("AA.txt");  

var flag=false; //什么时候可以拖动
var pos=0;//感知向上还是向下

向上按钮代码（name=upp）：

on (release, keyPress "<Up>") {
 _root.AA.scroll=AA.scroll-1;
}

向下按钮代码(name=Down)：

on (release, keyPress "<Down>") {
 _root.AA.scroll=AA.scroll+1;
}

滑块按钮代码(name=hk)：

on (press) {