Was vorher passiert und was irgendwo in einem Edit-Feld steht spielt doch erst mal keine Rolle.
Entscheidend ist was in der Variablen "link" bzw. "test" steht.
Delphi-Quellcode:
var FS:Tfilestream;
URL:
String;
link, test:
String;
ExtractFromExe('
lnk',link);
test := Copy(link, 1, 40);
// Damit ShowMessage nicht mit tausenden Zeichen überflutet wird
ShowMessageFmt('
Link=<%s>', [test]);
// Was wird hier ausgegeben?
URL:= link;
FS:=Tfilestream.Create(GetCurrentDir+'
\update.exe',fmCreate);
IdHTTP1.Get(
URL,FS);
FS.Free;