Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Sourcecode [ Membuat program shortcut ] :
Unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shellapi, ExtCtrls, StdCtrls, Menus;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Label1: TLabel;
PopupMenu1: TPopupMenu;
Minimize1: TMenuItem;
Exit1: TMenuItem;
N1: TMenuItem;
procedure RadioGroup1Click(Sender: TObject);
procedure Minimize1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex =0 then
begin
ShellExecute(Handle,'open',pchar('notepad'),nil,nil, SW_SHOWMAXIMIZED);
end
else
if RadioGroup1.ItemIndex =1 then
begin
ShellExecute(Handle,'open',pchar('explorer'),nil,nil, SW_SHOWMAXIMIZED);
end
else
if RadioGroup1.ItemIndex = 2 then
begin
ShellExecute(Handle,'open',pchar('control'),nil,nil, SW_SHOWMAXIMIZED);
end
else
if RadioGroup1.ItemIndex = 3 then
begin
ShellExecute(Handle,'open',pchar('regedit'),nil,nil, SW_SHOWMAXIMIZED);
end
else
if RadioGroup1.ItemIndex = 4 then
begin
ShellExecute(Handle,'open',pchar('dxdiag'),nil,nil, SW_SHOW);
end
else
if RadioGroup1.ItemIndex = 5 then
begin
ShellExecute(Handle,'open',pchar('gpedit.msc'),nil,nil, SW_SHOW);
end
else
if RadioGroup1.ItemIndex = 6 then
begin
ShellExecute(Handle,'open',pchar('msconfig'),nil,nil, SW_SHOW);
end
else
if RadioGroup1.ItemIndex = 7 then
begin
ShellExecute(Handle,'open',pchar('taskmgr'),nil,nil, SW_SHOW);
end ;
end;
procedure TForm1.Minimize1Click(Sender: TObject);
begin
Application.Minimize;
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;
end.