MultiSoftPro - Trucos

Avi a pantalla completa con MediaPlayer

Usaremos la propiedad Display y DisplayRect del MediaPlayer:

-Crea una form (Form1) y pon un TMediaPlayer (MediaPlayer1) en ella.
-Pon la propiedad BorderStyle de Form1 a bsNone
-Pon la propiedad WindowState de Form1 a wsMaximized
-En la propiedad Display de MediaPlayer1 pon Form1
-Asignale un fichero AVI a MediaPlayer1
-Pon la propiedad AutoOpen de Mediaplayer a TRUE
-Pon este código en el evento OnCreate de Form1:

procedure TForm1.FormCreate(Sender: TObject);
var
   Rectangulo:TRect;
begin
with Rectangulo do
begin
    Left:=0;
    Top:=0;
    Right:=Screen.Width;
    Bottom:=Screen.Height;
end;
MediaPlayer1.DisplayRect:=Rectangulo;
MediaPlayer1.Play;
end;

OBTENER EL DIRECTORIO DE WINDOWS

Pon un Tlabel (Label1) y pon esthe código dentro del onClick de un boton:

procedure TForm1.Button5Click(Sender: TObject);

function GetWindowsDirectory : String;

var

pcWindowsDirectory : PChar;

dwWDSize : DWORD;

begin

dwWDSize := MAX_PATH + 1;

GetMem( pcWindowsDirectory, dwWDSize );

try

if Windows.GetWindowsDirectory( pcWindowsDirectory, dwWDSize ) <> 0 then

Result := pcWindowsDirectory;

finally

FreeMem( pcWindowsDirectory );

end;

begin

Label1.Caption:=GetWindowsDirectory;

end;

OBTENER EL DIRECTORIO EN CURSO

Pon un tLabel (Label1) y en el OnClick de un boton, mete este código:

procedure TForm1.Button7Click(Sender: TObject);

function GetCurrentDirectory: String;

var

nBufferLength : DWORD;

lpBuffer : PChar;

begin

nBufferLength := MAX_PATH + 1;

GetMem( lpBuffer, nBufferLength );

try

if Windows.GetCurrentDirectory( nBufferLength, lpBuffer ) > 0 then

Result := lpBuffer;

finally

FreeMem( lpBuffer );

end;

begin

Label1.Caption:=GetCurrentDirectory;

end;

OBTENER EL PATH HACIA EL EXLORADOR WEB INSTALADO POR DEFECTO

- Añade 'Registry' en la clausula uses de tu form

- Crea una form con un TLabel (Label1) y un TButton (Button1)

- En el evento OnClick del TButton pon este código:

procedure TForm1.Button1Click(Sender: TObject);

{se debe hacer un uses de la unit Registry}

var

Registro : TRegistry;

KeyName: String;

ValueStr: String;

begin

Registro := TRegistry.Create;

try

Registro.RootKey := HKEY_CLASSES_ROOT;

KeyName := 'htmlfileshellopencommand';

if Registro.OpenKey(KeyName, False) then

begin

ValueStr := Registro.ReadString('');

{En ValueStr se recibe la ruta completa del navegador

predeterminado, si le añadimos una URL o un fichero

HTML local nos abrirá el navegador con esa página}

Registro.CloseKey;

Label1.Caption:=ValueStr;

{Sigue el enlace para ver la funciónWinExecNoWait32}

end

else

ShowMessage('No posee explorador de HTML predeterminado');

finally

Registro.Free;

end;

Y el Label 1 te mostrará el path hacia el explorador web predeterminado de tu sistema.

EJECUTAR EL EXPLORADOR WEB POR DEFECTO

Incluye 'ShellApi' en el uses de tu fom y ejecuta esto:

ShellExecute(Form1.Handle,nil,PChar('index.html'),'','',SW_SHOWNORMAL);