AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

punkt auf desktop

Ein Thema von cosa · begonnen am 23. Okt 2003 · letzter Beitrag vom 29. Dez 2003
Antwort Antwort
cosa

Registriert seit: 23. Okt 2003
5 Beiträge
 
#1

punkt auf desktop

  Alt 23. Okt 2003, 13:32
hi, bin bissl neu hier und hab auch noch nicht so den megaplan von delphi, lerns aber gerade so gut es geht in der schule 8)
jetzt hier meine frage: kann jemand ein kleines proggi entwickeln das im hintergrund von windows läufft, aber immer wenns an is im vordergrund nen kleinen weißen punkt in der mitte des monitors hat? also auch wenn man internetexplorer drüber schiebt der kleine punkt noch davor ist..
so wie icq sich halt auch vor alles schiebt..

sollte ungefähr so groß sein wie der punkt hier -> .
  Mit Zitat antworten Zitat
Tom

Registriert seit: 8. Jan 2003
318 Beiträge
 
RAD-Studio 2009 Pro
 
#2

Re: punkt auf desktop

  Alt 23. Okt 2003, 13:37
Welchen Sinn macht dieser Farbklecks?
  Mit Zitat antworten Zitat
Benutzerbild von theomega
theomega

Registriert seit: 18. Jun 2002
684 Beiträge
 
#3

Re: punkt auf desktop

  Alt 23. Okt 2003, 14:22
Egoshoter Fadenkreuz vermutlich! Geht einfach, schau dir mal das Tutorial zu Handels von Luckie in der entsprechenden Sparte hier an. In seinem zweiten Posting stehts drin.
  Mit Zitat antworten Zitat
BungeeBug

Registriert seit: 19. Dez 2002
Ort: zuhause?!
227 Beiträge
 
Delphi 6 Personal
 
#4

Re: punkt auf desktop

  Alt 23. Okt 2003, 14:42
und was hat das mit Freeware zutun?
MfG BungeeBug
Wer andern eine Grube gräbt sollte auf Gasleitungen achten!!!!
  Mit Zitat antworten Zitat
cosa

Registriert seit: 23. Okt 2003
5 Beiträge
 
#5

Re: punkt auf desktop

  Alt 24. Okt 2003, 00:58
@ tom .. siehe #3, der liegt vollkommen richtig
@ bungee bug: keine ahnung, vielleicht gibts ja sowas auch zu kaufen ..
@ the omega: hm, habs gefunden aber irgendwie läufft das net voll im vordergrund, und wenn du des einfach nennst, dann erschieß ich mich versteh da keine einzigste zeile
  Mit Zitat antworten Zitat
Benutzerbild von Motzi
Motzi

Registriert seit: 6. Aug 2002
Ort: Wien
598 Beiträge
 
Delphi XE2 Professional
 
#6

Re: punkt auf desktop

  Alt 24. Okt 2003, 08:27
Hab mir da auch mal was ähnliches gebastelt.. Weiß nicht wie dein Code ausschaut, aber ich habs im Prinzip ganz simpel gemacht... ein eigener Thread der praktisch in einer Endlos-Schleife immer wieder einen Punkt in die Mitte des Desktop-DC malt. (den genauen Code hab ich jetzt nicht zur Hand, bin nicht zu Hause)
Manuel Pöter
  Mit Zitat antworten Zitat
Benutzerbild von Darty
Darty

Registriert seit: 8. Jun 2002
Ort: Kronau
731 Beiträge
 
#7

Re: punkt auf desktop

  Alt 24. Okt 2003, 08:59
Den Code würde mich auch interessieren Motzi .. Wäre toll wenn Du es noch posten würdest
Matthias Knebel
Mfg M. Knebel [-Darty-]
- Gehörlose Delphianer gibt es selten -
www.team-knebel.de
  Mit Zitat antworten Zitat
cosa

Registriert seit: 23. Okt 2003
5 Beiträge
 
#8

Re: punkt auf desktop

  Alt 24. Okt 2003, 12:24
ya motzi, oder lad halt gleich ma die exe hoch und den code glei noch dazu :p wär sehr feina zug von dir
  Mit Zitat antworten Zitat
Benutzerbild von Motzi
Motzi

Registriert seit: 6. Aug 2002
Ort: Wien
598 Beiträge
 
Delphi XE2 Professional
 
#9

Re: punkt auf desktop

  Alt 29. Dez 2003, 19:31
Hab den Thread damals komplett vergessen.. (weiß nicht warum er mir jetzt gerade wieder eingefallen ist.. )
Jedenfalls hier der Code:
Delphi-Quellcode:
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bLoop: Boolean;
    dwID: DWord;
    ThreadHandle: THandle;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function PaintThread(Param: PBoolean): Integer;
var
  iWidth, iHeight: Integer;
  Pos: TPoint;
  DC: HDC;
  hOldBrush: hBrush;
  Count: Integer;
begin
  Result := 0;
  Count := 0;
  while Param^ do
  begin
    Inc(Count);
    iWidth := GetSystemMetrics(SM_CXSCREEN);
    iHeight := GetSystemMetrics(SM_CYSCREEN);
    Pos := Point(iWidth div 2 - 4, iHeight div 2 - 4);
    DC := GetWindowDC(GetDesktopWindow);
    hOldBrush := SelectObject(DC, CreateSolidBrush(RGB(250, 250, 0)));
    Ellipse(DC, Pos.X, Pos.Y, Pos.X + 8, Pos.Y + 8);
    DeleteObject(SelectObject(DC, hOldBrush));
    ReleaseDC(GetDesktopWindow, DC);
    Sleep(0);
    if Count shr 4 = 0 then
      Sleep(1);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bLoop := True;
  ThreadHandle := BeginThread(nil, 0, @PaintThread, @bLoop, 0, dwID);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  InterlockedExchange(Integer(Pointer(@bLoop)^), 0);
  WaitForSingleObject(ThreadHandle, INFINITE);
  CloseHandle(ThreadHandle);
  Close;
end;

end.
Manuel Pöter
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz