Új hozzászólás Aktív témák

• #907 Diskcopy tag Exodusz #904

  Új Válasz 2005-09-23 18:28:29 #907

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Exodusz #904 üzenetére

  egy String : mailheader; meg egy integer (i) kell, aztán mondjuk..
  
  

  for i:=0 to ListBox1.Items.Count-1 do
  if Listbox1.Selected [ i ] then 
  mailheader:=mailheader+Listbox1.Items.Strings[ i ]+',';
  ShellExecute(Handle,'open', PAnsiChar(
  'mailto:'+mailheader),'','',SW_SHOWNORMAL); 

  
  
  
  ja meg a végére nem kell vessző (mivel mindegyik végére kap, tehát közben még figyeld a SelCount-ját a listboxnak, vagy csak vágd le a végéről a stringnek. Persze ez csak egy próba, rég delphiztem már. Prób ki, hátha jó
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák