Главная страница
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.022 c
1-1084292925
tower
2004-05-11 20:28
2004.05.23
Из памяти в файл. Как?


8-1079092066
m2003
2004-03-12 14:47
2004.05.23
Работа с MP3


1-1083754763
uuuh
2004-05-05 14:59
2004.05.23
Простой вопрос.


3-1082795753
Сказочник
2004-04-24 12:35
2004.05.23
Почему не работает count(*)


1-1084047903
nkoleda
2004-05-09 00:25
2004.05.23
Excel и примечание