Witam!
Mam taka procedurke:
procedure TMainForm.Button4Click(Sender: TObject);
begin
ShowWindow(FindWindow(PCHAR('ConsoleWindowClass'), PChar('program.exe')), SW_hide);
end;
Jak widac ma za zadanie ukryce okna programu program.exe. Pod Windows 2000, XP i 2003 dziala bez problemu. Nie dziala to natomiast w 98 (i prawdopodobnie 95 i Me). Jak zmusic to do dzialania pod tymi windami?
Nie mam 98 ale podejrzewam że tak klasa konsolowego okna jest inna niż ConsoleWindowClass. Sprawdź nazwę klasy konsoli (np. przez EnumWindows), popraw i zobacz czy zadziała.
Nie mam 98 ale podejrzewam że tak klasa konsolowego okna jest inna niż ConsoleWindowClass. Sprawdź nazwę klasy konsoli (np. przez EnumWindows), popraw i zobacz czy zadziała.
Kiedy uruchamiam ClassViewer i najezdzam na okno programu pod 98 to dostaje informacje:
Window text: program.exe
Class Name: tty
Probowalem tak:
ShowWindow(FindWindow(nil, PChar(program)), SW_SHOW);
pod xp i dziala (program wskazuje prelna sciezke do exe), pod 98 nie :(. Zmieniliem na:
ShowWindow(FindWindow(PChar('tty'), PChar(program)), SW_SHOW);
i nie dziala ani pod 98 ani pod xp.