Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|636\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> File Access

HoboBen	Created : 21 April 2008 Edited : 01 July 2008 System : Windows Language : Cobra LNK Resolver Contains functions to resolve windows shortcut (.lnk) files.
\|edit\| UPDATE: Finished a unit that can read/write windows shortcut files properly: socoder.net/index.php?showcase=14335 \|edit\| A simple unit to resolve windows .lnk shortcut files. I'm planning to restructure this and expand it so that I can return a few more things about the file - e.g. start-in folder, icon path, etc. { LNK Library for Cobra Contains functions to resolve windows shortcut (.lnk) files. --------------------------------------- Copyright (c) 2008 Ben Golightly Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software. --------------------------------------- } Unit Const LNK_FILE_NOT_FOUND = "LNK_FILE_NOT_FOUND" ; Export LNK_COULD_NOT_RESOLVE = "LNK_COULD_NOT_RESOLVE" ; Export Function ResolveShortcut(lnkpath:String, ldebug:Boolean=FALSE) : String ; Export { Attempts to extract all human-readable data from a file, and passes this data to ExtractLnkPath. This function could be expanded to examine .lnk file headers and other information. Observations: [] A .LNK File contains a full path followed by two NULL bytes [] A .LNK File also contains a path punctuated with a NULL byte every other byte, which appears to be the start-in path. } Var lnkrfile: Element lnkbyte: Integer lnkdata: String = "" Begin If ldebug then DumpLnk(lnkpath) If FileExists(lnkpath) then lnkrfile = ReadFile(lnkpath) While Not EOF(lnkrfile) lnkbyte = ReadByte(lnkrfile) If (lnkbyte < 128) then If lnkbyte = 0 then lnkdata = lnkdata + "" // filenames cannot contain asterisk, so use it for null Else lnkdata = lnkdata + Chr(lnkbyte) Endif Endif Wend Closefile(lnkrfile) Result = ExtractLnkPath(lnkdata) Else Result = LNK_FILE_NOT_FOUND Exit Endif End Function ExtractLnkPath(lnkdata:String) : String { Searches for a string matching the pattern [A-Z]:\[string]* } Var i, j : Integer curChar, lastChar, exChar, extractStr : String = "" Begin For i = 1 to Length(lnkdata) curChar = Mid(lnkdata,i,1) If curChar = ":" then If (Asc(lastChar) >= Asc("A")) and (Asc(lastChar) <= Asc("Z")) then extractStr = "" For j = i to Length(lnkdata) exChar = Mid(lnkdata,j,1) If (exChar = "") And (Mid(lnkdata,j+1,1) = "") Then If Length(lastChar+extractStr) > 7 then // Must be at the minimum 8 chars, e.g. C:\a.lnk Result = lastChar+extractStr Exit Endif Else extractStr = extractStr + exChar If (exChar = "*") then j = Length(lnkdata) Endif Next Endif Endif lastChar = curChar Next Result = LNK_COULD_NOT_RESOLVE End Procedure DumpLnk(lnkpath:String) { Dump the contents of the lnk file for diagnosis. } Var lnkrfile, lnkwfile: Element lnkbyte: Integer Begin lnkrfile = ReadFile(lnkpath) lnkwfile = WriteFile(lnkpath+".bin") While Not EOF(lnkrfile) lnkbyte = ReadByte(lnkrfile) WriteByte(lnkwfile,lnkbyte) Wend CloseFile(lnkrfile) CloseFile(lnkwfile) End Begin End --v Here's a simple program to demonstrate (I used the command line shortcut in the start menu, bit it also works if you right click something and just create a shortcut from that menu) Program Uses pure2d, lnk, keyset Var str: String Begin OpenScreen(640,480,32,FALSE,COB_SHOWBORDER+COB_SHOWCLOSE) str = ResolveShortcut("Command Prompt.lnk") While Not ExitRequested Text(20,20,"Shortcut resolved to: "+str) Flip Pause(10) If KeyDown(VK_ESCAPE) then RequestExit Wend End --v It also seems to work on shortcuts to folders

Comments
Tuesday, 22 April 2008, 02:32
Jayenkai	Woot! I tried writing shortcuts in Blitz a few years back. I gave up soon afterwards! Good work, HoboBen
Tuesday, 22 April 2008, 04:53
HoboBen	Oh, I'm not writing them (yet!) I'm just searching for the path inside a .lnk file, so that if you have a file browser written, you can follow all of your messy desktop shortcuts to wherever they may lead. It's a bit hacky, as it's just searching for a path in the format [A-Z]:\[a string] followed by two nulls, but next I want to actually analyze the header so that I can do it a bit more neatly, and get all the attributes in the process... And hopefully, as the very last step, get it to be able to write one... dunno though, windows lnk files are quite cryptic!

LNK Resolver

Comments