Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Application.Run ?   Найти похожие ветки 

 
atmospheric   (2004-05-05 11:10) [0]

По F9 ни чего не происходит(кнопка Run не активна), а по Ctrl+F9 создает exe... Если убрать if MessageBox... то все ок...
Где тут ошибка ?

Application.Initialize;
if MessageBox(0, "Проверьте доступ ...",PChar(Application.Title), MB_YESNO) = IDYES then
Application.CreateForm(TForm1, Form1);
Application.Run;


 
Кщд   (2004-05-05 11:17) [1]

приложения нет, а Application.Title известен?


 
atmospheric   (2004-05-05 11:21) [2]

Да title после Initialize...


 
Кщд   (2004-05-05 11:25) [3]

нет
Initialize+F1


 
vl_chel ©   (2004-05-05 11:31) [4]


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

{$R *.res}

begin
 Application.Initialize;
 if MessageDlg("Ïðîâåðüòå äîñòóï ...",mtWarning,mbYesNoCancel,0) = 0 then
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

Попробуй так


 
han_malign ©   (2004-05-05 11:39) [5]

PChar(Application.Title) - такие преобразования довольно стремные, вероятнее всего вместо строки передается указатель на метод @Application.GetTitle, и все удачно накрывается.

а Application.Title извесетен даже до Initialize

constructor TApplication.Create(AOwner: TComponent);
var
 P: PChar;
 ModuleName: array[0..255] of Char;
begin
 inherited Create(AOwner);
...................
 if not IsLibrary then CreateHandle;
...................
end;
...................
function TApplication.GetTitle: string;
var
 Buffer: array[0..255] of Char;
begin
 if FHandleCreated then
   SetString(Result, Buffer, GetWindowText(FHandle, Buffer,
     SizeOf(Buffer))) else
   Result := FTitle;
end;


 
atmospheric   (2004-05-05 12:46) [6]

да дело было в PChar(Application.Title)...

Всем большое спасибо !



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
8-1078386440
Димон
2004-03-04 10:47
2004.05.23
Сохранение в Image


9-1073572104
ZAROLF
2004-01-08 17:28
2004.05.23
RLE сжатие для TDIB


14-1083231096
Proteste
2004-04-29 13:31
2004.05.23
Хакеры кто они?


3-1083170401
MicroWorld
2004-04-28 20:40
2004.05.23
Фильтрация данных в IBTabl


1-1083743709
half_litre
2004-05-05 11:55
2004.05.23
Переход с Delphi 3 на Delphi 7