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.
Попробуй так

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)...

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

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