Вопрос # 1 066

Вопрос задал: alone (статус: Посетитель)
Вопрос отправлен: 1 ноября 2007, 01:13
Состояние вопроса: решён, ответов: 3.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 1 ноября 2007, 08:29
Оценка за ответ: 5

Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 1 ноября 2007, 10:26
Оценка за ответ: 5

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 1 ноября 2007, 11:32

min@y™ (статус: Доктор наук), 1 ноября 2007, 08:37 [#1]:

Цитата:

alone (статус: Посетитель), 1 ноября 2007, 22:29 [#2]:

min@y™ (статус: Доктор наук), 2 ноября 2007, 08:23 [#3]:

program SpecChar;
 
uses
  Windows,
  Messages,
  BaseUtils;
 
{$R WindowsXP.res}
 
var
  Menu: HMENU;
  Wnd, ForeWnd: HWND;
  MenuDisplay: Boolean;
  Terminated: Boolean = False;
 
function WindowProc(Wnd: HWND; Msg: UINT; WParam, LParam: Longint): Longint; stdcall;
var
  P: TPoint;
begin
  case Msg of
    WM_HOTKEY:
      if MenuDisplay then
        EndMenu
      else
      begin
        GetCursorPos(P);
        ForeWnd := GetForegroundWindow;
        SetForegroundWindow(Wnd);
        MenuDisplay := True;
        try
          TrackPopupMenu(Menu, TPM_CENTERALIGN, P.X, P.Y, 0, Wnd, nil);
        finally
          MenuDisplay := False;
          SetForegroundWindow(ForeWnd);
        end;
      end;
    WM_COMMAND:
      begin
        SetClipboard(CF_UNICODETEXT, WParam, 4);
        // Paste
        SetForegroundWindow(ForeWnd);
        keybd_event(VK_CONTROL, 0, 0, 0);
        keybd_event(Ord('V'), 0, 0, 0);
        keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
      end;
  end;
  Result := DefWindowProc(Wnd, Msg, WParam, LParam);
end;
 
procedure Init;
 
  procedure InitError(const Text: string; Code: Integer);
  begin
    MessageBox(0, PChar(Text), 'Special characters', MB_ICONERROR);
    Halt(Code);
  end;
 
var
  Mutex: THandle;
  F: file;
  UnicodeSign: WideChar;
  Chars: array[0..255] of WideChar;
  I, Count: Integer;
  NewCol: Boolean;
begin
  Mutex := CreateMutex(nil, True, 'SpecChar_Running');
  if WaitForSingleObject(Mutex, 0) <> WAIT_OBJECT_0 then
    InitError('Already running', 1);
 
  AssignFile(F, 'Chars.ini');
  FileMode := 0;
{$I-}
  Reset(F, 2);
  if IOResult <> 0 then
    InitError('Ini-file miss', 2);
 
  BlockRead(F, UnicodeSign, 1);
  if (IOResult <> 0) or (UnicodeSign <> #$FEFF) then
    InitError('Ini-file is not Unicode', 3);
 
  BlockRead(F, Chars, Length(Chars), Count);
  if Count = 0 then
    InitError('Ini-file is empty', 4);
 
  CloseFile(F);
{$I+}
  Menu := CreatePopupMenu;
  NewCol := False;
  for I := 0 to Count - 1 do
    case Chars[I] of
      '|': AppendMenuW(Menu, MF_SEPARATOR, 0, nil);
      #10, #13: NewCol := True;
    else
      AppendMenuW(Menu, Ord(NewCol) * MF_MENUBARBREAK, Ord(Chars[I]), Pointer(
        WideString(Chars[I])));
      NewCol := False;
    end;
end;
 
var
  Cls: WNDCLASS = (lpfnWndProc: @WindowProc; lpszClassName: 'AppWin');
  Msg: TMsg;
begin
  Init;
  Cls.hInstance := HInstance;
  Windows.RegisterClass(Cls);
  Wnd := CreateWindow(Cls.lpszClassName, '', WS_POPUP, 0, 0, 0, 0, 0, 0,
    HInstance, nil);
  RegisterHotKey(Wnd, 0, MOD_WIN, Ord('C'));
  repeat
    GetMessage(Msg, 0, 0, 0);
    DispatchMessage(Msg);
  until Terminated;
  UnregisterHotKey(Wnd, 0); 
  DestroyMenu(Menu);
  DestroyWindow(Wnd);
end.

unit BaseUtils;
 
interface
 
uses
  Windows;
 
procedure SetClipboard(Format: Cardinal; const Buffer; Size: Integer);
 
implementation
 
procedure SetClipboard(Format: Cardinal; const Buffer; Size: Integer);
var
  Data: THandle;
  DataPtr: Pointer;
begin
  OpenClipboard(0);
  EmptyClipboard;
  OpenClipboard(0);
  try
    Data := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, Size);
    try
      DataPtr := GlobalLock(Data);
      try
        Move(Buffer, DataPtr^, Size);
        SetClipboardData(Format, Data);
      finally
        GlobalUnlock(Data);
      end;
    except
      GlobalFree(Data);
      raise;
    end;
  finally
    CloseClipboard;
  end;
end;
 
end.

–—«»•·¶§|¹²³

±≈≠≥≤÷√∆∞|½¼¾

°µ‰Ω|?¥|©®™