$sFile = FileOpenDialog ( "Выберите файл...", "", "Приложения (*.exe)|Все файлы (*.*)", 1, "" )
If @Error Then Exit
$hFile = FileOpen ( $sFile, 16 )
If $hFile = -1 Then
MsgBox(16,"Ошибка","Не удалось открыть файл")
Exit
EndIF
$sRead = FileRead ( $hFile )
FileClose ( $hFile )
If ClipPut($sRead) Then
MsgBox(64,"ОК","Скопировано в буфер обмена")
Else
MsgBox(16,"Ошибка","Содержимое не скопировано")
EndIF