Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Закрытие формы!!! [D4, Win95/98]

Maza © (2002-05-07 23:12:00)
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.

спасибо!

Maza (2002-05-08 23:13:00) [1]
Сенькс :) До меня дошло -)

madburro (2002-05-08 22:40:00) [2]
Ja ne posmotrel chto u nego komponentov netu lishnih :)

ole (2002-05-08 09:38:00) [3]
program form_suck;

uses Registry;

{$R *.RES}

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

ZZ (2002-05-08 00:58:00) [4]
madburro
А зачем там форма?

madburro (2002-05-08 00:19:00) [5]
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:03:00) [6]
А как её убрать
$delphi menu | Project | Remove from project...

Maza (2002-05-07 23:26:00) [7]
А как её убрать!? Я текс писал в dpr а она всё равно появляется :((
Я новичок -) Это моя первая прога :)

Almaz (2002-05-07 23:23:00) [8]
Ну если форма не нужна, так зачем ее вообще создавать ???
Пиши текст прямо в .dpr файле и все - никаких форм.

Удачи.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »