WİNDOWS GEZGİNİ..(DeLphi)

[ALpMontana]

şimdi bu program bir windows gezgini browser bile var bunda değişklklerde yapılabilir istenldiginde güzel bir şey anlıcagınız..

FORMUN RESMİ

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Tabs, ComCtrls, ExtCtrls, StdCtrls, FileCtrl, MPlayer, ToolWin, OleCtrls,
SHDocVw, Menus, jpeg, Buttons;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet5: TTabSheet;
Panel1: TPanel;
Splitter1: TSplitter;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
RichEdit1: TRichEdit;
Image1: TImage;
Panel2: TPanel;
ToolBar1: TToolBar;
MediaPlayer1: TMediaPlayer;
WebBrowser1: TWebBrowser;
PopupMenu1: TPopupMenu;
Text1: TMenuItem;
HTML1: TMenuItem;
AVISes1: TMenuItem;
Resim1: TMenuItem;
DosyayAadakiTiplereZorla1: TMenuItem;
CoolBar1: TCoolBar;
FilterComboBox1: TFilterComboBox;
DriveComboBox1: TDriveComboBox;
Splitter2: TSplitter;
CheckBox1: TCheckBox;
N1: TMenuItem;
Daryaaltr1: TMenuItem;
StatusBar1: TStatusBar;
ControlBar1: TControlBar;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox2: TCheckBox;
ControlBar2: TControlBar;
Edit1: TEdit;
Button1: TButton;
ControlBar3: TControlBar;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
FontDialog1: TFontDialog;
procedure DirectoryListBox1Change(Sender: TObject);
procedure FileListBox1Click(Sender: TObject);
function uzantibul:string;
procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Text1Click(Sender: TObject);
procedure HTML1Click(Sender: TObject);
procedure AVISes1Click(Sender: TObject);
procedure Resim1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Daryaaltr1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ShowHint(Sender: TObject);
procedure CheckBox5Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function Tform1.uzantibul:string;
var uzanti:string;i:byte;dosyaadi:string;
begin
i:=strlen(pchar(FileListBox1.FileName));
dosyaadi:=lowercase(FileListBox1.FileName);
uzanti:=";

while (dosyaadi<>'.') do
begin
uzanti:=dosyaadi+uzanti;
dec(i);
end;

uzantibul:=uzanti;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
var
Flags: OLEVariant;
begin
caption:= 'Gezgen v 1.0 2001 - '+FileListBox1.Directory;
if (uzantibul='txt') or (uzantibul='rtf') or (uzantibul='bat') or (uzantibul='ini') then
begin
PageControl1.ActivePageIndex:=0;
RichEdit1.Lines.LoadFromFile(FileListBox1.FileName);
end else
if (uzantibul='htm') or (uzantibul='html') then
begin
PageControl1.ActivePageIndex:=1;
WebBrowser1.Navigate(WideString(FileListBox1.FileName), Flags, Flags, Flags, Flags);
end else
if (uzantibul='avi') or (uzantibul='wav') or (uzantibul='mid') then
begin
PageControl1.ActivePageIndex:=2;
panel2.Repaint;
MediaPlayer1.AutoOpen:=false;
MediaPlayer1.Close;
MediaPlayer1.FileName:=FileListBox1.FileName;
MediaPlayer1.AutoOpen:=true;
MediaPlayer1.Open;
MediaPlayer1.Play;
end else
if (uzantibul='dib') or (uzantibul='jpg') or (uzantibul='jpeg') or (uzantibul='bmp') or (uzantibul='ico') or (uzantibul='wmf') or (uzantibul='emf') then
begin
PageControl1.ActivePageIndex:=3;
Image1.Picture.LoadFromFile(FileListBox1.FileName);
end else
begin
caption:= 'Gezgen v 2.0 2005 - '+FileListBox1.Directory + ' - Pardon, Dosya izlenemiyor!';
end;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
caption:= 'Gezgen v 2.0 2005 - '+FileListBox1.Directory;
end;

procedure TForm1.FileListBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var dizin1:string;dizin2char;
begin
if ssShift in Shift then
begin
dizin1:='start "'+FileListBox1.FileName+'"';
dizin2:=pchar(dizin1);
winexec(dizin2,0);
end;
end;

procedure TForm1.Text1Click(Sender: TObject);
begin
if FileListBox1.FileName <> " then begin
PageControl1.ActivePageIndex:=0;
RichEdit1.Lines.LoadFromFile(FileListBox1.FileName);
end;
end;

procedure TForm1.HTML1Click(Sender: TObject);
var
Flags: OLEVariant;
begin
if FileListBox1.FileName <> " then begin
PageControl1.ActivePageIndex:=1;
WebBrowser1.Navigate(WideString(FileListBox1.FileName), Flags, Flags, Flags, Flags);
end;
end;

procedure TForm1.AVISes1Click(Sender: TObject);
begin
if FileListBox1.FileName <> " then begin
PageControl1.ActivePageIndex:=2;
panel2.Repaint;
MediaPlayer1.AutoOpen:=false;
MediaPlayer1.Close;
MediaPlayer1.FileName:=FileListBox1.FileName;
MediaPlayer1.AutoOpen:=true;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

procedure TForm1.Resim1Click(Sender: TObject);
begin
if FileListBox1.FileName <> " then begin
PageControl1.ActivePageIndex:=3;
Image1.Picture.LoadFromFile(FileListBox1.FileName);
end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
image1.Stretch:=CheckBox1.Checked;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:=ShowHint;
Application.HintColor:=claqua;
end;

procedure Tform1.ShowHint(Sender: TObject);
begin
statusbar1.simpleText:=Application.Hint;
end;
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
image1.Proportional:=CheckBox5.Checked;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
image1.AutoSize:=CheckBox5.Checked;

end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if FileListBox1.FileName<>" then
if application.MessageBox('Üzerine Yazılsın mı',PChar(application.Title),mb_yesno)=idno then
exit
else
RichEdit1.Lines.SaveToFile(FileListBox1.FileName);
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
image1.Stretch:=CheckBox5.Checked;

end;
procedure TForm1.Daryaaltr1Click(Sender: TObject);
var dizin3:string;dizin4char;
begin
dizin3:='start"'+FileListBox1.FileName+'"';
dizin4:=pchar(dizin3);
winexec(dizin4,0);
end;




procedure TForm1.CheckBox2Click(Sender: TObject);
begin
RichEdit1.WordWrap:=CheckBox2.Checked;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
WebBrowser1.Navigate(widestring(edit1.Text));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(widestring(edit1.Text));
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
FontDialog1.Execute;
RichEdit1.SelAttributes.Assign(fontdialog1.font);
end;