SetWindowPos(Self.Handle, HWND_TOPMOST,  ۰, ۰, ۰, ۰,  SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

ShowWindow(Application.Handle, SW_HIDE) ;
SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ;
ShowWindow(Application.Handle, SW_SHOW) ;

function Occurs(const Str, Separator: string): integer;
var
I, nSep: integer;
begin
nSep:= 0;
for I := 1 to Length(Str) do
if Str[I] = separator then
Inc(nSep);
Result := nSep;
end;

function SplitStr(const Str: string; const Separator: string): TStringList;
var
I, Count: integer;
StrLine, StrField: string;
Res: TStringList;
begin
Count := Occurs(Str, Separator);
Res := TStringList.Create;
StrLine := Str;
for I := 0 to Count do
begin
if Pos(Separator, StrLine) > 0 then
begin
StrField := Copy(StrLine, 0, Pos(Separator, StrLine)-1);
StrLine := Copy(StrLine, Pos(Separator, StrLine) +1, Length(StrLine) - Pos(Separator, StrLine));
end
else
StrField := Copy(StrLine, 0, Length(StrLine));
Res.Add(StrField);
end;
Result := Res;
end;

PlaySound('SystemQuestion', 0, SND_ALIAS or SND_ASYNC)

procedure TForm1.FormCreate(Sender: TObject) ;
var
reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKeyReadOnly('\AppEvents\EventLabels') ;
reg.GetKeyNames(ListBox1.Items) ;
finally
reg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
var
soundAlias : string;
begin
if ListBox1.ItemIndex = -1 then
begin
ShowMessage('Select a sound alias from the list…') ;
Exit;
end;
soundAlias := ListBox1.Items[ListBox1.ItemIndex];
PlaySound(PAnsiChar(soundAlias), 0, SND_ALIAS or SND_ASYNC) ;
end;

Loadkeyboardlayout('00000429 ', KLF_Activate);

Loadkeyboardlayout('0000000 ', KLF_Activate);

function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end;

StartingPoint : TPoint;

procedure TForm1.FormCreate(Sender: TObject) ;
begin
ListBox1.DragMode := dmAutomatic;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer) ;
var
DropPosition, StartPosition: Integer;
DropPoint: TPoint;
begin
DropPoint.X := X;
DropPoint.Y := Y;
with Source as TListBox do
begin
StartPosition := ItemAtPos(StartingPoint,True) ;
DropPosition := ItemAtPos(DropPoint,True) ;
Items.Move(StartPosition, DropPosition) ;
end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) ;
begin
Accept := Source = ListBox1;
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ;
begin
StartingPoint.X := X;
StartingPoint.Y := Y;
end;

function IsFileInUse(fName: string): boolean;
var
HFileRes : HFILE;
Res: string[6];
function CheckAttributes(FileNam: string; CheckAttr: string): Boolean;
var
fa: Integer;
begin
fa := GetFileAttributes(PChar(FileNam)) ;
Res := ";
if (fa and FILE_ATTRIBUTE_NORMAL) <> 0 then
begin
Result := False;
Exit;
end;
if (fa and FILE_ATTRIBUTE_ARCHIVE) <> 0 then
Res := Res + 'A';
if (fa and FILE_ATTRIBUTE_COMPRESSED) <> 0 then
Res := Res + 'C';
if (fa and FILE_ATTRIBUTE_DIRECTORY) <> 0 then
Res := Res + 'D';
if (fa and FILE_ATTRIBUTE_HIDDEN) <> 0 then
Res := Res + 'H';
if (fa and FILE_ATTRIBUTE_READONLY) <> 0 then
Res := Res + 'R';
if (fa and FILE_ATTRIBUTE_SYSTEM) <> 0 then
Res := Res + 'S';
Result := AnsiContainsText(Res, CheckAttr) ;
end; (*CheckAttributes*)
procedure SetAttr(fName: string) ;
var
Attr: Integer;
begin
Attr := 0;
if AnsiContainsText(Res, 'A') then
Attr := Attr + FILE_ATTRIBUTE_ARCHIVE;
if AnsiContainsText(Res, 'C') then
Attr := Attr + FILE_ATTRIBUTE_COMPRESSED;
if AnsiContainsText(Res, 'D') then
Attr := Attr + FILE_ATTRIBUTE_DIRECTORY;
if AnsiContainsText(Res, 'H') then
Attr := Attr + FILE_ATTRIBUTE_HIDDEN;
if AnsiContainsText(Res, 'S') then
Attr := Attr + FILE_ATTRIBUTE_SYSTEM;
SetFileAttributes(PChar(fName), Attr) ;
end; (*SetAttr*)
begin //IsFileInUse
if CheckAttributes(fName, 'R') then
begin
Result := False;
if not FileExists(fName) then exit;
if MessageDlg(ExtractFileName(fName) + ' is a READ-ONLY file.' + #13#10 + 'Do you wish to clear the READ-ONLY flag???', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
Result := True;
Exit;
end;
end;
SetFileAttributes(PChar(fName), FILE_ATTRIBUTE_NORMAL) ;
SetAttr(fName) ;
HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) ;
Result := (HFileRes = INVALID_HANDLE_VALUE) ;
if not Result then CloseHandle(HFileRes) ;
end; //IsFileInUse

IsFileInUse('C:\Test.txt');