Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c