Client>>>Server socket (Informacje)? +Inne Pytanka

[Reptile ReX]

Mam pewien problem chodzi o to że nie wiem jak zrobić takie cuś:

Chcę aby po kliknięciu buttona np "Informacje Rozdzielczość"- Klient wyświetlił w okienku wiadomości rozdzielczość ekranu z komputera gdzie jest odpalony serwer

Czyli tak:

Włączam serwer na komputerze o rozdzielczości 800x600

Włączam klienta na komputerze załóżmy 1280x1024 po połączeniu i kliknięciu w button "Informacje Rozdzielczość" pokażę mi się Okienko: Rozdzielczość Ekranu to 800x600

Inne pytanie:

Mam procedurkę Na wyłączenie i włączenie CTRL ALT DELATE niestety jest on wykrywalny przez Pandę jako sus file próbowałem go przerobić nic to nie dało ponieważ na 90% jest to powiązane z tym że kod ingeruje w rejestr

i teraz pytanie czy ponizszy kod można przerobić na Batch ? jeżeli tak to jak ? ;p

procedure WylManager(manager: Boolean);
var
abcd: TRegistry;
begin
abcd := TRegistry.Create;
abcd.RootKey := HKEY_CURRENT_USER;
abcd.OpenKey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',True);

if manager = False then
begin
abcd.DeleteValue('DisableTaskMgr');
end
else if manager = True then
begin
abcd.WriteString('DisableTaskMgr', '1');
end;
abcd.CloseKey;
end;[/b]

Czekam na Odpowiedź pozdro

 

[milosz0010]

Szukac nie potrafisz?
google>rozdzielczosc ekranu delphi i pierwszy wynik to:

panel1.caption:=inttostr(GetSysTemMetrics(SM_CXSCREEN))+','+inttostr(GetSysTemMetrics(SM_CYSCREEN));



panel2.caption:=inttostr(screen.Width)+','+inttostr(screen.Height);

to sa 2 sposoby...

 

[Reptile ReX]

Hmm Ciekaweeee !!

może zamiast pisać głupoty w stylu "szukać nie umiesz" przeczytał byś dokładnie post

Mam kod na rozdzielczość, ale nie o to mi chodzi !!

Przeczytaj jeszcze raz 1 post

//Jak zastosować to w client i serv socet.....

 

[maly3900]

Kurde... pytanie na "poziomie" :/

Po prostu możesz zrobić to na zasadzie:

zmienna_string := inttostr(screen.Width)+','+inttostr(screen.Height);

Potem... wysyłasz zmienną socketem. Zmienna może być globalna, i wywoływana w OnCreate, lub gdy nastąpi `poproszenie` o nią. Duża inwencja twórcza.

...lecz... nadal nie rozumiem... - CZY TY TEGO NIE WIESZ?! :/