ANTICHAT — форум по информационной безопасности, OSINT и технологиям

.
function erwer(erwr:string):array[0..100] of string;
begin
result[0]:='werwr';
end;


begin
showmessage(erwer('dsadas')[0]);
end.

.....

type
    PMy_func_array_result=array[1..100]of string;

var
  Form1: TForm1;

.....


function erwer(erwr:string):pMy_func_array_result;
begin
result[1]:='werwr';
end;

begin
showmessage(erwer('dsadas')[1]);
end;

.....

uses Registry;
.....
{находим директорию винды}
function GetSystemRoot: String;
var Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', false);
  Result:=reg.ReadString('SystemRoot');
  Reg.free;
end;

{находим имя пользователя}
function GetUN: string;
var
UN : string;
UNLen : Dword;
begin
  UNLen := 255;
  SetLength(UN, UNLen);
  if GetUserName(PChar(UN), UNLen) then
    Result := Copy(UN,1,UNLen - 1);
end;

{используем всё это, чтоб составить путь}
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str:=copy(GetSystemRoot,1,3)+'Documents and Settings\'+GetUN+'\Рабочий стол\'+FormatDateTime('hh.nn.ss',now)+'.bmp';

bmp.SaveToFile(str);
end;