MessageBox

Dzień dobry, pisze program w którym zależy mi na małej objętości tzn 15 KB a nie 300 KB. No i obsługuje się go dopisując parametry do niego. Niestety jeśli ktoś
wpisze zły parametr muszę go jakoś poinformować o tym.

Pytanie:
Jak to zrobić korzystając z modułów Windows i może ewentualnie z tajemniczego jak dla mnie ShellAPI.

Zastrzeżenia:
Wiem że w module Windows jest MessageBox ale pierwszy parametr tej procedury to HWND a jedyne jakie znam to Application.Handle którego nie mogę wpisać bo znajduje się w module Form czy jakoś tak.
Apikacja Konsolowa odpada bo komunikat ma się pojawiać tylko w przypadku złego parametru. a normalnie ma się nic nie pojawiać.

Z góry dziękuję...
piechnat

Jak piszesz w Delphi to użyj funkcji ParamStr(Index: integer): string, nazwa pliku znajduje się pod index := 0 a dalsze parametry odzielone spacją w index := 1....
{browar} {glowa}

cepa napisał:
Jak piszesz w Delphi to użyj funkcji ParamStr(Index: integer): string, nazwa pliku znajduje się pod index := 0 a dalsze parametry odzielone spacją w index := 1....
&gt {browar} {glowa}

to wiem ale chodzi mi o wyświetlenie komunikatu takiego jak np. ShowMessage
Czy nie ma może jakichś standardowych windowsowych komunikatów
o błędach, takich w których można wpisać jakiś text.

piechnat

a nie mozesz do uses dopisac Dialogs i zastosowac ShowMessage,
albo jak w uses masz tylko Windows to stosujesz MessageBox

wiecej o MessageBox znajdziesz w Helpie :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS napisał:
a nie mozesz do uses dopisac Dialogs i zastosowac ShowMessage,
&gtalbo jak w uses masz tylko Windows to stosujesz MessageBox
&gt
&gtwiecej o MessageBox znajdziesz w Helpie :)
&gt

A można jakoś użyć MessageBox tak żeby nie podawać Handle bo
Application.Handle jest w module Forms który powiększa program o 200 KB

ja zrobilem tak :
MessageBox(0, 'Komunikat', 'Tekst okna', MB_OKCANCEL);
i dziala :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS napisał:
ja zrobilem tak :
&gtMessageBox(0, 'Komunikat', 'Tekst okna', MB_OKCANCEL);
&gti dziala :)

Jej... bardzo dziękuję, nie znam się na tym dobrze
więc chyba naprawdę nigdy bym nie wpadł na to żeby tam wpisać "0".

Jeszcze raz dziękuję i pozdrawiam...
piechnat {brawo}

Jak już pisałem to gdzieś na forum, ale powtórze...jest jeszcze jeden fajny MessageBox, lepszy od MessageDlg, ponieważ da się nazwać nagłówek i przyciski są tłumaczone, a nie ja w MessageDlg YES, No itp... oto i on sprawdźcie sami:
Application.MessageBox('tekst konsoli','tekst naglowka',mb_IconError+MB_YesNo+MB_DEFBUTTON1);

:) POZDRAWIAM

aha mb_IconError - to ikona
Mb_YesNo to przyciski Yes i No oczywiści u nas Tak I NIE!

heh OnoMaTO przeczytaj sobie moj post wyzej !!!!!!!!!!!!!!!!!
jak myslisz czy to nie jest to samo co u ciebie ????? ---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS napisał:
heh OnoMaTO przeczytaj sobie moj post wyzej !!!!!!!!!!!!!!!!!
&gtjak myslisz czy to nie jest to samo co u ciebie ?????

heh LKS przeczytaj sobie mÓj post wyzej !!!!
ja mysle ze to nie jest jednak to samo, poniewaz w Twoim Boxie nie ma ikonek i mozna zamknac dialog poprzez nacisniecie x w prawym gornym rogu, a w moim sa ikonki i wylaczony jest x w tymze rogu i pokazalem jak naprowadzac focus na poszczegolne buttony...wiec mysle ze jakas roznica jest nieuwazasz? :)

no fakt hehe pomylilem sie
to nie jest to samo ale dla piechnata zalezalo na wielkosci programu :)
czyli Application.MessageBox() odpada
a co powiesz na to??
MessageBox(0,'tekst konsoli','tekst naglowka',MB_IconError+MB_YesNo+MB_DEFBUTTON1);
ooooo ikonka sie w pojawila, ooooo i jeszcze nie mozna zamknac przez klikniecie X :)
te MessageBox'y sie prawie niczym nie roznia :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Ale co to za różnica, nie będziemy się kłócic o MessageBOx'y tylko mi chodziło o przykłady - tak więc ja znałem z Application ty znałeś z MessageBox samo, więc ja zaproponowałem przykład swój, a Ty mi napisałeś, że to to samo...MessageBox zawsze jest tym samym, ale mój był bogatszy :)))))))))) POZDROWIENIA LKS {hello}

THX za pozdro hehe :)
i koniec---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-