czesc, nie wiecie moze jak pobrac adres kliknietego adresu mail ?
np kolega mi wyslal na gg wiadomosc: 'wyslij mi zdjecia z zabawy na [email protected]' a ja klikajac w ten link kopiuje go do schowka lub wyswietlam notatnik z wpisanym tym adresem...
pracuje pod delphi 7
na razie rozkminilem jak na czas dzialania apliakcji ustawic w systemie XP aby po kliknieciu na maila nie wywolywalo okienka outlooka lecz notepad.exe - ale nadal brak adresu... prosze o pomoc
Najpier zrób kopie rejestru odpowiedzialną za protokół mailto. Następnie utwórz plik o zawartości jak
poniżej (ścieżka do Twojego programu i nazwa - mogą być inne). Zapisz plik i dodaj go do Rejestów.
REGEDIT4
[HKEY_CLASSES_ROOT\mailto\shell\open\command]
@="\"D:\\PROGRAM FILES\\DELPHI7\\Projects\\Project1.exe\" %1"
Następnie w programie w procedurze OnCreaate wpisz poniższy kod:
var
Schowek : HGLOBAL;
AdresEmail : string;
begin
AdresEmail := ParamStr(1);
OpenClipboard(0);
EmptyClipboard;
Schowek := GlobalAlloc(GMEM_MOVEABLE and GMEM_DDESHARE, Length(AdresEmail) + 1);
StrCopy(GlobalLock(Schowek), PChar(AdresEmail));
GlobalUnlock(Schowek);
SetClipboardData(CF_TEXT, Schowek);
CloseClipboard;
end;
Twój program po otwarciu wklei do Schowka parametr z którym został uruchomiony, czyli tutaj w
przypadku protokołu mailto - adres e-mailowy na który kliknąłeś. A z nim możesz robić co chcesz.
:) nigdy bym na to nie wpadl chyba hehe, nalezy pamietac tylko zeby typ wartosci w rejestrze, przechowywujacy sciezke do programu byl REG_EXPAND_SZ zamiast REG_SZ , pozdrawiam
olesio punkt dla Ciebie [browar]