1.334556IconLook Version 1.0 By David Pitts NOTICE: YOU MUST DOWNLOAD VBRUN100.DLL IN ORDER TO RUN THIS PROGRAM! Again, NOTICE: YOU MUST DOWNLOAD VBRUN100.DLL IN ORDER TO RUN THIS PROGRAM! This program has been written in Visual Basic. The program itself is very simple. It is only useful for viewing icons. It will not edit them or use them in any useful way. I wrote this program in a couple of hours. I have barely begun to use Visual Basic and already I am amazed at its power. Visual Basic handles all the hard work in this program. It creates the entire interface including the drive box, the directory box, the file box, and the menus. A skilled Visual Basic programmer (not me) could have written this program in less than five minutes. I don't know about you but to me that is impressive. If you have always wanted to write programs for Windows but were afraid of the SDK (Software Developers Kit) then this program is for you. To give you an example of just how overly simple this program is, below is listed the complete source code for the entire program. NO KIDDING. Global Drive$ Sub Drive1_Change () On Error GoTo ErrHand2 Dir1.Path = Drive1.Drive . Exit Sub ErrHand2: ErrorHandle Resume Next End Sub Sub Dir1_Change () File1.Path = Dir1.Path End Sub Sub File1_DblClick () On Error GoTo ErrHand If Right$(Dir1.Path, 1) <> "\" Then p$ = "\" Else p$ = "" text1.text = Dir1.Path + p$ + File1.Filename If Right$(text1.text,3)="ico" Then Picture1.Picture=LoadPicture(text1.text) EndIf Exit Sub ErrHand: ErrorHandle Resume Next End Sub Sub FileAbout_Click () AboutForm.Show 1 End Sub Sub FileExit_Click () End End Sub Sub Form_Load () Drive$ = Drive1.Drive End Sub Sub ErrorHandle () Select Case Err Case 481 Picture1.Picture = BadIcon.Icon Case 68 Drive1.Drive = Drive$ MsgBox "That drive is currently unavailable" Case Else End Select End Sub Sub Command1_Click () AboutForm.Hide EndSub How to use IconLook Give me a break! What is there to it? If you can't figure out how to use this one then you certainly don't need to be programming no matter how simple the language is to use. (Those of you that are actually reading this before running the program IconLook should run the program to see how simple it is to operate. You also get a gold star.) There are some rules however. IconLook, like all Visual Basic applications requires that the file VBRUN100.DLL be located somewhere in your path. I always keep mine in my windows directory. This works even if your windows directory is not in your path. IconLook will only look at files that have an .ICO extension. If you try to view an .ICO file that is an old or incorrect format the Icon will say (disingenuously) Bad Icon. Disclaimers and Copyright stuff I think that this program works. It does not ever write anything to disk so I believe it to be totally safe in every way. I will not accept any responsibility for anything that goes wrong even if this program does have something to do with it which is incredibly unlikely. While I do not choose to charge for this program at this time I reserve all rights to it. This software is distributed under the FOOLWARE concept. I would be a fool if I thought you would send me any money for it even if I asked for some. Nor should you even if I asked for some. REAL shareware products should be supported if you use them. By real shareware I mean REAL programs like PC-Write and Qmodem and List and PC-File and tons of other really good products. On the other side of the coin however are snivelling little programs that barely (or even sometimes don't ) do what they say and do it poorly. Throw those guys away and if the author was kind enough to give you his address write him a letter to tell him not to flood the market with low quality crapware. I like to write simple programs that barely do what they say (and sometimes they do it poorly) but I never charge anything for them. That should exempt me from any nasty letters. If you have anything nice to say you may contact me at CLAGRAPH on GEnie, or write me at PO Box 560275 Charlotte, NC 28256. I found out a long time ago that if I give out my home address some bozo on the west coast will call information to get my number and call me at 2 a.m. EST and ask me to make an enhancement. My wife is always less than amused. Speaking of enhancements, I may make some to this program or I may not. You have a complete listing of the source code so you could do some fancy cut and paste make the enhancements yourself. If you do make any enhancements I would appreciate a copy of the revised program. At any rate, since I make my living by other means that writing software (well, what a surprise) I cannot promise any ongoing support or upgrades. If you leave email for me on GEnie I will try to answer your questions. Acknowledgements The FOOLWARE concept is not original and I don't even know who I stole it from, but I owe him or her a great debt of thanks. It has changed my life. David Pitts 7-4-91 ht$(Dir1.Path, 1) <> "\"wsplhd`\XTPLXG<0  w s` oe k g c _3 [7 W> SF O KXG w s o k g c _2[6WSOKXG wso=kFgc _2[6WSOKXGxxxxuuuAuCujuluuuuu  +9DUfoqOw  )+BGPRd&`sxx3 u5 u u u rr or t xxx5x7x%x'x9urrrrrr u u rr of=/2@ P89( directory. This works evhitory is not in your path. IconLook will only look at files that have an .ICO extension. If you try to viNEWCENTURYSCHLBK Helv Tms Rmn format the Icon will say (disingenuously) Bad Icon. Disclaimers and Copyright s