program Project1;

uses
  Forms,
  windows,
  Clipbrd,
  SysUtils,
  Dialogs,
  Classes,
  Unit1 in 'Unit1.pas' {Opera_ex};

{$R *.res}
var
  MyHandle: THandle;
  TextPtr: PWideChar;
  MyString: string;
  i:Integer;
begin
if Clipboard.HasFormat(CF_UNICODETEXT) and not FindCmdLineSwitch('a',['-'],False) then
begin
  ClipBoard.Open;
try
  MyHandle := Clipboard.GetAsHandle(CF_UNICODETEXT);
  TextPtr := GlobalLock(MyHandle);
  MyString := WideCharToString(TextPtr);
  if FindCmdLineSwitch('q',['-'],False) then
  begin
    for i := Length(MyString) downto 0 do
    begin
      if MyString[i] = #10 then
      begin
        Insert(ParamStr(2),Mystring,i+1);
      end;
    end;
    Insert(ParamStr(2),MyString,0);
  end;
  if AnsiCompareStr(MyString,Clipboard.AsText) <> 0 then
  Clipboard.AsText := MyString;
  //else
  //ShowMessage('変換するまでもないよ?');
  GlobalUnlock(MyHandle);
finally
  Clipboard.Close;
end;
end
else
begin
  Application.Initialize;
  Application.Title := 'Opera_ex';
  Application.CreateForm(TOpera_ex, Opera_ex);
  Application.Run;
end;
//Application.Terminate;

end.