[delphi] uruchom i kopiuj

jak w delphi zrobic:
1. zeby sie jakis program wlaczyl, czy inny plik
2. skopiowac jakis plik
help!!!

wywal windowsa i nie badz nastepna ofiara okienkowego interesu microsoftu:)

---

1.
WinExec('c:win98notepad.exe',sw_normal);

2.
var FOS:TSHFileOpStructA;
begin
with FOS do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:='project1.exe';
pTo:='c:';
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
lpszProgressTitle:='Kopiowanie...';
fAnyOperationsAborted:=False;
end;
if SHFileOperation(FOS)<>0 then
ShowMessage('Wystąpił błąd podczas kopiowania')
else
if FOS.fAnyOperationsAborted then
ShowMessage('Kopiowanie zostało przerwane');
end;

Jeżeli ci w czymś pomogłem, to masz u mnie dług. Spłacisz go pomagając komuś innemu.

Podrurzniku: czy nie łatwiej użyć funkcji CopyFile('plik.wejściowy', 'plik.docelowy', true/false) :?, a tak poza tym to dopiero co było o tym na forum(i kilka razy wcześniej :x).

www.lewbar.prv.pl

cytat:LewB ar napisał:

Podrurzniku: czy nie łatwiej użyć funkcji CopyFile('plik.wejściowy', 'plik.docelowy', true/false) :?, a tak poza tym to dopiero co było o tym na forum(i kilka razy wcześniej :x).

Masz racje, można to łatwiej zapisać, troche zbyt ambitnie do tego podszedłem.
Masz racje to było na forum już kilka razy;).

Jeżeli ci w czymś pomogłem, to masz u mnie dług. Spłacisz go pomagając komuś innemu.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl