Информация для размышлений: при перетаскивании файлов в приложение

Код

type   TMainForm = class(TForm) ...   private     { Private declarations }     procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; //получение сообщений о переносе файла в окно приложения ... Procedure TMainForm.WMDropFiles(var Msg: TWMDropFiles); var   CFileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файла   NumberFiles, counter: Cardinal; begin   CurList:=TStringList.Create;   try     NumberFiles:=DragQueryFile(Msg.Drop, $FFFFFFFF, CFileName, MAX_PATH); // получение количества файлов     for counter:=0 to Numberfiles-1 do     Begin       DragQueryFile(Msg.Drop, counter, CFileName, MAX_PATH);         MainForm.Memo1.Lines.Add(CFileName); //пути к файлам     End;     Msg.Result := 0;   finally     DragFinish(Msg.Drop); // отпустить файл   end; end; //------------------------------------------------------------------------------ ... procedure TMainForm.FormCreate(Sender: TObject); begin ...   DragAcceptFiles(Handle, True); ... end;

а также при перетаскивании на иконку приложения (передача как параметра комадной строки)

Код

... procedure TMainForm.FormCreate(Sender: TObject); Var    counter:Integer; begin ...     for Counter:=1 to ParamCount do      MainForm.Memo1.Lines.Add(ParamStr(Counter)); ... end;

РУССКИЕ БУКВЫ ОТОБРАЖАЮТСЯ ПРАВИЛЬНО. Теперь если скопировать текст из мемо при любой раскладке - то глюк пропадает - вставляется нормальный русский текст...

может кого этот факт натолкнёт на мысль?

А чего тут думать? Всё дело в юникодах.

Цитата(RAdmin @ 28.7.2005, 07:36)

Поставить хук на копирование в буфер, и перед копирование менять раскладку активному окну.

Наверное всё же прейдётсяя создавать глобальную ловушку...
поскольку это единственное предложенное решение

Ловишь WM_PASTE, берёшь ClipBoard.asText, преобразуешь его из юникодов, так чтобы убрать кракозябры. Далее посылаешь сообщение тому же контролу асинхронно для вставки исправленноно текста.

Вобщем вот то очём я писал. Не испытывал, ибо условия не позволяють.

Присоединённый файл ( Кол-во скачиваний: 8 )
 Hook.rar 0,50 Kb

ок, проведу испытания если справлюсь с этой непростой задачей %) отчитаюсь...

RAdmin, спасибо, но мне не всё понятно в твоём примере - например что за сообщение такое $0400 + 2

Код

... //SendMessage( MainWnd, $0400 + 2, wParam, k ); ...

и как на него отвечать
После прочтения ещё десятка страниц мануала от разных авторов, взял за основу статью Aleksey'я Pavlov'а (а точнее пример №3).
Так вот - или у меня руки кривые или не всё так просто и WM_COPY не обрабатывается
(я, конечно, предпочёл бы второй вариант )
Буду признателен, если ты посмотришь код...
Так как я ещё не разобрался как прикреплять к мессажам файлы, то вышлю тебе на почту, ок?
Если не лень дать адресок...

так... кажется уже разобрался с прикреплёнными файлами...
Итак вот моё "творчество"

Присоединённый файл ( Кол-во скачиваний: 10 )
 ClipboardHook.rar 11,77 Kb

а вот то, что я переработал... присутствует статейка по ловушкам...

Присоединённый файл ( Кол-во скачиваний: 9 )
 Aleksey_Pavlov.rar 40,74 Kb