Код:
$sFileType = _FileGetType("C:\boot.ini")
MsgBox(64, 'Title', $sFileType)
Func _FileGetType($sFile)
Local $iOld_Opt_EES = Opt("ExpandEnvStrings", 1)
Local $sRegDefault, $sRegType = "", $sExt
If _FileIsFolder($sFile) Then
$sRegDefault = RegRead("HKCR\Folder", "")
If $sRegDefault <> "" Then $sRegType = $sRegDefault
Else
$sExt = StringRegExpReplace($sFile, '^.*\.(.{0,5})$', '.\1')
If @extended = 0 Or $sExt = $sFile Then
$sExtSaerch = FileFindFirstFile($sFile & ".*")
$sExt = StringRegExpReplace(FileFindNextFile($sExtSaerch), '^.*\.', '.')
$sFile &= $sExt
EndIf
$sRegDefault = RegRead("HKCR\" & $sExt, "")
If $sRegDefault <> "" Then $sRegType = RegRead("HKCR\" & $sRegDefault, "")
If $sRegType = "" Then $sRegType = $sExt & "-File"
EndIf
Opt("ExpandEnvStrings", $iOld_Opt_EES)
Return $sRegType
EndFunc
Func _FileIsFolder($sPath)
Return StringInStr(FileGetAttrib($sPath & "\"), "D")
EndFunc
Цитата Nik_rus:
|
Shift, alt, ctrl могут не работать, если основная раскладка не русская. »
|
Первый раз слышу. Из за раскладки может неправильно определяться буква c, поэтому лучше делать так:
Код:
_SendEx("^c")
Func _SendEx($sKeys, $iFlag=0)
If @KBLayout = 0419 Then
Local $aANSI_Chars = StringSplit("ёйцукенгшщзхъфывапролджэячсмитьбю.?", "")
Local $aASCII_Chars = StringSplit("`qwertyuiop[]asdfghjkl;'zxcvbnm,./&", "")
For $i = 1 To $aANSI_Chars[0]
$sKeys = StringReplace($sKeys, $aASCII_Chars[$i], $aANSI_Chars[$i])
Next
EndIf
Return Send($sKeys, $iFlag)
EndFunc
А конкретно для копирования, лучше вовсе так:
Send("^{INS}")
