function Get_U_N : string;
var
Set_N_U_N : DbiUserName;
begin
if DbiGet_Net_U_N(Set_N_U_N) = DBIERR_NONE then
Result := StrPas(Set_N_U_N)
else
Result := '';
end;

uses FileCtrl

Procedure Make_Tree_Menu(Menu_Item : TMenuItem;const stPathName : String);
var S_R : TSearchRec;
b_trv : Boolean;
New_Menu_Item : TMenuItem;
Begin
b_trv := (FindFirst(stPathName + '\*.*', faDirectory, S_R) = 0);
While (b_trv) Do
Begin
If (S_R.Name[1] <> '.') Then
Begin
If (DirectoryExists(stPathName + '\' + S_R.Name)) Then
Begin
New_Menu_Item := TMenuItem.Create(Menu_Item.Owner);
New_Menu_Item.Caption := S_R.Name;
Menu_Item.Add(New_Menu_Item);
Make_Tree_Menu(Menu_Item.Items[Menu_Item.Count - 1], stPathName + '\' + S_R.Name);
End;
End;
boTrouve := (FindNext(S_R) = 0);
End;
FindClose(S_R);
End;

Define this method of your form:
procedure WmGetMinMaxInfo(var PMSG: TWmGetMinMaxInfo);
message WM_GETMINMAXINFO;

procedure Form1.WmGetMinMaxInfo(var PMSG: TWmGetMinMaxInfo);
begin
with PMSG.MinMaxInfo^ do begin
PtMinTrackSize.X := Width;
PtMinTrackSize.Y := Height;
PtMaxTrackSize.X := Width;
PtMaxTrackSize.Y := Height;
end; {with}
end;

private
procedure WMSysCommand( var Mes: TWMSysCommand); message WM_SYSCOMMAND;
then in the implementation,
procedure WMSysCommand( var Mes: TWMSysCommand);
begin
if Mes.cmdType = SC_ScreenSave then
Mes.Result := -1
else
Inherited;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
i: Integer;
Menux: THandle;
begin
for i := 0 to 5 do
begin
Menux := GetMenuItemID(test.handle,i);
ModifyMenu(test.handle, Menux, MF_BYCOMMAND or MF_BITMAP, Menux,
PChar(image1.picture.bitmap.handle);
end;
end;

implementation
uses ShellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Hicon HICON;
iIcon: WORD;
begin
Hicon= ExtractAssociatedIcon(hInstance, 'C:\Windows\Win.ini', iIcon);
PostMessage(Handle, WM_SETICON, DWORD(False),Hicon);
end;

private
Wav_1: pointer;
Wav_2: pointer;

and then just do something like this:

procedure TForm1.Button2Click(Sender: TObject);

procedure Load_Wav_File(const Filename: string; var Ptr: pointer);
var
streaming_F: TFileStream;
F_Size: integer;
begin
streaming_F := TFileStream.Create(Filename, fmOpenRead);
GetMem(Ptr, streaming_F.F_Size);
streaming_F.ReadBuffer(Ptr^, streaming_F.F_Size);
streaming_F.Free;
end;
var
Wav_1,
Wav_2: pointer;
begin
Load_Wav_File('c:\win\media\chimes.wav', Wav_1);
Load_Wav_File('c:\win\media\chord.wav', Wav_2);
PlaySound(PChar(Wav_1), 0, SND_MEMORY or SND_NODEFAULT or SND_SYNC);
PlaySound(PChar(Wav_2), 0, SND_MEMORY or SND_NODEFAULT or SND_SYNC);
FreeMem(Wav_1);
FreeMem(Wav_2);
end;

Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TMainForm, MainForm);
ShowWindow(MainForm.Handle, SW_SHOWNORMAL);
Application.Run;

Your main form then is opened as expected as the foreground window, no icon on the taskbar and no flicker. From here you should be able to either use a TrayIcon component or code the tray icon functionality yourself.

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

{ The following functions are written for Delphi 1.x }
{ They should be easily adaptable for use with Delphi 2 & 3 }

function Extract_F_Name( FileName: string): string;
var p: integer;
begin { extracts the 8-character file name only }
Result := ExtractFileName(FileName);
p := pos('.',Result);
if p>0 then Result := Copy(Result,1,p-1);
end;

function IS_Delphi_Run: boolean;
begin { returns true if running within the IDE/compiler }
Result :=
(FindWindow('TApplication','Delphi') > 0) OR
(FindWindow('TPropertyInspector',nil) > 0) OR
(FindWindow('TAppBuilder',nil) > 0);
end;

function P_in_Delphi( EXEName: string ): boolean;
var handx: HWnd;
Storagex: array[0..80] of char;
Temp_St: string[80];
begin
Result := False;
if (IS_Delphi_Run) then
begin
EXEName := UpperCase(Extract_F_Name(EXEName));
handx := FindWindow('TAppBuilder',nil);
GetWindowText(handx, Storagex, SizeOf(Storagex)); { get window caption }
Temp_St := UpperCase(StrPas(Storagex));
Result := (Pos(EXEName,Temp_St) > 0) { does it contain EXEName ? }
and (Pos('RUNNING',Temp_St) > 0); { is it running ? }
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if P_in_Delphi('Project1.Exe')
then Label1.Caption := 'TRUE'
else Label1.Caption := 'False';
end;

This function will return a value of TRUE if the IDE is running or FALSE, otherwise.

Run Notepad
uses ShellApi;
...
ShellExecute(Handle, 'open','c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

Open SomeText.txt with Notepad
ShellExecute(Handle,'open','c:\windows\notepad.exe','c:\SomeText.txt',nil, SW_SHOWNORMAL);

Display the contents of the "DelphiDownload" folder
ShellExecute(Handle,'open','c:\DelphiDownload',nil, nil, SW_SHOWNORMAL);

Execute a file according to its extension
ShellExecute(Handle, 'open','c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL);

Open web site or a *.htm file with the default web explorer
ShellExecute(Handle, 'open','http://delphi.about.com',nil,nil, SW_SHOWNORMAL);

Send an e-mail with the subject and the message body
var
em_subject, em_body, em_mail : string;
begin
em_subject := 'How are you';
em_body := 'I write my letter here....';
em_mail := 'mailto:deryart@yahoo.com?subject=' +em_subject + '&body=' + em_body ;
ShellExecute(Handle,'open',PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;

Execute a program and wait until it has finished. The following example uses the ShellExecuteEx API function.
// Execute the Windows Calculator and pop up
// a message when the Calc is terminated.
uses ShellApi;
...
var
S_inf: TShellExecuteInfo;
Exit_Code: DWORD;
File_Executed, Params_String, start_in_str: string;
begin
File_Executed:='c:\Windows\Calc.exe';
FillChar(S_inf, SizeOf(S_inf), 0);
S_inf.cbSize := SizeOf(TShellExecuteInfo);
with S_inf do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(File_Executed);
{Params_String can contain the application parameters.}
// lpParameters := PChar(Params_String);
{start_in_str specifies the name of the working directory. If ommited, the current directory is used.}
// lpDirectory := PChar(start_in_str);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@S_inf) then begin
repeat
Application.ProcessMessages;
GetExit_CodeProcess(S_inf.hProcess, Exit_Code);
until (Exit_Code <> STILL_ACTIVE) or
Application.Terminated;
ShowMessage('Calculator terminated');
end
else ShowMessage('Error starting Calc!');
end;

WinExec
If you are working with Windows 3.xx and 16 bit applications use the WinExec function, like:
// run Notepad
WinExec('c:\windows\NOTEPAD.EXE', SW_SHOWNORMAL);
// run Notepad and display SomeText.txt
WinExec('c:\windows\NOTEPAD.EXE C:\SomeText.txt',
SW_SHOWNORMAL);
// execute a DOS DIR command
WinExec('COMMAND.COM /C DIR *.*', SW_SHOWNORMAL);

InternetAutodial(0, 0);
If you put 2 to the first param, dialog starts autamatically dialing.

procedure TForm1.FormCreate(Sender: TObject);
begin
New_Image := TPicture.create;
New_Image.LoadFromFile('C:\Windows\Circles.BMP');
Butn := FindWindowEx (FindWindow('Shell_TrayWnd', nil), 0,'Button', nil);
Old_bitmap := SendMessage(Butn,
BM_SetImage, 0,
New_Image.Bitmap.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SendMessage(Butn,BM_SetImage,0,Old_bitmap);
New_Image.Free;
end;

var Color:Integer;
RGB_Color:TRGBTriple;
begin
Color:=COLOR_ACTIVECAPTION;
RGB_Color.rgbtBlue:=128;//Red
RGB_Color.rgbtGreen:=0;//Green
RGB_Color.rgbtRed:=0;//Blue
SetSysColors(1,Color,RGB_Color);
end;
Note: Order of color is by TRGBTriple reversed

procedure Create_A_Linx(Work_Dir,File_Name,Arguments: String;Target_Link_File: WideString;
Description_X,IconPath: String;IconIdex: Integer);
var
My_obj : IUnknown;
My_Linx : IShellLink;
My_Persist : IPersistFile;
begin
My_obj := CreateComObject(CLSID_ShellLink);
My_Linx := My_obj as IShellLink;
My_Persist := My_obj as IPersistFile;
with My_Linx do
begin
SetArguments (PChar(Arguments));
SetPath (PChar(File_Name));
SetWork_Dir(PChar(Work_Dir));
SetDescription_X (PChar(Description_X));
SetIconLocation (PChar(IconPath), IconIdex);
end;
If Not DirectoryExists(ExtractFileDir(Target_Link_File)) then
CreateDir(ExtractFileDir(Target_Link_File));
My_Persist.Save(PWChar(Target_Link_File),False);
My_Linx := Nil;
My_Persist := Nil;
My_obj := Nil;
end;
Then call procedure, for example:
Create_A_Linx('C:\Win98', 'C:\Win98\Sndrec32.exe','', 'C:\Win98\sndrec32.lnk', 'SndRec', 'C:\icon.ico', 0)

procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource('XXXFont.TTF');
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource('XXXFont.TTF');
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

Close CD-ROM
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

PlaySound('c:\Gorilla.wav', 0, SND_FILENAME + SND_ASYNC);

function Set_Explr_URL(URL_string: String; ToFront: Boolean): HWND;
var H, H2, Explorer_frame: HWND;
begin
Explorer_frame:=FindWindow('Explorer_frame', nil);
H2:=FindWindowEX(Explorer_frame, 0, 'WorkerA', nil);
H:=FindWindowEX(H2, 0, 'ReBarWindow32', nil);
H2:=FindWindowEX(H, 0, 'ComboBoxEx32', nil);
H:=FindWindowEX(H2, 0, 'Combobox', nil);
H2:=FindWindowEX(H, 0, 'Edit', nil);
if H2 = 0 then
begin
Result:=False;
Exit;
end;
SendMessage(H2, WM_SETTEXT, Length(URL_string), LongInt(URL_string));
SendMessage(H2, WM_KEYDOWN, 13, 0);
if ToFront then
SetForegroundWindow(Explorer_frame);
Result:=True;
end;

Sample call:
Set_Explr_URL('http://psod.3web.cz', True);

2)Show
procedure Show_Task_Bar;
var
hTaskBar:THandle;
begin
hTaskBar:=FindWindow('Shell_TrayWnd',Nil);
ShowWindow(hTaskBar,Sw_Normal);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Ret: BOOL;
Pr_ID: integer; //process identifier
Pr_Handle: THandle; //process handle

begin
with ListView1 do
begin
Pr_ID:=StrToInt(ItemFocused.SubItems[1]);
Pr_Handle:=OpenProcess(1, BOOL(0), Pr_ID);
Ret:=TerminateProcess(Pr_Handle, 0);
if Integer(Ret) = 0 then
MessageDlg('Couldn''t close' + ItemFocused.Caption, mtInformation, [mbOk], 0)
else
ItemFocused.Delete;
end;
end;

Declaration:
function SHFindFiles(pidlRoot: PItemIDList; pidlSavedSearch: PItemIDList): Boolean;
stdcall; external 'Shell32.dll' index 90;

Example:
SHFindFiles(nil, nil);

function RestartDialog(ParentWnd: HWND; Reason: PAnsiChar;
Flags: LongInt): LongInt; stdcall; external 'Shell32.dll' index 59;

Example:
if RestartDialog(0, 'I''m restart dialog' + #13 + #13, EW_RESTARTWINDOWS) = IDYES then
ShowMessage('Succesfully started.');

Different possibilities for Flags:
EWX_LOGOFF
EWX_SHUTDOWN
EWX_REBOOT
EW_RESTARTWINDOWS
EW_REBOOTSYSTEM
EW_EXITANDEXECAPP

How to use:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then Show_P_Dialog(Opendialog1.FileName);
end;

procedure Show_F_Dialog(Folderx:String);
begin
with TDDEClientConv.Create(Self) do
begin
ConnectMode := ddeManual;
ServiceApplication := 'Explorer.exe';
SetLink('Folders', 'AppProperties');
OpenLink;
ExecuteMacro(PChar('[FindFolder(, ' + Folderx+ ')]'), False);
CloseLink;
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Show_F_Dialog('C:\Windows');
end;

var

Tick_Count: Cardinal;
begin
Tick_Count := GetTickCount;
repeat
//If you wish to don't stop the program, put here this
Application.ProcessMessages;
until GetTickCount - Tick_Count >= 2000;//milliseconds count
Beep;
end;

Declaration:
function PickIconDlgA(OwnerWnd: HWND; lpstrFile: PAnsiChar; var nMaxFile: LongInt;
var lpdwIconIndex: LongInt): LongBool; stdcall; external 'SHELL32.DLL' index 62;

Example (changes application icon):
var
File_name: String;
Size, Index: LongInt;
begin
Size := MAX_PATH;
File_name := 'Shell32.dll';
if PickIconDlgA(0, PChar(File_name), Size, Index) then
begin
if Index <> -1 then
Application.Icon.Handle := ExtractIcon(hInstance, PChar(FileName), Index);
end;
end;

type
TForm1 = class(TForm)
Edit1: TEdit;
btnRead: TButton;
btnWrite: TButton;
private
My_sample_reg: TRegistry;
public
{ Public declarations }
end;
To Write some information into registery

procedure TForm1.btnWriteClick(Sender: TObject);
begin
try
My_sample_reg := TRegistry.Create;
My_sample_reg.RootKey := HKEY_LOCAL_MACHINE;
if My_sample_reg.OpenKey('SOFTWARE\myApp\', TRUE) then
begin
My_sample_reg.WriteString('My Name', Edit1.Text);
My_sample_reg.WriteInteger('Top', Form1.Top);
My_sample_reg.WriteInteger('Left', Form1.Left);
end;
finally
My_sample_reg.Free;
end;
end;

Open up the "btnReadClick" procedure of your code window. Enter in the following code:

procedure TForm1.btnReadClick(Sender: TObject);
begin
try
My_sample_reg := TRegistry.Create;
My_sample_reg.RootKey := HKEY_LOCAL_MACHINE;
if My_sample_reg.OpenKey('SOFTWARE\myApp', FALSE) then
begin
Edit1.Text := My_sample_reg.ReadString('App Name');
Form1.Top := My_sample_reg.ReadInteger('Top');
Form1.Left := My_sample_reg.ReadInteger('Left');
end;
finally
My_sample_reg.Free;
end;
end;

function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
OldWidth, OldHeight: integer;
begin
OldWidth := GetSystemMetrics(SM_CXSCREEN); // Get original screen resolation
OldHeight := GetSystemMetrics(SM_CYSCREEN);
Setscreenresolution(640,480);
end;

Correct resolation again:
setScreenResolation(OldWitdh,OldHeight);

Closes Notepad menu
procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;

This procedure closes notepad

procedure TForm1.Button2Click(Sender: TObject);
begin
PostMessage(FindWindow(Nil, 'Untitled - Notepad'), WM_QUIT, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsUserOnline then showmessage('On the net') Else
ShowMessage('Not connected');
end;