title image


Smiley versuch mal das
var UrURL,A,B:String; I,i2:Integer; array1: array[1..4] of integer;beginDdeClientConv1.SetLink('iexplore','WWW_GetWindowInfo');DdeClientConv1.OpenLink();i2:=0;UrURL:= DdeClientConv1.RequestData('0xFFFFFFFF,sURL'); for i:=1 to length(UrURL) do if (UrUrl[i] = '"')then begin i2:=i2+1; array1[i2]:=i; end; a:=copy(UrURL,array1[1]+1,array1[2]-2); b:=copy(UrURL,array1[3]+1,length(UrURL)); b:=copy(b,1,length(b)-1); edit1.text:=a; edit2.text:=b;end;gruss Splasher

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: