hiho, leider funkt des aunet ;(
also die uses hab ich drin
var hab ich auch
Code:
var
fos: TSHFileOpStruct;
und da kommt auch keine meldung
Code:
Edit2.text := WebBrowser.OleObject.Document.Forms.item(0).elements.item('BILDNAME').Value;
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_COPY;
pFrom := PChar(Edit1.Text + Edit2.Text + '.jpg' + #0);
pTo := PChar(extractfilepath(application.exename + '\' 'hallo.jpg') + #0);
Image1.Picture.LoadFromFile(extractfilepath(application.exename + '\' + 'hallo.jpg') + Edit2.Text + '[1].jpg');
nur wenn ich die exe dann ausführ, kommt die meldung das er des bild net finden kann, und des stimmt, weil ers nochnetmal kopiert hat ;(
weis jemand weiter?
mfg