Internet kapcsolatokat tárcsázó ablak
Az ablak megnyitásához, a WiniNet unit, InternetAutodial függvényét használhatjuk.
InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE,Application.Handle)
Az első paraméterben az INTERNET_AUTODIAL_FORCE_ONLINE konstanst kell használnunk, a kapcsolat létrehozásához. A második paraméterben a kapcsolatot létrehozó alkalmazás azonosítóját kell megadnunk.
Egér pozícionálása a fókusszal rendelkező objektumra
Az objektum OnClick, OnEnter, stb. eseményeit felhasználhatjuk arra, hogy lekérdezzük az adott objektum koordinátáit. Az egyszerűség kedvéért az objektum középpontjának koordinátáit határozzuk meg.
c:=TControl(Sender);
x:=c.Left+(c.Width div 2);
y:=c.Top+(c.Height div 2);
A megkapott koordinátákat képernyő koordinátákká kell átalakítanunk.
p:=ClientToScreen(Point(x,y));
A megfelelő képernyő koordináták ismeretében, az egeret a megadott pozícióra irányíthatjuk.
XP aktuális témájának lekérdezése
Az uxtheme.dll-ben (Windows\System32 könyvtár) található egy függvény, ami arra szolgál, hogy az aktuális Windows téma állományának elérési útját és nevét, a használt szín sémát, valamint a téma méretét lekérdezzük. Ez a függvény a GetCurrentThemeName, amit az alábbi paraméterlistával kell deklarálnunk.
function GetCurrentThemeName(pszThemeFileName: LPWSTR; dwMaxNameChars: Integer;
pszColorBuff: LPWSTR; cchMaxColorChars: Integer; pszSizeBuff: LPWSTR;
cchMaxSizeChars: Integer): HRESULT; stdcall; external 'uxtheme.dll';
GetCurrentThemeName
function GetCurrentThemeName(
pszThemeFileName: LPWSTR;
dwMaxNameChars: Integer;
pszColorBuff: LPWSTR;
cchMaxColorChars: Integer;
pszSizeBuff: LPWSTR;
cchMaxSizeChars: Integer
): HRESULT;
Az aktuális Windows témáról szolgáltat adatokat.
Paraméterek
pszThemeFileName: LPWSTR
Az itt megadott változóba kapjuk értékül a témát tartalmazó állomány elérési útját és nevét.
dwMaxNameChars: Integer
A pszThemeFileName-ben tárolható karakterek maximális száma.
pszColorBuff: LPWSTR
Az itt megadott változóba kapjuk értékül a téma szín sémáját.
cchMaxColorChars: Integer
A pszColorBuff-ban tárolható karakterek maximális száma.
pszSizeBuff: LPWSTR
Az itt megadott változóba kapjuk értékül a téma méretét.
cchMaxSizeChars: Integer
A pszSizeBuff-ban tárolható karakterek maximális száma.
Visszatérési érték
0, ha a függvény lefutása sikeres volt.
XP témaváltozás figyelése
A rendszer biztosít számunkra egy eseményt, amely minden alkalommal lefut, amikor a felhasználó megváltoztatja a Windows témáját.
procedure WMTHEMECHANGED(var Msg: TMessage); message WM_THEMECHANGED;
Levelező programok kilistázása
A registry állományba be van jegyezve, számítógépünk összes levelező programja. A bejegyzés az alábbi kulccsal érhető el.
HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail
with reg do begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly('\SOFTWARE\Clients\Mail') then
if HasSubKeys then
GetKeyNames(ListBox1.Items);
end;