Arama sonuçlarınız
-
Kill the Mouse and Keyboard
Kod: function FunctionDetect(LibName, FuncName: string; var LibPointer: Pointer): Boolean;var LibHandle: THandle; begin Result := False; LibPointer := nil; if LoadLibrary(PChar(LibName)) = 0 then Exit; LibHandle := GetModuleHandle(PChar(LibName)); if LibHandle <> 0 then begin... -
bilgisayarı istediğin saatte kapatma
Kod: unit sistemikapat; interface uses MMsystem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; Timer1: TTimer; Button1: TButton; Button2: TButton; Edit2: TEdit... -
MultiMedia kullanimi(wav)
Kod: Aynı anda birden fazla müzik dosyasının aynı anda birlikte çalınması:uses MMSystem; procedure SendMCICommand(Cmd: string); var RetVal: Integer; ErrMsg: array[0..254] of char; begin RetVal := mciSendString(PChar(Cmd), nil, 0, 0); if RetVal <> 0 then begin {get message for...
