[Creat0R]

Возможно так:

Код:

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

?

[zbruy]

Creat0R, Все гениальное - просто. Шикарно, спасибо, это как раз то, что я и пытался сделать