Как узнать, что копируется?

[E'rsh]

Извените за тупость - этот вопрос уже поднимался но я не нашел ничего конкретного...

Как узнать какой файл был скопирован (вырезан) и куда был вставлен. И какой текст был скопирован и вставлен. Пользователь будет использовать стандартные функции Windows.

Пожалуйста если можно готовую прогу, часть кода или ссылку, где копать...

Помогите....

[Alexanbar]

С текстом всё довольно просто. Используй объект Clipboard. Помести на форму две кнопки и два текстовых полЯ:

Код: Выделить всё

Private Sub Command1_Click()
If Clipboard.GetFormat(vbCFText) Then

Text2.Text = Clipboard.GetText
Else
    MsgBox "нету"
End If
End Sub

Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Me.Text1.Text, vbCFText
End Sub

Private Sub Form_Load()
Command1.Caption = "Из буфера"
Command2.Caption = "В буфер"
End Sub

[E'rsh]

Alexanbar
Спасибо, работает.

А мона как нибудь отследить изменение или только через таймер

[AjaxVS]

Можно и стандартными спосабами WMI, юзая ExecNotificationQuery... но памяти это жрет много... Больше способов (автоматов) я и не знаю =( Сам хочу решить задачу:
Делать копии всех файлов, перед открытием/изменением... Кто умеет?

[E'rsh]

Я наюзал API функцию "ReadDirectoryChangesW"

Код: Выделить всё

Public Declare Function ReadDirectoryChangesW Lib "kernel32" ( _
   ByVal hDirectory As Long, _
   lpBuffer As Any, _
   ByVal nBufferLength As Long, _
   ByVal bWatchSubtree As Long, _
   ByVal dwNotifyFilter As Long, _
   lpBytesReturned As Long, _
   lpOverlapped As Any, _
   lpCompletionRoutine As Any) As Long

Пример

ReadDirectoryChangesW(mlngDirHandle, ByVal strBuffer, CLng(4096), CLng(1), mNotifyFilter, lngBytesReturned, ByVal CLng(0), ByVal CLng(0))


Это все что я нашел на VB. А как это все заставить работать? HELP!!

[Fil]

Держи ссылку, может разберешься: http://doc.woweb.ru/index.htm/id/1077308975/a/p

[E'rsh]

Fil
Читал уже раньше, но там не VB (тяжко понимать), не понял

[Fil]

Что могу сказать, ищи в МСДН...

[keks-n]

Сам хочу решить задачу:
Делать копии всех файлов, перед открытием/изменением... Кто умеет?

Перехватывай API

[E'rsh]

Fil
А там тоже не на VB объявления и др.

[Fil]

Что ж пора начать практику по конвертации языковых кодов

[E'rsh]

Что никто не знает?