Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   как скрыть выполнение программы в делфи? (https://forum.antichat.xyz/showthread.php?t=178754)

madlian 14.02.2010 12:07
как скрыть выполнение программы в делфи?
 
как скрыть выполнение программы в делфи?

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

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

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 14.02.2010 12:10
в каком плане скрыть? окно чтоб не видно было, в процессах чтоб не видно было? или как?

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

Код:
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 14.02.2010 12:38
Var
xz:TStringList;
begin
xz:=TStringList.Create;
xz.LoadFromFile('1.txt');
xz.SaveToFile('2.txt');

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

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

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

madlian 14.02.2010 13:09
Linkus! в плане скрыть окно чтоб не видно было

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

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

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

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

HakaR 14.02.2010 18:41
Цитата:
Сообщение от madlian
patcher! спасибо, а есть искодник прогрммы для отправки сообщения на почту, рабочий?
Написать то пару сек. Юзай idsmtp :cool:

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

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

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


Время: 16:54