JOBOs Homepage

Mit diesem Additionsbeispiel wird keine Fehlermeldung gezeigt, wenn Buchstaben in einem Editfeld eingegebenwerden

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.OnChange:=Addieren;
edit2.OnChange:=Addieren;
end;

procedure TForm1.Addieren(Sender: TObject);
begin
edit3.text:=inttostr(strtoint64def(edit1.text,0)+strtoint64def(edit2.text,0));
end;

if Clipboard.HasFormat(CF_TEXT) then          showmessage('Es ist Text in der Zwischenablage');
if Clipboard.HasFormat(CF_BITMAP) then     showmessage('Es ist eine Bitmap in der Zwischenablage');
if Clipboard.HasFormat(CF_METAFILE) then showmessage('Es ist eine Mediadatei in der Zwischenablage');
if Clipboard.HasFormat(CF_PICTURE) then    showmessage('Es ist ein TPicture in der Zwischenablage');
if Clipboard.HasFormat(CF_OBJECT) then      showmessage('Es ist ein persistentes Objekt in der Zwischenablage');

clipboard.assign(Image1.picture.Bitmap);  // TImage kommt in die Zwischenablage
Image1.picture.bitmap.assign(clipboard);  // Zwischenablage kommt ins TImage
clipboard.astext:=Edit1.text;                     // TEdit kommt in die Zwischenablage
Edit1.text:=clipboard.astext;                     // Zwischenablage kommt ins TEdit

uses ShellApi,...

if shellexecute(handle,'open',
'http://ruler.yks.org/dbr',nil,nil,sw_show)<=32
then showmessage('FEHLER!');

uses ShellApi,...

if shellexecute(handle,'open',
'C:\Programme\Netscape\Communicator\Program\netscape.exe',
'http://ruler.yks.org/dbr',nil,0)<=32
then showmessage('FEHLER!');

uses ShellApi,...

var mail,txt,betr:string;
begin
mail:='[email protected]';
betr:='Test-Mehl';
txt:='Liebe Oma, ich schicke Dir eine Emil.';
shellexecute(handle,'open',
pchar('mailto:'+mail+'?Subject='+betr+'&body='+txt),nil,nil,0);
end;

Fügt man den Parameter -ns in die Startzeile einfügt wird das Startlogo nicht angezeigt. So spart man sich wertvolle Sekunden.
Letzten Endes sieht das ganze so aus:

Hiermit wird verhindert, dass ein leerer Taskbarbutton nach dem Beenden einer Anwendung erscheint

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(Handle,SW_SHOWMINIMIZED);
end;

procedure Update(DeviceID: Word; DisplayHandle: HWND);
var
   UpdateParms : TMCI_ANIM_UPDATE_PARMS;
   errval : MCIERROR;
   errString : array [0..255] of char;
begin
     //DeviceID: etwa Mediaplayer1.DeviceID
    //DisplayHandle: etwa Form1.handle (oder anderes Videodisplay mit Fensterhandle);
     UpdateParms.dwCallback := DisplayHandle;
     UpdateParms.hDC:= GetDC(DisplayHandle);
     errval := mciSendCommand(DeviceID, MCI_UPDATE,
     MCI_ANIM_UPDATE_HDC + MCI_NOTIFY, DWORD(@UpdateParms));
     if errval <> 0 then
     begin
        mciGetErrorString(errval, errString, 255);
        MessageBox(Handle, errString, 'MCIPlayer', MB_ICONWARNING+MB_OK);
     end;
end;