Personal Computer World 1995 January

home *** CD-ROM | disk | FTP | other *** search

/ Personal Computer World 1995 January / pcw-0195.iso / lowlevel / saver.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-12-31 | 9.4 KB | 237 lines

Form1 Form1 Form15 Timer1 timer1_timer form1 Form_Load timer1v Interval Caption ControlBoxU MaxButtonp MinButtonF Form_MouseDown ButtonL Shiftc Form_MouseMove NCallsj NumCalls| Form_MouseUp PrevInstance Width Height windowstaet WindowState Form_KeyDownJ KeyCode Form_KeyPress KeyAscii3 Form_KeyUp: SetWindowPos SWP_NOMOVE< SWP_NO_SIZE FLAGS SWP_NOSIZEZ HWND_TOPMOST HWND_NOTOPMOST6 form_resize MB_OK MAX_NUM_CALLSV randomLine BorderStyle BackColorK colour MousePointer] GetModuleHandle= lpModuleName GetClassWord nIndex ExtractIconv hInste lpszExeNameo hIconH DrawIcon GWW_HINSTANCE GCW_HMODULE Command1_Click picture1 Picture$ progName picture2 AutoRedrawv KeyStops KeyHitStops MouseMoveStopsr Enabled( Command2_Click ATTR_DIRECTORY Form_Click ListSubDirsU Count- dirName List1 SaverType SAVER_ICONS EndSelectB SubDirs" SAVER_LINES SaverInited randomIconb Picture1_Click1 direcw NumDirecs Command3_Click GetPrivateProfileStringj lpApplicationName lpKeyNamef lpDefault lpReturnedString6 nSize lpFileName WritePrivateProfileString lpString lplFileName& INIGetk vsINISection vsINIVar vsDefaultV sINIFileA sRetStr EXEName INIPut vsValue sINIPathName numIconsu ICON_SIZE SCALE_PIXEL GetPrivateProfileIntO lpAppName nDefault IconsAllGet IconsInPathGet hCurIcon IconsLineDraw template dNumV form2 ScaleWidth3 ScaleHeight ScaleMode Hscroll1 Value GetINI timer Form_LinkError LinkErr Sequence SetCursor hCursor Form_Unload Cancel Form_Paint: API declarations API function used to get form on top API functions used to get hold of program icons Kernel Field offsets for the above... Shell Miscellaneous Constants Used with VB's MsgBoxM Used with VB's Dir contains directories on current drive* gets redimd size of it hIcon() handle on icons in EXEs on drive pixels API functions used to get hold of program icons Kernel Shell Kernel Kernel Kernel Form_Load First port of call for the application. Checks it is not running already and sets up basic form characteristics, etcs Stop a second copy of this program from being run concurrently...) Check if we are doing a setup.. Get Profile Info...# Initialisation Speed Set up basic form properties.... form1.BorderStyle = 0 ..theses form1.ControlBox = False are set form1.MaxButton = False at designe form1.MinButton = False time.. maximised black Form_MouseDown FORM_MOUSEDOWN: As for Form_MouseUp - we don't 'End' until this is called twice. Form_MouseMove FORM_MOUSEMOVE: As for Form_MouseUp -- we don't 'End' until this is called twice. Form_MouseUp FORM_MOUSEUP: First couple of mouse events are a result of loading the app - so we don't 'End' until this is called twice. Form_Paint Get rid of mouse pointer form_resize FORM_RESIZE Gets called after form load or as result ofi minimize/maximize - makes sure that our form is on top and clears screen tooo Should never happen... 'TopMost' API call failed Form_Unload Restore old cursor IconsAllGet Get all subdirectories in the Windows directory on the current drive Could do whole current drive instead, but the scan is slow for big drives windows\ windows\ Probably "C:\windows\" Get hInst from current form's hWmd.. Now load all icons from EXEs in these directoriesa IconsInPathGet ICONS IN PATH GET: Gets all icons embedded in EXEs in path f Current program name handle to program's icon (if any)c Iterate through all EXEs in the path.. *.exe Resize the array.h Increment NumIcons Get another program name. IconsLineDraw SubDirs SUBDIRS - loads all sub-directories of path into direc() and calls itself recursively to load those sub-dirs in too.. lo..hi are index into Direc().. ..defining window of directories dixcovered here current (possible) directory Get first possible directory name... Iterate through entries in path, saving all subdirectories in Direc().. Resize the array. Increment NumDirecs.a Get another directory name Recursively iterate through each of 'our' subdirectories.s timer1_timer TIMER1_TIMER - called every so often - simply does the bit of the drawing* Does initialisation first if SaverInited is falses hInst of this programe handle for retrieved icont Do initialisation if necessary...e pixels Now do the screen ...t make sure our window is on top get rid of mouse pointer Get my hInst from form1's hWmd.. select an icon at random select a display method and do it) Icons drawn in rows.. Drawn in cols.. Drawn in chequered rows.. Drawn in chequered cols..