Закрытие формы!!!

← →
Maza (2002-05-07 23:12) [0]

Hi... Написал прогу которая подменяет в реестре ключ HKEY_CURRENT_USER\Control Panel\Desktop и меняет значение ключа wallpaper... просто надоело что мои обои меняют.... Единственное что бесит это форма!!! Можно-ли и как зделать так чтобы программа выполнялась и заканчивала свою работу без показа этой формы!!!Ниже Текст проги!!! TForm1 suck :)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var RegIni:TRegIniFile;
begin
// Не показываем форму на экран...
// Application.ShowMainForm:=false;
// Запись проги в реестр...
RegIni:=TRegIniFile.Create("Software");
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey("Software",true);
RegIni.OpenKey("Microsoft",true);
RegIni.OpenKey("Windows",true);
RegIni.OpenKey("CurrentVersion",true);
RegIni.WriteString("Run","system",Application.ExeName);
RegIni.Free;
// Запись файла в реестр...
RegIni:=TRegIniFile.Create("");
RegIni.RootKey:=HKEY_CURRENT_USER;
RegIni.OpenKey("Control Panel",true);
RegIni.WriteString("Desktop","Wallpaper","c:\alex0107.BMP");
RegIni.Free;
// Стиль обоев номер 2... Tiled... Само то!
RegIni:=TRegIniFile.Create("");
RegIni.RootKey:=HKEY_CURRENT_USER;
RegIni.OpenKey("Control Panel",true);
RegIni.WriteString("Desktop","WallpaperStyle","2");
RegIni.Free;
end;

end.

спасибо!

← →
Almaz © (2002-05-07 23:23) [1]

Ну если форма не нужна, так зачем ее вообще создавать ???
Пиши текст прямо в .dpr файле и все - никаких форм.

Удачи.

← →
Maza (2002-05-07 23:26) [2]

А как её убрать!? Я текс писал в dpr а она всё равно появляется :((
Я новичок -) Это моя первая прога :)

← →
ZZ © (2002-05-08 00:03) [3]

А как её убрать
$delphi menu | Project | Remove from project...

← →
madburro © (2002-05-08 00:19) [4]

Sdelaj View->Project Source i tam:
program form_suck;

uses
Forms,
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

begin
Application.Initialize;
------------------------------
Application.ShowMainForm:=False;
------------------------------
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

← →
ZZ © (2002-05-08 00:58) [5]

madburro
А зачем там форма?

program form_suck;

uses Registry;

{$R *.RES}

begin
//Здесь нужные действия!!! Без форм!
end.

Ja ne posmotrel chto u nego komponentov netu lishnih :)

← →
Maza (2002-05-08 23:13) [8]

Сенькс :) До меня дошло -)

Закрытие формы!!! Найти похожие ветки