Autor |
Beitrag |
Popov
Gast
Erhaltene Danke: 1
|
Verfasst: Fr 29.11.02 18:00
Eigentlich würde ich so ein kleines Programm nie als Open Source Projekt veröffentlichen, da es doch sehr klein und unwichtig ist. Allerdings haben die letzten Tage gezeigt, daß man doch alles veröffentlichen sollte.
Hier also mein PopTV. Für alle die Angst haben, daß Ihnen etwas auf dem Monitor entgehen könnte, ein Überwachungsmonitor für den Monitor.
mitglied.lycos.de/popov3/pub/poptv
|
|
tommie-lie
Beiträge: 4373
Ubuntu 7.10 "Gutsy Gibbon"
|
Verfasst: Fr 29.11.02 19:10
schalt' mal den blinkenden Text ab!
Wenn ich den Text über der HP lesen will, werde ich jedesmal dabei gestört, ein grund für mich, die Seite sofort wieder zu verlassen...
Aber was hast du gegen OpenSource?
Ich bin ja generell für OpenSource, aber gerade die kleinen´, unbedeutenden Programme sollten es sein, denn die haben ja nicht besonders viel Entwicklungsarbeit gekostet. Riesige Projekte sollten meiner Meinung natürlich erst recht OpenSource sein, aber da ist der Schmerz tiefer, seine 2 Jahre Arbeit für nix einfach so rauszurücken...
_________________ Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert
|
|
Popov
Gast
Erhaltene Danke: 1
|
Verfasst: Fr 29.11.02 19:36
Auf der HP gibt es keinen blinkenden Text. Weder beim IE, noch bei Mozilla. Vielleicht hast du die Webung gesehen.
|
|
Popov
Gast
Erhaltene Danke: 1
|
Verfasst: Fr 29.11.02 19:53
Sorry, nehme alles zurück. Anscheinend hat sich der "blink" Tag in die Seite eingeschlichen. Keine Ahnung wie, denn die Seite ist neu mit dem FrontPage Express erstellt worden.
Allerdings blinkt es weder beim IE noch beim Mozilla. Welchen Browsen benutzt du also?
|
|
tommie-lie
Beiträge: 4373
Ubuntu 7.10 "Gutsy Gibbon"
|
Verfasst: Fr 29.11.02 20:12
Mozilla natürlich!
Mozilla 1.1
Gecko Build 20020826
Mit teilweise aktivertem JavaScript und mit ohne Cookies und Java.
Aber nu iss auch weg.
Und such dir mal 'nen anderen Provider, die Werbung ist ja nicht mehr auszuhalten...
Prianho ist auch kostenlos und ohne Werbung. Oder deep-ice.
_________________ Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert
|
|
Thilnd
Hält's aus hier
Beiträge: 3
|
Verfasst: Di 25.03.03 13:40
naja geocities hat auch kaum Werbung und is das 2. beste ^^
Beepworld hat auch kaum werbung
Aber Yahoo Tripod is das beste siehe:
www.ufa.de.am
Die werbung kommt nur vom .am Anbieter ^^ was sagt ihr zu meiner HP
|
|
O'rallY
Beiträge: 563
|
Verfasst: Fr 28.03.03 20:03
Findest du nicht das PopTV ein etwas unpassender Name ist?
_________________ .oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...
|
|
Popov
Beiträge: 1655
Erhaltene Danke: 13
WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
|
Verfasst: Fr 28.03.03 22:02
An was du so denkst. Ok, PopTv kann man vielleicht mißverstehen, aber viele meine Programme fangen so an, z.B. PopSpy, PopCoder, PopInstaller usw.
_________________ Popov
|
|
O'rallY
Beiträge: 563
|
Verfasst: Fr 28.03.03 23:11
Aber du musst doch zugeben, dass gerade deine Vorsilbe in Verbindung mit TV doch an denken lässt
_________________ .oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...
|
|
Da_Knuddelbaer
Beiträge: 485
|
Verfasst: So 13.04.03 12:30
Sehe ich aber auch so und nein ich denke eigentlich nicht immer dran Du solltest eventuell mal schauen ob du den Namen nicht wenigstens ein bissel verändern kannst
|
|
Popov
Beiträge: 1655
Erhaltene Danke: 13
WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
|
Verfasst: So 20.04.03 23:47
Ja, aber so macht man auf seine Programme aufmerksam. In dem man falsche Hoffnungen weckt .
_________________ Popov
|
|
Shadowdragon
Beiträge: 143
Win 2000
Delphi 6 Pers., Delphi 7
|
Verfasst: Sa 07.06.03 19:23
Das Prog is zwar so ziemlich nutzlos *gg*
Aber es hat einen schönen Fenster-im Fenster-im Fenster-im Fenster - Effekt.... wenn's doch nich so grobkörnig wär, wärs n geiler optischer Effekt!
_________________ Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.
|
|
icolo
Beiträge: 26
|
Verfasst: So 08.06.03 01:18
Shadowdragon hat folgendes geschrieben: | Das Prog is zwar so ziemlich nutzlos *gg* |
...um nicht zu sagen, es sei störend!
Es frisst unglaublich Ressourcen und nützen tut's wirklich überhaupt nichts.
Ich hoffe, dass wenigstens der Lerneffekt beim Programmieren des Projekts da war...
greets, icolo, der manchmal auch nutzlose Dinge macht...
_________________ @--- cu in hell! ---@
|
|
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 08.06.03 13:06
icolo hat folgendes geschrieben: | Ich hoffe, dass wenigstens der Lerneffekt beim Programmieren des Projekts da war... |
Für mich (beim Nachprogrammieren) schon.
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146:
| program PopTV;
uses Windows, Messages;
function floattostr(const i: Extended): string; begin Str(i:2:1,Result); end;
const IDC_TIMER = 1; fMenuState : array[boolean]of cardinal = (0,MF_CHECKED); var Timer1 : UINT; iIntervall : integer = 300;
function WndProc(wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): LRESULT; stdcall; var hm : HMENU; i : integer; p : TPoint; Can, me : HDC; r1, r2 : TRect; begin Result := 0;
case uMsg of WM_CREATE: Timer1 := SetTimer(wnd,IDC_TIMER,iIntervall,nil); WM_DESTROY: begin KillTimer(wnd,IDC_TIMER); PostQuitMessage(0); end; WM_GETMINMAXINFO: begin PMinMaxInfo(lp)^.ptMinTrackSize.X := 304; PMinMaxInfo(lp)^.ptMinTrackSize.Y := 190; end; WM_TIMER: if(wp = IDC_TIMER) then begin Can := GetDC(GetDesktopWindow); me := GetDC(wnd); GetClientRect(wnd,r1); GetWindowRect(GetDesktopWindow,r2);
StretchBlt(me,r1.Left,r1.Top,r1.Right,r1.Bottom, Can,r2.Left,r2.Top,r2.Right,r2.Bottom,SRCCOPY);
ReleaseDC(wnd,me); ReleaseDC(GetDesktopWindow,Can); end; WM_COMMAND: if(HIWORD(wp) = BN_CLICKED) and (LOWORD(wp) in[1..10]) then begin iIntervall := LOWORD(wp) * 100; Timer1 := SetTimer(wnd,IDC_TIMER,iIntervall,nil); end; WM_RBUTTONUP: begin hm := CreatePopupMenu; for i := 1 to 10 do AppendMenu(hm,MF_STRING or fMenuState[iIntervall=i*100],i, pchar('Aktualisierung alle ' + floattostr(i/10) + ' Sek.'));
GetCursorPos(p); SetForegroundWindow(wnd); TrackPopupMenu(hm,TPM_RIGHTALIGN,p.X,p.Y,0,wnd,nil); DestroyMenu(hm); end; else Result := DefWindowProc(wnd,uMsg,wp,lp); end; end;
const szClassName = 'TfrmMain'; szAppName = 'Monitor TV'; var popM : THandle = 0; aWnd : HWND; msg : TMsg; wc : TWndClassEx = (cbSize:sizeof(TWndClassEx); Style:CS_HREDRAW or CS_VREDRAW; lpfnWndProc:@WndProc; cbClsExtra:0; cbWndExtra:0; hIcon:0; hbrBackground:COLOR_APPWORKSPACE; lpszMenuName:nil; lpszClassName:szClassName; hIconSm:0; );
begin popM := CreateMutex(nil,false,'PopTV_NonVCL'); if(GetLastError = ERROR_ALREADY_EXISTS) then begin if(not IsWindowVisible(findwindow(szClassName,nil))) then PostMessage(findwindow(szClassName,nil),WM_SYSCOMMAND,SC_RESTORE,0); SetForegroundWindow(findwindow(szClassName,nil)); exit; end;
while(findwindow(szClassName,szAppName) <> 0) do SendMessage(findwindow(szClassName,szAppName),WM_CLOSE,0,0);
wc.hInstance := hInstance; wc.hIcon := LoadIcon(hInstance,IDI_WINLOGO); wc.hCursor := LoadCursor(0,IDC_ARROW); if(RegisterClassEx(wc) = 0) then exit;
aWnd := CreateWindowEx(WS_EX_TOOLWINDOW,szClassname,szAppname, WS_OVERLAPPEDWINDOW or WS_VISIBLE,integer(CW_USEDEFAULT), integer(CW_USEDEFAULT),304,190,0,0,hInstance,nil); if(aWnd = 0) then exit; ShowWindow(aWnd,SW_SHOW); UpdateWindow(aWnd);
while(GetMessage(msg,0,0,0)) do begin TranslateMessage(msg); DispatchMessage (msg); end;
CloseHandle(popM); end. |
|
|
Popov
Beiträge: 1655
Erhaltene Danke: 13
WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
|
Verfasst: So 08.06.03 14:06
@Mathias
Du solltest vielleicht bemerken, daß deine Version eine reine NonVcl Variante ist. Das findet zwar jeder raus der es rausfinden will, aber es gibt welche die sich da nicht so gut auskennen.
Übrigens stellte ich zu meinem Erstaunen fest, daß das Programm unter WindowsXP um ein vielfaches schneller ist. Ruckelt das Programm unter 98 noch kräftig, so ist er unter XP flüssig und schnell. Man glaubt es kaum, XP hat doch eine Verbesserung.
@icolo
Das Programm ist nutzlos. Lies dir aber den ersten Beitrag. Da stehts auch drin.
_________________ Popov
|
|
Jegan
Hält's aus hier
Beiträge: 2
Win Xp
Delphi 7
|
Verfasst: Mo 05.01.04 20:23
Titel: Code verändern?
Hi , ich würde gerne den code so verändern das es aufnimmt was gerade passiert am pc also was sich am monitor so tut darf ich das?
_________________ Ein Computer ist das was du aus ihm machst.
//mFg. Jegan.S//
|
|
|