Возможно так:
Код:
Opt("TrayIconDebug",1)
Global $iCount = 1
Global $sFile = @DesktopDir & "\Lines.txt"
HotKeySet("{ESC}", "_Exit")
HotKeySet("{SPACE}", "_CopyToClipBoard_Proc")
_CopyToClipBoard_Proc()
While 1
Sleep(100)
WEnd
Func _CopyToClipBoard_Proc()
$sLine = FileReadLine($sFile, $iCount)
If @error Then
MsgBox(16, "Сообщение системы - Ошибка!", "Ошибка при чтений файла (возможно достигнут конец файла).")
Exit
EndIf
ClipPut($sLine)
ToolTip('$iCount = ' & $iCount, 0, 0)
$iCount += 1
EndFunc
Func _Exit()
Exit MsgBox(48, "Сообщение системы", "Скрипт завершен")
EndFunc
?
