как скрыть выполнение программы в делфи?

[madlian]

как скрыть выполнение программы в делфи?

подскажите, только начел изучать делфи и вот

наприер хочу копировать файл скрытно как это сделать ? подскажите

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
begin
CopyFile(Pchar('c:\1.txt'), Pchar('D:\1.txt'), true)
end.

[Linkus]

в каком плане скрыть? окно чтоб не видно было, в процессах чтоб не видно было? или как?

[patcher]

Если нужно всего лишь скопировать файл, то лучше бы вообще не создавать форм:


program Project1;

uses
SysUtils, Windows;
var infile,outfile:string;
begin
infile:='c:\bar.emf';
outfile:='c:\bar2.emf';
CopyFile(PChar(infile), PChar(outfile), true);
end.

Скрыть значок с панели задач и с вкладки Приложения Диспетчера задач:
http://www.delphisources.ru/pages/faq/base/hide_program_button_on_taskbar.html

[Vlad3d]

Var
xz:TStringList;
begin
xz:=TStringList.Create;
xz.LoadFromFile('1.txt');
xz.SaveToFile('2.txt');

если тебе текстовики надо то можно так, за одно можно подредактировать текстовый файл, если надо

[slesh]

2 madlian - когда пишешь код, ставь его в теги [ CODE ]
2 patcher - SysUtils можно выкинуть, чтобы он не давал веса. Всё равно юзаешь 1 апишку
2 Vlad3d - аналогично код в теги. А по сути это самый дурацкий вариант, который катит на маленький, текстовых файлах. очень прожорливый метод. да и файл размером в 2 гига врядли скопирует )

[madlian]

неполучается хоть убейте, скиньте плииз код чтоб скрытно скоприровало или сам исходник

[madlian]

Linkus! в плане скрыть окно чтоб не видно было

[patcher]

Вот тебе исходник, с тем же кодом что я писал выше:
http://www.188.ru/369766

Должно работать. Если не работает, то может быть три причины:
1. Проблемы с компилятором.
2. Ты кодишь не в Delphi.
3. Твой комп подвергся атакам злобного вируса kriviye_ruki.exe :D :D :D

ЗЫ. Если нужно скрытое выполнение любой программы (не только копирование) не пользуйся формами, вот и все

[madlian]

patcher! спасибо, а есть искодник прогрммы для отправки сообщения на почту, рабочий?

[HakaR]

patcher! спасибо, а есть искодник прогрммы для отправки сообщения на почту, рабочий?

Написать то пару сек. Юзай idsmtp :cool:

[patcher]

patcher! спасибо, а есть искодник прогрммы для отправки сообщения на почту, рабочий?
Вот, держи: http://www.188.ru/477253

[iGlass]

может убого, но это работает :-))


if FindWindow(0,Диспетчер задач Windows') <> 0 then
// Если нашли окно диспетчера, то убиваем его.
WinExec('taskkill /F /IM taskmgr.exe',SW_HIDE);