Ctrl+C w IE

Mam Problem. Jestem w Internet Explorer lub w Operze lub dowolnej przegladarce zaznaczam adres i po naciśnięciu Ctrl+C w moim programie pojawił się komunikat np. ShowMessage('www.4programmers.net') ale jeśli w przeglądarce nie ma adresu typu www. lub htpp:// to nic sie nie dzieje. Dziękuję Wam wszystkim za pomoc. Dla wszystkich zimne piwko lub wasz ulubiony napój

<font color="red">nie rozumiem sprecyzuj o co chodzi</span>

Autorowi chodzi zapewne o to ze gdy w przegladarce nie ma nic typu www lub http a jest na przykad adres: cyberstacja.com to wtedy nic mu nie dziala (bynajmniej ja to tak zrozumialem)

ZRob tak aby twoj progs caly czas monitorowal schowek i jezeli zawartosc schowka=tekst wtedy wyswietla ci ta zawartosc w showmessage. Monitorowanie schowka bylo chyba na 4p ale nie jestem pewien.

<font color="green">ZRob tak aby twoj progs caly czas monitorowal schowek i jezeli zawartosc schowka=tekst wtedy wyswietla ci ta zawartosc w showmessage. </span>

Raczej odwrotnie, if zawartosc schowka <> 'http://' then...

if AnsiContainsText(zawartosc_schowka, 'http://') then
//zrob cos

chce po prostu uzyskac bardzo poodbny efekt jak w FlashGetcie ze jak sie zaznaczy adres i nacisnie Ctrl+C to program przechwtyuje link jak to zrobic ??

uses Clipbrd, StrUtils

//......

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Clipboard.HasFormat(CF_TEXT)) and
      (
      (AnsiContainsText(Clipboard.AsText, 'http://')) or
      (AnsiContainsText(Clipboard.AsText, 'ftp://')) or
      (AnsiContainsText(Clipboard.AsText, 'www.' ))
      ) then
      begin
        ShowMessage(Clipboard.AsText);
        Timer1.Enabled := False;
      end;
end; 

//uzywaj tagow

[dopisane]
Sorki, ma być StrUtils. A co do tagów to w tym przypadku ich nie użyłem bo niewłasciwie podkreślają powyższy kod. Ale skoro trzeba to nie zmieniam...

Dopisałem do sekcji uses "StrUltils" i mi wyskakuje błąd

Powinno być SysUtils;

Dopisalem zamias SyrUtils to SysUtils ale wyslakuje mi taki błąd:
[Error] Main.pas(7): Identifier redeclared: 'SysUtils'
jakie macie Delphi bo ja 7

Masz dwa razy zadeklarowane w sekcji uses SysUtils.

Jestem chyba dzsiaj jakis ulomny albo Bog wie co bo mi ten kodzik nie chodzi:

[Warning] Main.pas(170): For loop control variable must be simple local variable
[Error] Main.pas(183): Undeclared identifier: 'AnsiContainsText'
[Error] Main.pas(183): Missing operator or semicolon
[Error] Main.pas(183): Missing operator or semicolon
[Error] Main.pas(184): ')' expected but 'THEN' found
[Fatal Error] OR.dpr(7): Could not compile used unit 'Main.pas'

Widzę ze namieszałem :-| . Spróbuje to odkręcić :-) .

[Warning] Main.pas(170): For loop control variable must be simple local variable

To ostrzeżenie nie dotyczy podanego przeze mnie kodu. Gdzieś w programie masz pętlę, a zmienną sterująca jest zmienna globalna.
Nie musi to być błąd ale może.

[Error] Main.pas(183): Undeclared identifier: 'AnsiContainsText'

Dodaj do uses moduł StrUtils (przedtem zrobiłęm literówkę a koledzy z forum jeszcze troche ją przekręcili :-P )

[Error] Main.pas(183): Missing operator or semicolon
[Error] Main.pas(183): Missing operator or semicolon
[Error] Main.pas(184): ')' expected but 'THEN' found

Napisze ten kod jeszcze raz, bo tagi < delphi > okrutnie go zmasakrowały :-/ . Proszę aby moderatorzy tego nie zmieniali.

[code]procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Clipboard.HasFormat(CF_TEXT)) and
(
(AnsiContainsText(Clipboard.AsText, 'http://')) or
(AnsiContainsText(Clipboard.AsText, 'ftp://')) or
(AnsiContainsText(Clipboard.AsText, 'www.' )) ) then
begin
ShowMessage(Clipboard.AsText);
Timer1.Enabled := False;
end;
end;[/code]

Powinno działać. A jak nie to zapytaj na GG [cya] .

Cześć wszystkim serdecznie wam wszystkim dziekuję a szczególnie Tobie Dominik. Wielkie Dzieki. Nie gra jeszcze wszytko jakbym chcial ale mam nadzieje ze z reszta sobie poradze jak cos to na pewno skorzystam z Twojej oferty Dominik i napisz do Ciebie na GG