Mam taki kod:
[code]procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.Execute;
CopyFile(PChar(OpenDialog1.FileName),'C:',true);
end;
end.[/code]
I czemu on nie kopiuje wybranego pliku na dysk C:\ ???
Mam taki kod:
[code]procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.Execute;
CopyFile(PChar(OpenDialog1.FileName),'C:',true);
end;
end.[/code]
I czemu on nie kopiuje wybranego pliku na dysk C:\ ???
CopyFile(pchar(openDialog.Filename),pchar('c:'+extractFileName(openDialog.Filename)) ,true);
teraz jest ok
Cos nie dziala
dziwne, mi dziala ten kod idealnie:
if OpenDialog1.Execute then CopyFile(PChar(OpenDialog1.FileName), PChar('C:' + ExtractFileName(OpenDialog1.FileName)), True);
A jest on identyczny z powyższym...
NIe wydaje mi sie ze jest identyczny :) przyjżyj sie dokładnie