| ||||||||
SPX Instant Screen Capture 
| Need a Screen Capture utility? |
|
This Shareware is excellent. It installs in the Windows TaskBar icons and stays discrete. To capture any part of your screen and to send it to:
all you have to do is to right click your mouse for a second or 2, then to use your left mouse button to draw a rectangle around the part of the screen you want to capture and then to release the left mouse button. The part of your screen embedded in the defined rectangle is immediately sent to the SPX destination you have chosen (file, clipboard, printer, Email or graphics editor). You may change any SPX parameter setting by right clicking the SPX icon in the task bar:
A configuration menu gets displayed:
You may select the destination for your captures, the language for the SPX interface (English, French, German, Italian or Spanish), if you want to Capture a Rectangle, a Window, your Desktop or a free hand region. You can set SPX to automatically Email your screen capture image if you use Outlook, Outlook Express, Netscape Messenger or Eudora mail. You can select Options to print in Portrait or Landscape mode and to print Proportional or Fit to Page. One of the most interesting features of SPX Instant Screen Capture is that one can change any of its settings programmatically since these are stored in the Registry. I have developed an APL+Win object called TSPX which allows to programmatically load SPX and then change most of its settings. Here is this object:
’ A TSPX B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z;Śio;Śwself;filename
[1] ©’ A TSPX B -- TSPX Object: template for any new non visual class
[2] ©’ A „… object name
[3] ©’ B „… 'property'
[4] ©’ or 'property'value
[5] ©’ or 'Method'
[6] ©’ or 'Method'argument1 ... argumentN
[7] ©’ (c)2001 Eric Lescasse(26nov01)
[8]
[9] Śio„1
[10] :if 2¬Śnc'A' Ş A„Śwself Ş :end
[11] :select B
[12] :case'New'
[13] Śwself„A Świ'*Create' 'TRegistry'
[14] C„'TSPX"Action"'
[15] C„C,Śtcnl,Świ"*onAction" © inherits from TObject
[16] Z„Świ'*onAction'C
[17] Z„Świ'*‘‘key' 'HKEY_CURRENT_USER\Software\SPX Instant Screen Capture\Configuration'
[18] Z„Świ'*‘‘filename' 'c:\program files\spx instant screen capture\spx.exe'
[19] :case'Action'
[20] :select†Śwarg
[21] :case'class'
[22] Śwres„'TSPX'
[23]
[24] :case'?filename'
[25] Śwres„'Get or set the default file name for the screen capture'
[26] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'filename'{value}"
[27] Śwres„Śwres,Śtcnl,"value: a file name (with no path)"
[28] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'filename' 'This is my picture.gif'"
[29] :case'filename'
[30] K„Świ'*‘‘key'
[31] :if 1=˝Śwarg
[32] Śwres„Świ'QueryValueEx'(K,'\FileName')
[33] :else
[34] C„2śŚwarg
[35] Z„Świ'SetValueEx'(K,'\FileName')C
[36] :end
[37]
[38] :case'?folder'
[39] Śwres„'Get or set the default folder where to save the screen capture'
[40] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'folder'{value}"
[41] Śwres„Śwres,Śtcnl,"value: an existing folder"
[42] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'folder' '\\tpdindo3\'"
[43] :case'folder'
[44] K„Świ'*‘‘key'
[45] :if 1=˝Śwarg
[46] Śwres„Świ'QueryValueEx'(K,'\Folder')
[47] :else
[48] C„2śŚwarg
[49] Z„Świ'SetValueEx'(K,'\Folder')C
[50] :end
[51]
[52] :case'?format'
[53] Śwres„'Get or set the captured graphic format'
[54] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'format'{value}"
[55] Śwres„Śwres,Śtcnl,"value: any of 'bmp' 'jpg' 'gif'"
[56] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'format' 'gif'"
[57] :case'format'
[58] K„Świ'*‘‘key'
[59] D„'bmp' 'jpg' 'gif'
[60] :if 1=˝Śwarg
[61] Śwres„(Świ'QueryValueEx'(K,'\Format'))śD
[62] :else
[63] C„(Śwcall¨(››'CharLower'),¨›¨D)Ľ›Śwcall'CharLower'(2śŚwarg)
[64] Z„Świ'SetValueEx'(K,'\Format')C
[65] :end
[66]
[67] :case'?language'
[68] Śwres„'Get or set the SPX language'
[69] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'language'{value}"
[70] Śwres„Śwres,Śtcnl,"value: any of 'english' 'french' 'german' 'italian' 'spanish'"
[71] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'language' 'french'"
[72] :case'language'
[73] K„Świ'*‘‘key'
[74] D„'English' 'French' 'German' 'Italian' 'Spanish'
[75] :if 1=˝Śwarg
[76] Śwres„(Świ'QueryValueEx'(K,'\Language'))śD
[77] :else
[78] C„(Śwcall¨(››'CharLower'),¨›¨D)Ľ›Śwcall'CharLower'(2śŚwarg)
[79] Z„Świ'SetValueEx'(K,'\Language')C
[80] :end
[81]
[82] :case'?orientation'
[83] Śwres„'Get or set the SPX printing Orientation'
[84] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'orientation'{value}"
[85] Śwres„Śwres,Śtcnl,"value: any of 'Portrait' 'Landscape'"
[86] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'orientation' 'fit to page'"
[87] :case'orientation'
[88] K„Świ'*‘‘key'
[89] D„'Portrait' 'Landscape'
[90] :if 1=˝Śwarg
[91] Śwres„(Świ'QueryValueEx'(K,'\Orientation'))śD
[92] :else
[93] C„(Śwcall¨(››'CharLower'),¨›¨D)Ľ›Śwcall'CharLower'(2śŚwarg)
[94] Z„Świ'SetValueEx'(K,'\Orientation')C
[95] :end
[96]
[97] :case'?scale'
[98] Śwres„'Get or set the SPX printing scale'
[99] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'scale'{value}"
[100] Śwres„Śwres,Śtcnl,"value: any of 'proportional' 'fit to page'"
[101] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'scale' 'fit to page'"
[102] :case'scale'
[103] K„Świ'*‘‘key'
[104] D„'Proportional' 'Fit to page'
[105] :if 1=˝Śwarg
[106] Śwres„(Świ'QueryValueEx'(K,'\Scale'))śD
[107] :else
[108] C„(Śwcall¨(››'CharLower'),¨›¨D)Ľ›Śwcall'CharLower'(2śŚwarg)
[109] Z„Świ'SetValueEx'(K,'\Scale')C
[110] :end
[111]
[112] :case'?sendto'
[113] Śwres„'Get or set where to send SPX capture'
[114] Śwres„Śwres,Śtcnl,"Syntax: 'object'Świ'sendto'{value}"
[115] Śwres„Śwres,Śtcnl,"value: any of 'Clipboard' 'File' 'Mail' 'Printer'"
[116] Śwres„Śwres,Śtcnl,"Example: 'object'Świ'sendto' 'printer'"
[117] :case'sendto'
[118] K„Świ'*‘‘key'
[119] D„'Clipboard' 'File' 'Mail' 'Printer'
[120] :if 1=˝Śwarg
[121] Śwres„(Świ'QueryValueEx'(K,'\SendTo'))śD
[122] :else
[123] C„(Śwcall¨(››'CharLower'),¨›¨D)Ľ›Śwcall'CharLower'(2śŚwarg)
[124] Z„Świ'SetValueEx'(K,'\SendTo')C
[125] :end
[126]
[127] :case'?Load'
[128] Śwres„'Loads SPX Instant Screen Capture and installs it in the Tray Icon'
[129] :case'Load'
[130] filename„Świ'*‘‘filename'
[131] :if'oo'Świ'FileExist'filename
[132] :andif 0=(†Śwcall'FindWindow'0'SPX')+†Śwcall'FindWindow'0'SPX Instant Screen Capture'
[133] Z„Śwcall'WinExec'filename'sw_shownormal'
[134] :end
[135]
[136] :else
[137] Śwres„Świ'*'
[138] :end
[139] :else
[140] Śerror'Unknown TSPX command: ',B
[141] :end
’
Here is an example showing how to use TSPX from an APL+Win application:
Śwself„'spx'Świ'*Create' 'TSPX' 'Load'
Świ'format' 'gif'
Świ'sendto' 'File'
Świ'folder' 'c:\temp'
Świ'orientation' 'landscape'
Świ'scale' 'fit to page'
Świ'language' 'french'
SPX is a really useful piece of software which can make you much more productive. |
