Wyniki wyszukiwania

Witam! Zakupiłem sobie sony ericssona m600i, jednak posiada on simlocka na operatora Ery. W większości komisów wogóle nie chcieli się podjąć zdjęcia simlocka, w 3 komisach zaproponowano mi zdjęcie go w cenie 100zł :/ czyli jednak zdjęcie go z tego telefonu jest możliwe, pytanie tylko.. Jak to...

Na forum były tylko tematy z błędami np. z problemem deklaracji MsgFormat, natomiast nie znalazłem tematu, jak używać tej funkcji. Właśnie mam prośbę do Was, jak jej używać? Na oficjalnej stronie tgglite 'innosetup' jakoś dziwnie to opisali. MsgFormat2 := VarArrayCreate([0,1], varVariant)...

function screensv(Activate: boolean): boolean; var IntActive: byte; begin   if Activate then     IntActive := 1   else     IntActive := 0;   Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, IntActive, nil, 0); end; Mam taką funkcję włączającą wygaszacz ekranu, kiedy screensc(true); no a...

Piszę komunikator oparty o komponent TGGLite i chciałbym zrobić funkcję włączającą/wyłączającą odbieranie wiadomości zakolejkowanych (tych które nie dotarły do mnie jak byłem offline). Jak wiadomo z protokołu gg: Serwer po otrzymaniu wiadomości odsyła potwierdzenie, które przy okazji mówi nam...

No i z tym mam problem. Jeżeli w pętli for umieszczę GetVolumeInformation i kolejno sprawdzam etykiety wszystkich dysków, a któryś z dysków (np. CD-ROM) tej etykiety nie posiada, to zamiast zwracać mi jakąś wartość 0, to zwraca mi etykietę poprzedniej partycji, mimo tego że zadeklarowałem w...

dziękuję

var tekst:String; bagin tekst: 'Ala ma kota, { ???} kot ma AIDS';   //... <---- o tu MessageBox(0, Pchar(tekst), 'Ala', MB_OK); end; Co mam dopisać w wartości stringa 'tekst', żeby przełamać wiersz? W HTML wystarczy znacznik , a w delphi jak to mam zrobić?

a jak się ustosunkujecie do mojego pytania z tematu?

Czyli jeżeli mam w uses TLHelp32 i funkcja korzysta z tego komponentu, to mam rozumieć że to przez komponent? Dziwnie działają te AV'y. AV Ikarus, wystarczy że w uses jest napis GGLite i już dudni, Dla NOD32 z kolei, ani komponent TLHelp32, ani funkcja oparta o ten komponent nie przeszkadza...

Kiedy w procedurze odwołuję się do pewnej funkcji, AV trąbi o 'INFECTED' Czy jest możliwe ażeby użyć var tekst:String; [...] Delete(tekst, Pos('UFO', tekst), 3); np takiej funkcji do usuwania określonych ciągów znaków, ale nie ze stringa a bezpośrednio z kodu, daję przykład: function...

Użyłem do tego funkcji TGGLite - GGAddUserNotify. Niestety nic to nie dało, dalej BAN po 2 wiadomościach Komunikator Gadu-Gadu może wykryć że używam do wysyłania wiadomości protokołu w postaci TGGLite? A gdybym trochę prze-edytował ten komponent? Spotkał się ktoś już z czymś takim...

Witam Piszę sobie konika na TGGLite i mam w nim procedurę, która odsyła mi na gg zwroty komend CMD. Na gg można wysłać maksymalnie chyba ok 1600 znaków, więc zrobiłem funkcję, która ten zwrot komend z CMD (jeżeli przekracza 1600znaków) podzieli mi na części nie większe jak 1600 znaków i wyśle...

1. Nie czy jest mniejszy od 1600 tylko czy jest mniejszy od lenght(s)= tekst z Memo3. A nie jest określone ile ten tekst ma znaków, może mieć 5 znaków jak i 2342334 2. Doszedłem do wniosku że to IF w pętli jest zbędne [...] s:= Memo3.text; d:=1600; part:= length(s) / d; h:= 1; b:= 1...

No widzę że takie głupie błędy porobiłem rozumiem że w pętli po if zapomniałeś napisać then? Jeśli ma być [...] then inc(h); [...] to wyświetla mi jeszcze tylko 1 błąd: Expression must be boolean A czemu nie podoba Ci się while? ;>

może ktoś mi odpowiedzieć na jakże bardzo nurtujące mnie pytania?

no właśnie o to chodzi że ten przykład jest z 4p, gdyby było opisane to bym nie pisał, a Ty mentosie zamiast tego mógłbyś mi napisać co znaczy te 6 i 7

hehe jednym słowem masakra!! Mam problem z Incompatible types. Ale mam pytanie: Integer zwraca liczbę całkowitą, funkcja Round zaokrągla podaną liczbę rzeczywistą w górę lub w dół, funkcja Trunc zaokrągla w dół, no a mi potrzebne jest, aby zaokrąglało w górę Jeśli wartość wynosi np. 5.0004 to...

No Delphi Delphi, jeśli można to proszę admina o przeniesienie tematu do działu delphi. Komendy CMD w Memo3 mają dochodzić na gg w częściach nie większych niż po 1600 znaków. var part: Integer; h:Integer; n:Integer; s:String; begin s:= Memo3.text      //...Memo z tekstem part:=...

begin //...jakiś kod if {warunek} then    //... jeśli warunek zostanie spełniony, to rozpocznij pętlę begin while {warunek} do begin {instrukcja} //... jeśli pętla została zakończona, to zakończ tą procedurę end; end else  //... jeśli warunek nie został spełniony to wykonaj inną...

Wojass w Twoim kodzie jest błąd ExtractFileName(ExeFileName) chyba powinno być pzdr