Egalware/TestEIn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TestEIn :

Browse Source 
- aggiornamenti.
This commit is contained in:
Dario Sassi
2016-09-06 08:15:17 +00:00
parent 09ac61c3e2
commit 596376fd0c
3 changed files with 44 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
GenInterface.vb
+22 -14
View File
@@ -163,22 +163,30 @@ Public Enum SW As Integer
SHOWMAXIMIZED = 3
RESTORE = 9
End Enum
<DllImport("user32.dll", SetLastError:=True)> _
Public Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As Integer
End Function
<DllImport("user32.dll")> _
Public Function SetWindowLong(hWnd As IntPtr, nIndex As Integer, dwNewLong As Integer) As Integer
End Function
Public Const GWL_STYLE As Integer = -16
Public Const WS_SYSMENU As Integer = &H80000
'-------------------------------- File Path ------------------------------------------------------
' Truncates a path to fit within a certain number of characters by replacing path components with ellipses.
' pszOut = The address of the string that has been altered.
' pszSrc = A pointer to a null-terminated string of length MAX_PATH that contains the path to be altered.
' cchMax = The maximum number of characters to be contained in the new string, including the terminating null.
' reserved = Reserved
' Returns TRUE if successful, or FALSE otherwise.
<DllImport("shlwapi.dll", EntryPoint:="PathCompactPathExW", SetLastError:=True, CharSet:=CharSet.Unicode)>
Public Function PathCompactPathEx(
<MarshalAs(UnmanagedType.LPTStr)> pszOut As System.Text.StringBuilder,
<MarshalAs(UnmanagedType.LPTStr)> pszSrc As String,
cchMax As UInteger,
reserved As Integer
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' Truncates a path to fit within a certain number of characters by replacing path components with ellipses.
' pszOut = The address of the string that has been altered.
' pszSrc = A pointer to a null-terminated string of length MAX_PATH that contains the path to be altered.
' cchMax = The maximum number of characters to be contained in the new string, including the terminating null.
' reserved = Reserved
' Returns TRUE if successful, or FALSE otherwise.
<DllImport("shlwapi.dll", EntryPoint:="PathCompactPathExW", SetLastError:=True, CharSet:=CharSet.Unicode)>
Public Function PathCompactPathEx(
<MarshalAs(UnmanagedType.LPTStr)> pszOut As System.Text.StringBuilder,
<MarshalAs(UnmanagedType.LPTStr)> pszSrc As String,
cchMax As UInteger,
reserved As Integer
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
End Module