[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;