formatic

external(VOID, "GetOpenFileName", "GetOpenFileNameA", "COMDLG32.DLL");
external(VOID, "GetSaveFileName", "GetSaveFileNameA", "COMDLG32.DLL");


messagebox(find_put(0));

function find_put(int par)
{
char b[256]; b[0]=formatic(0);
char a[76];
for (int n=0; n<76; n++)a[n]=0;
string s="Text Files"; // тип файла (можно наисать что угодно)
string s1="*.*"; // расширение файла
char c[100]; strcpy(#c[0], s); strcpy(#c[size(s)+1], s1); c[size(s+s1)+2]=formatic(0);
char d[256]; strcpy(#d[0], pathfolder()+"configs\"); // начальный каталог
char e[256]; // заголовок диалога
if(par==0)strcpy(#e[0], "Открыть файл");
else strcpy(#e[0], "Сохранить файл");

writeaddress(76, address(#a[0]));
writeaddress(address(#c[0]), address(#a[12])); // тип файла
writeaddress(address(#b[0]), address(#a[28])); // сюда сохранится путь
writeaddress(sizearray(b), address(#a[32])); // размер буфера
writeaddress(address(#d[0]), address(#a[44])); // начальный каталог
writeaddress(address(#e[0]), address(#a[48])); // заголовок диалога

if(par==0)GetOpenFileName(address(#a[0]));
else GetSaveFileName(address(#a[0]));
return format(#b[0]);
}