[delphi] tagi z plików MP3 zakodowanych w formacie ID3v2
[delphi] problem ze zmianą ikony programu
[delphi] Rysowanie na Canvasie z pliku *bmp
[delphi] procedury przy pokazaniu formy
Samsung GT-B3410 Delphi
[delphi] sprawdzanie poprawności adresu
[delphi] efekt przewijania label'a
Algorytm sortowania bąbelkowego w Delphi
[delphi] przylepianie formy
[Delphi] Program w zasobniku....
chomiki
Witajcie… problem niczym dziecinny.Ale od roku nie programowałem, i dziś mnie wzięła ochota na przypomnienie sobie małe co nieco – aż się zdziwiłem że aż tak można wszystkiego zapomnieć… ale do rzeczy!
Program wczytuje dane do listboxa, poczym po kliknięci w dany rekord, zostaje otworzony program lub strona…
Heh to nie problem, problem dopiero się zaczął w opracowaniu warunku…
Już tłumacze
procedure TForm1.ListBox1Click(Sender: TObject);
begin
napis_item := '';
numer := (ListBox1.ItemIndex);
napis_item:= ListBox1.Items[numer];
label1.Caption:= napis_item;
//to chcę rozdzielić co niżej
ShellExecute(handle, 'open', napis_item, 'nil', 'nil', sw_Normal);
ShellExecute(Handle,'open','iexplore.exe',string(napis_item),nil,SW_MAXIMIZE);
end;
wiadomo że zostaną wykonane oba te rozkazy, ja chcę zrobić to albo albo…
NP. gdy nacisnę na odnośnik jakiegoś programu, to zostanie uruchomiona aplikacja, a następna instrukcja przerwana… a jeśli jednak
TO
ShellExecute(handle, 'open', napis_item, 'nil', 'nil', sw_Normal);
Nie zostanie wykonane instrukcja zostanie uruchomiona jako strona w przeglądarce…
ShellExecute(Handle,'open','iexplore.exe',string(napis_item),nil,SW_MAXIMIZE);
Pomożecie mi jak wymusić warunek…? bo nie pamiętam, kiedys takie coś robiłem
jeżeli podasz:
ShellExecute(handle, 'open', napis_item, 'nil', 'nil', sw_Normal);
to zostanie uruchomiony program lub strona w domyślnej przeglądarce.
Jeżeli chcesz wykonać za pomocą określonej przeglądarki:
ShellExecute(Handle,'open','iexplore.exe',string(napis_item),nil,SW_MAXIMIZE);
sprawdź funkcją czy początek stringu to http://
Nie zrozumiałeś pytania….
Jeżeli
ShellExecute(handle, 'open', napis_item, 'nil', 'nil', sw_Normal);
Zoatanie uruchomione to żeby juz dalej nie otwierało…
A gdy
ShellExecute(handle, 'open', napis_item, 'nil', 'nil', sw_Normal);
Nie zostanie otwarty program to kod niżej zostanie wykonane czyli to co niżej
ShellExecute(Handle,'open','iexplore.exe',string(napis_item),nil,SW_MAXIMIZE);
jeżeli dany warunek jest stroną wykona,
jeżeli nie wykonaj drugą instrukcję
[ Dodano: 2006-08-13, 22:58 ]
A co będzie jeżeli ktoś poda tylko WWW.pctown.pl albo co gorsza tylko pctown.pl
Musi być sposób na sprawdzanie czy shellexecute zostanie wykonany
program musi sobie radzić sam, a nie wymagać od użytkownika wpisywania http
No przecież jest ShellExecute zwraca integera. Jeżeli jego wartość jest większa od 32 to nie było błędu, jak mniejsza to był błąd.
if ShellExecute (cośtam) <= 32 then
if ShellExecute(cośtam w przypadku błędu);
Więcej http://4programmers.net/WinAPI/ShellExecute i w pomocy delphiowej.
faktycznie, szukałem tego kilka godzin dzisiaj... a tu siup i pomogłeś
dziekuje bardzo
