[borockov]

Нашел вот такую функцию на форуме

Код:

function GetClipboardText(Wnd: HWND; var Str: string): Boolean;
var
  hData: HGlobal;
begin
  Result := True;
  if OpenClipboard(Wnd) then
  begin
    try
      hData := GetClipboardData(CF_TEXT);
      if hData <> 0 then
      begin
        try
          SetString(Str, PChar(GlobalLock(hData)), GlobalSize(hData));
        finally
          GlobalUnlock(hData);
        end;
      end
      else
        Result := False;
      Str := PChar(@Str[1]);
    finally
      CloseClipboard;
    end;
  end
  else
    Result := False;
end;

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  Str: string;
begin
  GetClipboardText(Handle, Str);
  ShowMessage(Str)
end;
end.

Все работает норм, но вот вышеописанная проблема она как заноза, друзья, а с помощью функций POS можно как то посмотреть типа если в буфере содержится "http://" то заносить в edit1 а если нет то пропускать?