люди помогите
как через апи убить файл
Зарания спасибо

Всмысле убить? Удалить что ли? Ну тогда DeleteFile.

и как это сделать вот мой код!?
implementation

{$R *.dfm}
procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
shellinfo: TSHFileOpStructA;
begin
with shellinfo do
begin
wnd := Application.Handle;
wFunc := Flags;
pFrom := PChar(fromFile);
pTo := PChar(toFile);
end;
SHFileOperation(shellinfo);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
begin
ShellFileOperation('C:\Program Files\d\*.txt', '\\Cs_server\C\*.txt', FO_COPY);
Form1.Timer1.Enabled:=true;


end;
end;
end.

Зарание благодарен!

У тебя код копирования...

Если ничё не работает - напиши условие... if FO_.... then удалить...

Цитата

У тебя код копирования...

Да если можете помигите или дайте другой код только чтоб он не спрашивал заменять существующий фаил или нет! "дело в том мне надо оди и тот же фаил ткопировать очень много раз в одно место! Как зделать чтоб он заменялся и винда не спрашивала заменять его или нет! "
Зарания спасибо!

Для копирования Юзай эту функцию:
CopyFile (source, destination : PChar; failIfExists : boolean);
ставь failIfExists = false, тогда перепысываться будет автоматом...

Цитата

Для копирования Юзай эту функцию: CopyFile (source, destination : PChar; failIfExists : boolean); ставь failIfExists = false, тогда перепысываться будет автоматом...

Извени конечно! спасибо за совет но мне надо именно то копираванье которое у меня !

Тогда попробуй в флаги добавь FOF_NOCONFIRMATION - тогда по описанию на все вопросы будет отвечать Yes...

Код

wFunc := Flags or FOF_NOCONFIRMATION;

Цитата

Тогда попробуй в флаги добавь FOF_NOCONFIRMATION - тогда по описанию на все вопросы будет отвечать Yes... CODE wFunc := Flags or FOF_NOCONFIRMATION;

неработает!

Я ведь чушь тебе сказал, а ты не заметил... Правда вся несуразица из-за того, что параметр процедуры обозван flags, хотя по смыслу это funcs. Надо было так:
fFlags := FOF_NOCONFIRMATION;
а wFunc оставляй как было раньше

Сейчас должно ВСЕ работать - я проверял...

Усе всем большое спасибо!
В особености - p0s0l