AutoHotkey Community

#SingleInstance, Force
SetBatchLines -1
SetWorkingDir, %A_ScriptDir%
IfNotExist, WinAPI.txt
   UrlDownloadToFile, http://www.autohotkey.net/~Skan/Utils/MSDN/WinAPI.txt, WinAPI.txt
FileRead, Data, WinAPI.txt
VarSetCapacity( SS,20,32 ), Ctr := 0
Loop, Parse, Data, `n, `r
{ StringSplit, F, A_LoopField, `,
  ExpF .= SubStr( F3 SS,1,19) "|" SubStr( F2 SS,1,19) "|" F1 "`n", CTR := CTR+1
} StringTrimRight, ExpF, ExpF, 1
Gui, Font, s10, Tahoma
Gui, Add, Edit, w439 h20 -E0x200 UpperCase hWndhEdit cAA1010 Border vQuery gSTimer
SendMessage, 0xD3, 0x1,5,, ahk_id %hEdit%
Gui, Add, ListView, Yp+19 R15 w439  -E0x200 +Border gDClick, Function|Library|Link
LV_ModifyCol( 1, "290" ),LV_ModifyCol( 2, "125" ), LV_ModifyCol( 3, "0" ), Data := ""
Gui, Show,, MSDN - %CTR% Documented API Functions
Loop, Parse, ExpF, `n
     LV_Add("",SubStr(A_LoopField,41 ),SubStr(A_LoopField,21,19),SubStr(A_LoopField,1,19))
Return

#SingleInstance, Force
SetBatchLines -1
SetWorkingDir, %A_ScriptDir%
IfNotExist, WinAPI.txt
   UrlDownloadToFile, http://www.autohotkey.net/~Skan/Utils/MSDN/WinAPI.txt, WinAPI.txt
FileRead, Data, WinAPI.txt

Gui, Font, s10, Tahoma
Gui, Add, Edit, w439 h20 -E0x200 UpperCase hWndhEdit cAA1010 Border vQuery gSTimer
SendMessage, 0xD3, 0x1,5,, ahk_id %hEdit%
Gui, Add, ListView, Yp+19 R15 w439  -E0x200 +Border gDClick, Function|Library|Link
LV_ModifyCol( 1, "290" ),LV_ModifyCol( 2, "125" ), LV_ModifyCol( 3, "0" )
Gui, Show,, MSDN - %CTR% Documented API Functions
Loop, Parse, Data, `n
{
  StringSplit, F, A_LoopField, `,
     LV_Add("",F1,F2,F3)
}
Return

; WinAPI Listing - By SKAN ( arian.suresh@gmail.com )         |  CD:20090109 / LM:20090116

#SingleInstance, Force
SetBatchLines -1
SetWorkingDir, %A_ScriptDir%
IfNotExist, WinAPI.txt
   UrlDownloadToFile, http://www.autohotkey.net/~Skan/Utils/MSDN/WinAPI.txt, WinAPI.txt
FileRead, Data, WinAPI.txt

Gui, Font, s10, Tahoma
Gui, Add, Edit, w839 h20 -E0x200 UpperCase hWndhEdit cAA1010 Border vQuery gSTimer
SendMessage, 0xD3, 0x1,5,, ahk_id %hEdit%
Gui, Add, ListView, Yp+19 R35 w839  -E0x200 +Border gDClick, Function|Library|Link
LV_ModifyCol( 1, "490" ),LV_ModifyCol( 2, "125" ), LV_ModifyCol( 3, "200" )
Gui, Show,, MSDN - %CTR% Documented API Functions
Loop, Parse, Data, `n
{
  StringSplit, F, A_LoopField, `,
     LV_Add("",F1,F2,F3)
}
Return

sTimer:
 SetTimer, FunctionSearch, -250
Return

FunctionSearch:
 Critical
 LV_Delete()
 GuiControlGet, Query
 If ( Query="" )
 {
    Loop, Parse, Data, `n
    {
      StringSplit, F, A_LoopField, `,
      LV_Add("",F1,F2,F3)
    }
    Return
 }
 Loop, Parse, Data, `n
 { 
    Result := InStr(A_LoopField, Query) ? 1 : 0
    If ( Result = 1 )
    {
      StringSplit, F, A_LoopField, `,
      Result := InStr(F1, Query) ? 1 : 0
      If ( Result = 1 )
        LV_Add("",F1,F2,F3)
    }
  }
Return

DClick:
 IfNotEqual, A_GuiEvent, DoubleClick, Return
GotoURL:
 Critical
 Row := LV_GetNext( 0, "Focused" ), LV_GetText( Page,Row,3 ), LV_GetText( Func,Row,1 )
 Url1 := "http://www.google.com/search?hl=en&safe=off&as_qdr=all&q="
       . Func "+site%3Amicrosoft.com"
 Url2 := "http://msdn.microsoft.com/en-us/library/" RegExReplace(Page,"\s*$") ".aspx"
 If GetKeyState( "LControl", "P" )
      Run, %Url1%,,Max
 Else Run, %Url2%,,Max
Return