[r1x]

Здрасте...
у меня появлится вопрос...только не спрашивайте зачем мне это...вообщем надо...а то уже блин достали вопросами зачем это с др. форумов. Но факт остается фактом что ни кто пока не может ответить на этот вопрос...

Вообщем так
Каждое приложение имеет имя окна и класс например все приложения созданные в delphi имеет название класса TApplication, так вот как мне изменить это? на свое название класса например "My Class" думаю тот кто знает ответ тот блин настроящиий программер...т.к. уже на 5 форумах ни кто не мог дать ответ((((

[Страдалецъ]

Такое что-ли?

Код:

program Project1;

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

{$R *.res}
Type
  TMyApp = class(TApplication);

Var
  MyApp: TMyApp;
begin
  MyApp := TMyApp.Create(nil);
  MyApp.Initialize;
  MyApp.CreateForm(TForm1, Form1);
  MyApp.Run;
end.

[r1x]

Сообщение от Страдалецъ

Такое что-ли?

Не чел. не так((((
все ровно при компиляции выходит TApplication

[r1x]

Вот вообщем скрин для общего понимания всего что я сказал думаю поможет

Программа которая на скрине Windows Inspector (www.Sottnick.Narod.ru)

[Rokuell]

Вот так:
1. Находишь в папке C:\Program Files\Borland\Delphi7\Source\Vcl файл Forms.pas и копируешь его в папку твоего проекта.
2. Открываешь этот файл и находишь описание метода TApplication.Create
3. Перед ним будет описание переменной WindowClass

Код:

var
  WindowClass: TWndClass = (
    style: 0;
    lpfnWndProc: @DefWindowProc;
    cbClsExtra: 0;
    cbWndExtra: 0;
    hInstance: 0;
    hIcon: 0;
    hCursor: 0;
    hbrBackground: 0;
    lpszMenuName: nil;
    lpszClassName: 'TApplication');

4. Изменяешь значение lpszClassName на нужное тебе

Чтобы узнать имя класса приложения можешь использовать код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var cname:PAnsiChar;
begin
 GetMem(cname,MAX_PATH);
 if GetClassName(Application.Handle,cname,MAX_PATH) <> 0 then
  ShowMessage(String(cname));
 FreeMem(cname,MAX_PATH);
end;

[r1x]

Rokuell Чел большое спасибо...помог...Ты реальный прогер!))

[r1x]

Rokuell Чел большое спасибо...помог...Ты реальный прогер!))